В диалоговом листе Excel 5/95 можно изменить значение / содержимое коллекции элементов управления, перебирая элементы управления в коллекции, например вот так: Для каждого cb в dlg.CheckBoxes.

В Excel 97 или более поздних версиях объект UserForm не группирует элементы управления таким же образом.

Ниже вы найдете несколько примеров макросов, которые показывают, как можно изменить значение / содержимое нескольких элементов управления UserForm:

Sub ResetAllCheckBoxesInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "CheckBox" Then

ctrl.Value = False

End If

Next ctrl

End Sub

Sub ResetAllOptionButtonsInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "OptionButton" Then

ctrl.Value = False

End If

Next ctrl

End Sub

Sub ResetAllTextBoxesInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "TextBox" Then

ctrl.Text = ""

End If

Next ctrl

End Sub