Rediger værdien/indholdet af flere UserForm-kontroller ved hjælp af VBA i Microsoft Excel

Anonim

I et Excel 5/95 dialogark er det muligt at ændre værdien/indholdet af en samling af kontroller med
sløjfe gennem kontrollerne i samlingen, f.eks. sådan her: For hver cb i dlg.CheckBoxes.
I Excel 97 eller nyere grupperer UserForm-objektet ikke kontrollerne på samme måde.
Nedenfor finder du nogle eksempler på makroer, der viser hvordan
du kan ændre værdien/indholdet i flere UserForm-kontroller:

Sub ResetAllCheckBoxesInUserForm () Dim ctrl som kontrol for hver ctrl i UserForm1.Controls If TypeName (ctrl) = "CheckBox" Så ctrl.Value = False End If Next ctrl End Sub Sub ResetAllOptionButtonsInUserForm () Dim ctrl Som Control For hver ctrl I UserForm1. Controls If TypeName (ctrl) = "OptionButton" Herefter 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