Mainiet vairāku UserForm vadīklu vērtību/saturu, izmantojot Microsoft Excel VBA

Anonim

Excel 5/95 dialoglodziņā ir iespējams mainīt vadīklu kolekcijas vērtību/saturu pēc
cilpu cauri kolekcijas vadīklām, piem. piemēram: Katram cb In dlg.CheckBoxes.
Programmā Excel 97 vai jaunākā versijā UserForm objekts negrupē vadīklas vienādi.
Zemāk ir daži makro piemēri, kas parāda, kā
Jūs varat mainīt vairāku UserForm vadīklu vērtību/saturu:

Sub ResetAllCheckBoxesInUserForm () Dim ctrl kā kontrole katrai ctrl programmā UserForm1.Controls If TypeName (ctrl) = "CheckBox" Tad ctrl.Value = False End If Next ctrl End Sub Sub ResetAllOptionButtonsInUserForm () Dim ctrl Kā ControlF Kontrolē, ja TypeName (ctrl) = "OptionButton" Tad ctrl.Value = False End If Next ctrl End Sub Sub ResetAllTextBoxesInUserForm () Dim ctrl Kā kontrole katrai UserForm1.tr.Controls If TypeName (ctrl) = "TextBox" Tad ctrl.Text = "" Beigt, ja nākamais ctrl Beigt apakš