时间戳

首页 > 解决方案 > 如何一次取消选中/选中所有复选框？

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

问题描述

我有一个屏幕，上面有大约 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

标签： excelvbacheckbox

解决方案

您可以一次设置它们：

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

推荐阅读