代码控制复选框

复选框的状态发生改变时会触发click，比如：Value初始是0，然后为1，就会有一次Click，在Value没有为0的情况下就不会再触发
除非你在click事件反复改变状态，这种情况是很少会出现的，估计你的代码本身或思路就有问题

我先用mouseup + keyup处理吧。

'像这样
Option Explicit
Dim b As Boolean
Private Sub Check1_Click()
If b Then Exit Sub
If Check2.Value = 1 Then
b = True
Check2.Value = 0
b = False
End If
End Sub
Private Sub Check2_Click()
If b Then Exit Sub
If Check1.Value = 1 Then
b = True
Check1.Value = 0
b = False
End If
End Sub