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

Question

我的屏幕上有大约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

Answer 1

您可以一次全部设置它们：

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