Loop Through Control Types In A Userform
Snippets to loop through control types or a specific control type. Especially useful for bulk actions.
Control Type Names
- Label
- TextBox
- ComboBox
- ListBox
- CheckBox
- OptionButton
- ToggleButton
- Frame
- CommandButton
- TabStrip
- MultiPage
- ScrollBar
- SpinButton
- Image
Loop through all controls
Sub LoopAllControls()
'// Vars
Dim ctrl As Control
'// Loop Through each control on UserForm
For Each ctrl In UserForm1.Controls
'// Do something with that control type...eg make visible
ctrl.Visible = TRUE
Next ctrl
End Sub
Loop through a specific control type
Sub LoopSpecificControl()
'// Vars
Dim ctrl As Control
Dim ctrlType As String
'// Choose control type to loop through
ctrlType = "Textbox"
'// Loop Through each control on UserForm
For Each ctrl In UserForm1.Controls
'// Test specific control type
If TypeName(ctrl) = ctrlType Then
'// Do Something With That Control Type...eg no value
ctrl.Value = ""
End If
Next ctrl
End Sub