Как снять / проверить все мои чекбоксы одновременно?

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