U nastavku ćemo pogledati program u Excel VBA koji stvara Userform koji sadrži ovisne kombinirane kutije. Userform koji ćemo stvoriti izgleda ovako:
Korisnik odabire Životinje s padajućeg popisa. Kao rezultat toga, korisnik može odabrati životinju s drugog padajućeg popisa.
Korisnik odabire sport s padajućeg popisa. Kao rezultat toga, korisnik može odabrati sport s drugog padajućeg popisa.
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 kombinirane okvire (prvi slijeva, drugi desno) i komandni gumb. Nakon što je ovo dovršeno, rezultat bi trebao biti u skladu sa slikom Userform -a prikazanom ranije. Na primjer, stvorite kontrolu kombiniranog okvira klikom na ComboBox u Toolboxu. Zatim možete povući kombinirani okvir na Userform.
4. Možete promijeniti nazive i natpise kontrola. Imena se koriste u Excel VBA kodu. Naslovi su oni koji se pojavljuju na vašem zaslonu. Dobra je praksa promijeniti nazive kontrola, ali to ovdje nije potrebno jer u ovom primjeru imamo samo nekoliko kontrola. Da biste promijenili naslov Userform i naredbenog gumba, kliknite Pogled, prozor Svojstva 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 ()
Korisnički obrazac1.Prikaži
Kraj podm
Sada ćemo stvoriti Sub UserForm_Initialize. Kada koristite metodu Show za Userform, ova podmena će se automatski izvršiti.
6. Otvorite Visual Basic Editor.
7. U Project Exploreru desnom tipkom miša kliknite UserForm1, a zatim kliknite View Code.
8. Odaberite Korisnički obrazac s lijevog padajućeg popisa. Odaberite Initialize s desnog padajućeg popisa.
9. Dodajte sljedeće retke koda:
Privatni pomoćni korisnički obrazac_Initialize ()
Uz ComboBox1
.AddItem "Životinje"
.AddItem "Sport"
.Dodajte stavku "Hrana"
Završi s
Kraj podm
Objašnjenje: Ovi retci koda ispunjavaju prvi kombinirani okvir.
Sada smo stvorili prvi dio Userform -a. Iako već izgleda uredno, ništa se neće dogoditi kada odaberemo stavku iz prvog kombiniranog okvira.
10. U Project Exploreru dvaput kliknite UserForm1.
11. Dvaput kliknite na prvi kombinirani okvir.
12. Dodajte sljedeće retke koda:
Privatni pomoćni ComboBox1_Change ()
Indeks zatamnjenja kao cijeli broj
index = ComboBox1.ListIndex
ComboBox2.Jasno
Odaberite Indeks slučajeva
Slučaj je = 0
Uz ComboBox2
.AddItem "Pas"
.Dodatak "Mačka"
.Dodajte stavku "Konj"
Završi s
Slučaj je = 1
Uz ComboBox2
.Dodajte stavku "Tenis"
.AddItem "Plivanje"
.AddItem "Košarka"
Završi s
Slučaj je = 2
Uz ComboBox2
.Dodajte stavku "Palačinke"
.Dodajte stavku "Pizza"
.AddItem "kineski"
Završi s
Kraj Odaberite
Kraj podm
Objašnjenje: Excel VBA koristi vrijednost indeksa varijable za testiranje svake sljedeće naredbe Case kako bi vidio kojim stavkama treba ispuniti drugi kombinirani okvir. Prođite kroz naš program Select Case da biste saznali više o strukturi Select Case.
13. Dvaput kliknite gumb Uvoz.
14. Dodajte sljedeći kodni redak:
Privatna pomoćna naredbaButton1_Click ()
Raspon ("A1"). Vrijednost = ComboBox2.Vrijednost
Kraj podm
Proizlaziti:
