Când creați forme de utilizator în Excel VBA, puteți utiliza Colectarea comenzilor pentru a parcurge cu ușurință controalele și a seta o proprietate a fiecărui control la o anumită valoare.
Formularul de utilizator pe care îl vom crea arata după cum urmează:
Pentru a crea acest formular de utilizator, executați următorii pași:
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 text (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ă text făcând clic pe TextBox din caseta de instrumente. Apoi, puteți trage o casetă de text pe formularul de utilizator.
4. Pentru a modifica subtitrarea Formei de utilizator, etichetei și butonului 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 vbModeless
Sfârșitul Sub
Explicație: prin adăugarea vbModeless, puteți utiliza formularul de utilizator și puteți lucra în foaia de lucru în același timp.
Acum am creat prima parte a Formularului de utilizare. Deși pare deja îngrijit, nimic nu se va întâmpla încă atunci când facem clic pe butonul de comandă din Userform.
6. Deschideți Editorul Visual Basic.
7. În Project Explorer, faceți dublu clic pe UserForm1.
8. Faceți dublu clic pe butonul de comandă.
9. Adăugați următoarele linii de cod:
Private Sub CommandButton1_Click ()
Dim i As Integer
Pentru i = 1 până la 10
Controale ("TextBox" & i). Valoare = celule (i + 1, 1). Valoare
Apoi eu
Sfârșitul Sub
Explicație: Cu doar câteva linii de cod, putem completa casetele text cu numerele de telefon din foaie. Am folosit operatorul & pentru a concatena (uni) elementele. Aceste linii de cod funcționează deoarece nu am schimbat numele comenzilor casetei de text (TextBox1, TextBox2, TextBox3 etc.). Pentru a schimba numele comenzilor, faceți clic pe Vizualizare, fereastră Proprietăți și faceți clic pe fiecare control.
Rezultatul când faceți clic pe butonul de comandă de pe foaie:
