当checkbox被选中时popup显示两次

我现在已经设置好了，所以两个checkbox不能同时被检查，如果是的话会popup一个错误，并且再次勾选checkbox。 不过目前它是popup消息两次。 如何解决这个问题？

Private Sub CheckBox1_Click() If CheckBox2.Value = True Then MsgBox "Must be sent separate." CheckBox1.Value = False End If End Sub 

Answer 1

我想你也只需要改变它：原因是它切换checkbox1时正在运行检查

 Private Sub CheckBox1_Click() If CheckBox2.Value = True And CheckBox1.Value = True Then MsgBox "Must be sent separate." CheckBox1.Value = False End If End Sub