小编mik*_*era的帖子

Excel VBA 复选框单击和更改事件相同吗?

我有 5 个复选框来为宏设置一些选项,其中之一是 Select/Unselect All 复选框。当您选择要删除的邮件或标记为已读等时,我想创建类似于您在基于 Web 的邮箱上拥有的内容。当我选中 Select/Unselect All 复选框时,我将其余复选框的值设为 true,反之亦然当我取消选中它时。没关系。

当我还想验证是否所有内容都未选中并且我逐个选中其他复选框时出现问题,如果最后我选中所有,则选择/取消全选复选框变为选中状态。反之亦然,这意味着如果所有内容都被选中,然后我取消选中其他四个中的一个,那么我将“全部”复选框设置为 false(未选中)。

但似乎即使我只是在 SelectAllCheckbox_Click 事件中设置值,例如 Option1Checkbox.value = True,它也会触发 Option1Checkbox_Click 和 Option1Checkbox_Change 事件。

它不应该只是触发 Change 事件,因为我实际上并没有点击那个复选框吗?

发生的情况是我检查了 SelectAll,因此它将 Option1 变为选中状态,但是通过这样做,Option1 也会触发 click 事件,因此它取消选中它再次触发 click 事件,然后再次取消选中最后留下所有内容的 All 复选框未经检查,就像在开始时一样。希望这部分足够清楚。

我怎样才能避免这种行为?如何确保仅触发 Change 事件而不触发 Click 事件?

有没有人有过这样的复选框排列并有类似的问题?或者你是如何在没有我得到的行为的情况下做到这一点的?

复选框不在表单上,​​而只是在工作表上。它们是 ActiveX 控件。我所拥有的并不复杂:

Private Sub SelectAll_Click()
    Option1Checkbox.Value = SelectAll.Value
    Option2Checkbox.Value = SelectAll.Value
    Option3Checkbox.Value = SelectAll.Value
    Option4Checkbox.Value = SelectAll.Value
End Sub
Run Code Online (Sandbox Code Playgroud)

然后选项复选框单击事件如下所示:

Private Sub Option1Checkbox_Click()
    If Option1Checkbox.Value = True And Option2Checkbox.Value = True And Option3Checkbox.Value = True …
Run Code Online (Sandbox Code Playgroud)

checkbox excel events vba click

7
推荐指数
1
解决办法
5万
查看次数

标签 统计

checkbox ×1

click ×1

events ×1

excel ×1

vba ×1