Cu doar câteva linii de cod, putem ușor bucla prin controale pe o Formular de utilizator Excel VBA. Formularul de utilizator pe care îl vom crea arata după cum urmează:
Pentru a crea acest formular de utilizator, executați pașii următori.
1. Deschideți Editorul Visual Basic. Dacă Project Explorer nu este vizibil, faceți clic pe View, Project Explorer.
2. Faceți clic pe Insert, Userform. Dacă Caseta de instrumente nu apare automat, faceți clic pe Vizualizare, Casetă de instrumente. Ecranul dvs. ar trebui să fie configurat după cum urmează.
3. Adăugați eticheta, casetele de selectare (prima în partea de sus, a doua sub prima și așa mai departe) și butonul de comandă. Odată ce acest lucru a fost finalizat, rezultatul ar trebui să fie în concordanță cu imaginea Formei de utilizator prezentată anterior. De exemplu, creați un control casetă de selectare făcând clic pe CheckBox din caseta de instrumente. Apoi, puteți trage o casetă de selectare pe Formular de utilizator.
4. Puteți schimba numele și subtitrările comenzilor. Numele sunt utilizate în codul VBA Excel. Subtitrările sunt cele care apar pe ecran. Este o bună practică să schimbați numele comenzilor, dar nu este necesar aici, deoarece avem doar câteva controale în acest exemplu. Pentru a schimba subtitrarea Formei de utilizator, eticheta, casetele de selectare și butonul de comandă, faceți clic pe Vizualizare, fereastră Proprietăți și faceți clic pe fiecare control.
5. Pentru a afișa forma de utilizator, plasați un buton de comandă pe foaia de lucru și adăugați următoarea linie de cod:
Private Sub CommandButton1_Click ()
UserForm 1. Afișați
Sfârșitul Sub
Acum am creat prima parte a Formularului de utilizare. Deși pare deja îngrijit, încă nu se va întâmpla nimic atunci când facem clic pe butonul Șterge.
6. Deschideți Editorul Visual Basic.
7. În Project Explorer, faceți dublu clic pe UserForm1.
8. Faceți dublu clic pe butonul Ștergeți.
9. Adăugați următoarele linii de cod:
Private Sub CommandButton1_Click ()
Dim contr Ca control
Pentru fiecare contr. Din UserForm1.Controls
Dacă TypeName (contr) = "CheckBox" Atunci
contr.Value = False
End If
Următorul
Sfârșitul Sub
Explicație: Excel VBA parcurge toate comenzile de pe Userform. Funcția TypeName este utilizată pentru a filtra comenzile casetei de selectare. Dacă o casetă de selectare controlează, Excel VBA debifează caseta de selectare. contr este ales aleatoriu aici, puteți folosi orice nume. Nu uitați să consultați acest nume în restul codului.
Rezultatul când faceți clic pe butonul Ștergeți:
