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

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

- ronald1993

Answer 1

您可以一次性设置它们：

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

- Rory