Pakeiskite kelių „UserForm“ valdiklių vertę/turinį naudodami „Microsoft Excel“ VBA

Anonim

„Excel 5/95“ dialogo lape galima pakeisti valdiklių rinkinio vertę/turinį
kilpos per kolekcijos valdiklius, pvz. kaip šis: kiekvienam cb In dlg.CheckBoxes.
Naudojant „Excel 97“ ar naujesnę versiją, objektas „UserForm“ nekontroliuoja valdiklių vienodai.
Žemiau rasite keletą makrokomandų pavyzdžių, kurie parodo, kaip tai padaryti
galite pakeisti kelių „UserForm“ valdiklių vertę/turinį:

Sub ResetAllCheckBoxesInUserForm () Dim ctrl kaip valdiklis kiekvienam UserForm1.Controls valdymui Valdo, jei „TypeName“ (ctrl) = "OptionButton" Tada ctrl.Value = False End If Next ctrl End Sub Sub ResetAllTextBoxesInUserForm () Dim ctrl Kaip kiekvieno „UserForm1.trl“ valdiklio valdiklis. = "" Baigti, jei kitas, ctrl Pabaigos antrinis