Pri ustvarjanju uporabniških oblik v Excel VBA, lahko uporabite Nadzira zbiranje za enostavno krmiljenje kontrol in nastavitev lastnosti vsakega kontrolnika na določeno vrednost.
Uporabniška oblika, ki jo bomo ustvarili, izgleda tako:
Če želite ustvariti ta uporabniški obrazec, izvedite naslednje korake:
1. Odprite urejevalnik Visual Basic. Če Project Explorer ni viden, kliknite View, Project Explorer.
2. Kliknite Vstavi, Uporabniški obrazec. Če se orodjarna ne prikaže samodejno, kliknite Pogled, Orodjarna. Zaslon je treba nastaviti tako, kot je prikazano spodaj.
3. Dodajte oznako, besedilna polja (najprej na vrhu, drugo pod prvim itd.) In ukazni gumb. Ko je to končano, mora biti rezultat skladen s sliko uporabniške oblike, prikazano prej. Na primer, ustvarite kontrolnik za polje z besedilom, tako da v orodjarni kliknete TextBox. Nato lahko povlečete besedilno polje na Userform.
4. Če želite spremeniti napis Userform, oznako in ukazni gumb, kliknite Pogled, okno lastnosti in kliknite na vsak kontrolnik.
5. Če želite prikazati Userform, na svoj delovni list postavite ukazni gumb in dodajte naslednjo kodno vrstico:
Zasebni pod -ukaz Button1_Click ()
UserForm1.Show vbModeless
End Sub
Pojasnilo: če dodate vbModeless, lahko hkrati uporabite obliko uporabnika in delate na svojem delovnem listu.
Zdaj smo ustvarili prvi del Userform. Čeprav je že videti lepo, se s klikom na ukazni gumb na Userform ne bo zgodilo še nič.
6. Odprite urejevalnik Visual Basic.
7. V Raziskovalcu projektov dvokliknite UserForm1.
8. Dvokliknite gumb za ukaz.
9. Dodajte naslednje kodne vrstice:
Zasebni pod -ukaz Button1_Click ()
Dim i kot celo število
Za i = 1 do 10
Kontrolniki ("TextBox" & i). Vrednost = celice (i + 1, 1). Vrednost
Naprej i
End Sub
Pojasnilo: Z le nekaj vrsticami kode lahko besedilna polja napolnimo s telefonskimi številkami s lista. Za združevanje (združevanje) elementov smo uporabili operater &. Te kodne vrstice delujejo, ker nismo spremenili imen kontrolnikov polja z besedilom (TextBox1, TextBox2, TextBox3 itd.). Če želite spremeniti imena kontrol, kliknite Pogled, Okno lastnosti in kliknite na vsak kontrolnik.
Rezultat, ko kliknete ukazni gumb na listu:
