Question

关于Excel VBA的CheckBox的问题

我想点击CS时，HR，Sales和Marketing全部Invisible,然后CS下面的4个CheckBox却是Visible的。

Private Sub Check1_Click()
If CheckBox1.Value = 1 Then CheckBox2.Visible = False
End Sub

Answer 1

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Visible = True
CheckBox3.Visible = True
CheckBox4.Visible = True
CheckBox5.Visible = True
CheckBox6.Visible = False
CheckBox7.Visible = False
CheckBox8.Visible = False
Else
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
CheckBox6.Visible = True
CheckBox7.Visible = True
CheckBox8.Visible = True
End If
End Sub

追问

非常感谢您的回答，另外还想问下。如何让4个checkbox不能多选呢？

追答

既然不想多选 那你用 单选框不就好了 checkbox是复选框