我有十几个复选框,第一个是"全选",设计思想是"全选"被点击时其它全部勾上或全不勾。其它全部勾上时,“全选”就自动勾,其它有一个不勾时,“全选”就不勾。 用了两个事件: Private Sub Check1_Click(Index As Integer) Private Sub Check2_Click() ‘全选 结果它们相互触发,达不到要求,将复选框的enabled设置为false也不行。 不过现在解决了,增加了一个变量,通过变量判断:退出或继续执行就可以了。 不过奇怪的是:VBA是VB的子集,VBA中都有enableevents这样的,VB中怎么会没有呢?