Prilikom izrade korisničkih obrazaca u Excel VBA, možete koristiti Kontrolira prikupljanje za jednostavno ponavljanje kontrola i postavljanje svojstva svake kontrole na određenu vrijednost.
Userform koji ćemo stvoriti izgleda ovako:
Da biste stvorili ovaj korisnički obrazac, izvedite sljedeće korake:
1. Otvorite Visual Basic Editor. Ako Project Explorer nije vidljiv, kliknite View, Project Explorer.
2. Pritisnite Umetni, Korisnički obrazac. Ako se Toolbox ne pojavi automatski, kliknite View, Toolbox. Zaslon bi trebao biti postavljen na sljedeći način.
3. Dodajte oznaku, okvire za tekst (prvi pri vrhu, drugi ispod prvog itd.) I naredbeni gumb. Nakon što je ovo dovršeno, rezultat bi trebao biti u skladu sa slikom Userform -a prikazanom ranije. Na primjer, stvorite kontrolu okvira za tekst klikom na TextBox iz okvira s alatima. Zatim možete povući tekstualni okvir na Userform.
4. Za promjenu natpisa Userform, label i command button kliknite View, Properties Window i kliknite na svaku kontrolu.
5. Da biste prikazali Userform, postavite naredbeni gumb na svoj radni list i dodajte sljedeći kodni redak:
Privatna pomoćna naredbaButton1_Click ()
UserForm1.Show vbModeless
Kraj podm
Objašnjenje: dodavanjem vbModeless -a možete koristiti Userform i istovremeno raditi na svom radnom listu.
Sada smo stvorili prvi dio Userform -a. Iako već izgleda uredno, ništa se neće dogoditi kada kliknemo naredbeni gumb na korisničkom obrascu.
6. Otvorite Visual Basic Editor.
7. U Project Exploreru dvaput kliknite UserForm1.
8. Dvaput kliknite na naredbeni gumb.
9. Dodajte sljedeće retke koda:
Privatna pomoćna naredbaButton1_Click ()
Dim i Kao cijeli broj
Za i = 1 do 10
Kontrole ("TextBox" & i) .Vrijednost = ćelije (i + 1, 1) .Vrijednost
Sljedeći i
Kraj podm
Objašnjenje: Sa samo nekoliko redaka koda možemo tekstualne okvire ispuniti telefonskim brojevima s lista. Koristili smo operator & za spajanje (spajanje) elemenata. Ove linije koda funkcioniraju jer nismo promijenili nazive kontrola okvira za tekst (TextBox1, TextBox2, TextBox3 itd.). Za promjenu naziva kontrola kliknite Pogled, prozor Svojstva i kliknite svaku kontrolu.
Rezultat kada pritisnete naredbeni gumb na listu:
