excel vba---添加复选框按钮控件_云中涯

个人资料

微博

正文字体大小：大中小

excel vba---添加复选框按钮控件

(2012-04-23 10:13:48)

标签：

新建4个复选框，控制W9到W12格式的颜色

Private Sub CBox1_Change()
If CBox1.Value = True Then

Range("w9").Select
Selection.Interior.ColorIndex = 20
Else
Range("w9").Select
Selection.Interior.ColorIndex = 42
End If
End Sub

Private Sub CBox2_change()
If CBox2.Value = True Then

Range("w10").Select
Selection.Interior.ColorIndex = 20
Else
Range("w10").Select
Selection.Interior.ColorIndex = 42
End If

End Sub

Private Sub CBox3_change()
If CBox3.Value = True Then

Range("w11").Select
Selection.Interior.ColorIndex = 20
Else
Range("w11").Select
Selection.Interior.ColorIndex = 42
End If
End Sub

Private Sub CBox4_change()
If CBox4.Value = True Then

Range("w12").Select
Selection.Interior.ColorIndex = 20
Else
Range("w12").Select
Selection.Interior.ColorIndex = 42
End If

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report