Использование цикла для включения флажков в Excel

Question

В настоящее время я работаю с электронной таблицей Excel и могу использовать некоторую справочную информацию для переключения между флажками.То, что я пытаюсь сделать, это когда один флажок установлен, другая группа блоков становится видимой и включенной.Любой совет о том, как это сделать, был бы очень признателен.

Спасибо за ваше время.

Answer 1

Предполагая, что ваши флажки являются элементами управления формы, расположенными на Sheet 1, вы можете создать коллекцию всех флажков, которые необходимо включить при нажатии checkBox1, и выполнить следующие действия:

Sub CheckBox1_Click()
Dim cb1 As checkBox
Dim cb2 As checkBox
Dim cb3 As checkBox
Dim cb As checkBox
Dim cbCollection As New Collection
Set cb1 = ThisWorkbook.Worksheets(1).CheckBoxes("Check Box 1")
Set cb2 = ThisWorkbook.Worksheets(1).CheckBoxes("Check Box 2")
Set cb3 = ThisWorkbook.Worksheets(1).CheckBoxes("Check Box 3")
cbCollection.Add cb2
cbCollection.Add cb3
If cb1.Value = 1 Then
    For Each cb In cbCollection
        cb.Enabled = True
        cb.Visible = True
    Next cb
Else
    For Each cb In cbCollection
        cb.Enabled = False
        cb.Visible = False
    Next cb
End If
End Sub