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

【问题标题】：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

【问题讨论】：

标签： excel vba checkbox

【解决方案1】：

你可以一次设置它们：

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

【讨论】：