我想在excel中单击另一个复选框时禁用复选框

时间:2015-04-23 18:05:48

标签: excel excel-vba vba

我想单击一个复选框,并在Excel中禁用另一个链接复选框。

当我取消选中该特定复选框时,应启用禁用的复选框。

我尝试了很多东西但却无法找到解决方案。我可以不用脚本吗?

我有76个复选框可供使用。那么这可能没有脚本吗? TIA

5 个答案:

答案 0 :(得分:1)

使用两个ActiveX复选框,代码为:

Private Sub CheckBox1_Click()

If CheckBox2.Enabled = True Then
    CheckBox2.Enabled = False
Else:
    CheckBox2.Enabled = True
End If

End Sub

这很简单,但有效。

答案 1 :(得分:1)

如果您希望代码检查并禁用单击第二个框,请使用以下代码。如果取消选中初始框,它也会启用和取消选中第二个框。

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    CheckBox2.Value = True
    CheckBox2.Enabled = False
Else
    CheckBox2.Value = False
    CheckBox2.Enabled = True
End If
End Sub

答案 2 :(得分:1)

更直接

Sub CheckBox1_Click()
 CheckBox2.Enabled = Not CheckBox2.Enabled
End Sub

答案 3 :(得分:1)

我相信你可以使用" OptionButton"。你不需要代码。但是通过这种方式,你只能检查76中的一个。你的意思是"链接的复选框"?

答案 4 :(得分:0)

Option Compare Database

Private Sub Ck1_Click()

If Ck1 = True Then
Ck2.Enabled = False
Ck3.Enabled = False
Else
Ck2.Enabled = True
Ck3.Enabled = True
End If

End Sub

Private Sub Ck2_Click()

If Ck2 = True Then
Ck1.Enabled = False
Ck3.Enabled = False
Else
Ck1.Enabled = True
Ck3.Enabled = True
End If

End Sub

Private Sub Ck3_Click()

If Ck3 = True Then
Ck1.Enabled = False
Ck2.Enabled = False
Else
Ck1.Enabled = True
Ck2.Enabled = True
End If

End Sub
相关问题