Muuta useiden UserForm-ohjausobjektien arvoa/sisältöä VBA: n avulla Microsoft Excelissä

Anonim

Excel 5/95 -valintaikkunassa on mahdollista muuttaa ohjauskokoelman arvoa/sisältöä
silmukointi kokoelman säätimien läpi, esim. näin: Jokaiselle cb: lle dlg.CheckBoxesissa.
Excel 97: ssä tai uudemmassa UserForm-objekti ei ryhmitä ohjaimia samalla tavalla.
Alla on esimerkkejä makroista, jotka osoittavat kuinka
Voit muuttaa useiden UserForm-säätimien arvoa/sisältöä:

Sub ResetAllCheckBoxesInUserForm () Dim ctrl Controllerina jokaiselle ctrl: lle UserForm1.Controls If TypeName (ctrl) = "CheckBox" Sitten ctrl.Value = False End If Next ctrl End Sub Sub ResetAllOptionButtonsInUserForm () Dim ctrl Käyttäjän ohjaus Ohjausobjektit Jos TypeName (ctrl) = "OptionButton" Sitten ctrl.Value = False End If Next ctrl End Sub Sub ResetAllTextBoxesInUserForm () Dim ctrl Control for Jokaisen ctrl: n UserForm1.Controls If TypeName (ctrl) = "TextBox" Sitten ctrl.Text = "" Lopeta, jos seuraava ctrl Lopeta ala