Spodaj si bomo ogledali program v Excel VBA ki ustvari obliko uporabnika, ki vsebuje kombinirano polje z več stolpci.
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, kombinirano polje in ukazne gumbe. Ko je to končano, mora biti rezultat skladen s sliko uporabniške oblike, prikazano prej. Na primer, ustvarite kontrolnik kombiniranega polja s klikom na ComboBox v orodjarni. Nato lahko povlečete kombinirano polje na Userform.
4. Lahko spremenite imena in napise kontrolnikov. Imena se uporabljajo v kodi Excel VBA. Napisi so tisti, ki se prikažejo na zaslonu. Dobra praksa je, da spremenite imena kontrol, vendar to ni potrebno, ker imamo v tem primeru le nekaj kontrol. Če želite spremeniti napis uporabniške oblike, oznake in ukaznih gumbov, 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
End Sub
Zdaj bomo ustvarili Sub UserForm_Initialize. Ko uporabite metodo Show za Userform, se bo ta podprogram samodejno izvajal.
6. Odprite urejevalnik Visual Basic.
7. V Raziskovalcu projektov z desno miškino tipko kliknite UserForm1 in nato kliknite Ogled kode.
8. Na levem spustnem seznamu izberite Userform. Na desnem spustnem seznamu izberite Inicializiraj.
9. Dodajte naslednje kodne vrstice:
Zasebni podporabnikForm_Initialize ()
ComboBox 1.ColumnCount = 2
Zatemni filme (1 do 5, 1 do 2) kot niz
Dim i kot celo število, j kot celo število
Films (1, 1) = "Gospodar prstanov"
Filmi (2, 1) = "Hitrost"
Filmi (3, 1) = "Vojne zvezd"
Filmi (4, 1) = "Boter"
Films (5, 1) = "Pulp Fiction"
Filmi (1, 2) = "Pustolovščina"
Filmi (2, 2) = "Dejanje"
Filmi (3, 2) = "Sci-Fi"
Filmi (4, 2) = "Kriminal"
Filmi (5, 2) = "Drama"
ComboBox1.List = Filmi
End Sub
Pojasnilo: Prva vrstica kode nastavi število stolpcev kombiniranega polja na 2. Namesto števila stolpcev med izvajanjem lahko to nastavitev konfigurirate tudi med načrtovanjem. Če želite to narediti, z desno miškino tipko kliknite kontrolnik kombiniranega polja, kliknite Lastnosti in lastnost ColumnCount nastavite na 2. Nato razglasimo in inicializiramo dvodimenzionalno matriko. Zadnja vrstica kode dodeli matriko kombiniranemu polju.
Zdaj smo ustvarili prvi del Userform. Čeprav že izgleda čedno, se s klikom na ukazne gumbe na Userform ne zgodi še nič.
10. V Raziskovalcu projektov dvokliknite UserForm1.
11. Dvokliknite gumb V redu.
12. Dodajte naslednje kodne vrstice:
Zasebni pod -ukaz Button1_Click ()
Raztovori me
MsgBox "Izbrali ste" & ComboBox1.Vrednost
On Napaka Nadaljuj Naprej
MsgBox "Všeč ti je" & ComboBox1. stolpec (1) in "filmi"
End Sub
Opomba: te kodne vrstice zaprejo uporabniški obrazec programa Excel VBA in prikažejo izbrano postavko in zvrst. Izjava 'On Error Resume Next' ne upošteva napake, ko uporabnik izpolni svoj film (v tem primeru žanr ni na voljo).
13. Dvokliknite gumb Prekliči.
14. Dodajte naslednjo kodno vrstico:
Zasebni pod -ukaz Button2_Click ()
Raztovori me
End Sub
Rezultat, ko izberete Hitrost in kliknete V redu.
