Verander de waarde/inhoud van verschillende UserForm-controls met VBA in Microsoft Excel

Anonim

In een Excel 5/95-dialoogblad is het mogelijk om de waarde/inhoud van een verzameling besturingselementen te wijzigen door:
het doorlopen van de bedieningselementen in de verzameling, b.v. als volgt: Voor elke cb In dlg.CheckBoxes.
In Excel 97 of later groepeert het UserForm-object de besturingselementen niet op dezelfde manier.
Hieronder vindt u enkele voorbeeldmacro's die laten zien hoe:
u kunt de waarde/inhoud van verschillende UserForm-controls wijzigen:

Sub ResetAllCheckBoxesInUserForm() Dim ctrl As Control voor elke ctrl In UserForm1.Controls If TypeName(ctrl) = "CheckBox" Then ctrl.Value = False End If Next ctrl End Sub Sub ResetAllOptionButtonsInUserForm() Dim ctrl As Control voor elke ctrl in UserForm1. Controls If TypeName(ctrl) = "OptionButton" Then ctrl.Value = False End If Next ctrl End Sub Sub ResetAllTextBoxesInUserForm() Dim ctrl As Control voor elke ctrl in UserForm1.Controls If TypeName(ctrl) = "TextBox" Dan ctrl.Text = "" End If Next ctrl End Sub