Zmeňte hodnotu/obsah niekoľkých ovládacích prvkov UserForm pomocou jazyka VBA v programe Microsoft Excel

Anonim

V dialógovom okne programu Excel 5/95 je možné zmeniť hodnotu/obsah zbierky ovládacích prvkov pomocou
opakovanie ovládacích prvkov v zbierke, napr. takto: Pre každý cb v dlg.CheckBoxes.
V programe Excel 97 alebo novšom objekt UserForm nezoskupuje ovládacie prvky rovnakým spôsobom.
Nasleduje niekoľko príkladov makier, ktoré ukazujú, ako na to
môžete zmeniť hodnotu/obsah niekoľkých ovládacích prvkov 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 UserFactory 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 = "" Koniec ako ďalší ctrl Koniec pod