如何一次取消选中/选中所有复选框？

Posted 2023-03-05

【中文标题】如何一次取消选中/选中所有复选框？

【英文标题】：How do I uncheck/check all my checkboxes at once?

【发布时间】：2019-09-05 10:51:55

【问题描述】：

我有一个屏幕，上面有大约 500 个复选框。第一个复选框必须能够取消选中/选中所有其他复选框，这是我当前的代码所做的。

我想知道我是否可以让它更快/更快。因为我目前正在使用 For 循环，所以需要一段时间才能完成。

这是我的代码：

Dim xCheckBox As CheckBox
For Each xCheckBox In Application.ActiveSheet.CheckBoxes
    If xCheckBox.Name <> Application.ActiveSheet.CheckBoxes("ToggleCheck").Name Then
        xCheckBox.Value = Application.ActiveSheet.CheckBoxes("ToggleCheck").Value
    End If
Next

【参考方案1】：

你可以一次设置它们：

ActiveSheet.CheckBoxes.Value = ActiveSheet.CheckBoxes("ToggleCheck").Value