Změňte hodnotu/obsah několika ovládacích prvků UserForm pomocí jazyka VBA v aplikaci Microsoft Excel

Anonim

V dialogovém listu aplikace Excel 5/95 je možné změnit hodnotu/obsah kolekce ovládacích prvků pomocí
procházení ovládacími prvky ve sbírce, např. takto: Pro každý cb v dlg.CheckBoxes.
V aplikaci Excel 97 nebo novější objekt UserForm neseskupuje ovládací prvky stejným způsobem.
Níže naleznete několik příkladů maker, která ukazují, jak
můžete změnit hodnotu/obsah několika ovládacích prvků UserForm:

Sub ResetAllCheckBoxesInUserForm () Dim ctrl jako ovládací prvek pro každý ctrl v UserForm1.Controls If TypeName (ctrl) = "CheckBox" Then ctrl.Value = False End If Next ctrl End Sub Sub ResetAllOptionButtonsInUserForm () Dim ctrl As User for each ctrl. 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