Spodaj si bomo ogledali program v Excel VBA ki ustvari uporabniško obliko, ki vsebuje odvisna kombinirana polja. Uporabniška oblika, ki jo bomo ustvarili, izgleda tako:
Uporabnik na spustnem seznamu izbere Živali. Posledično lahko uporabnik na drugem spustnem seznamu izbere žival.
Uporabnik na spustnem seznamu izbere šport. Posledično lahko uporabnik na drugem spustnem seznamu izbere šport.
Č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 kombinirana polja (najprej levo, drugo desno) in ukazni gumb. 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 in ukaznega gumba, 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 ()
S programom ComboBox1
.AddItem "Živali"
.AddItem "Šport"
.AddItem "Hrana"
Končaj s
End Sub
Pojasnilo: Te kodne vrstice zapolnijo prvo kombinirano polje.
Zdaj smo ustvarili prvi del Userform. Čeprav že izgleda lepo, se ne bo nič zgodilo, ko izberemo element iz prvega kombiniranega polja.
10. V Raziskovalcu projektov dvokliknite UserForm1.
11. Dvokliknite prvo kombinirano polje.
12. Dodajte naslednje kodne vrstice:
Zasebno pomožno ComboBox1_Change ()
Indeks zatemnitve kot celo število
index = ComboBox1.ListIndex
ComboBox 2. Jasno
Izberite Indeks primerov
Primer je = 0
S programom ComboBox2
.AddItem "Pes"
.AddItem "Mačka"
.AddItem "Konj"
Končaj s
Primer je = 1
S programom ComboBox2
.AddItem "Tenis"
.AddItem "Plavanje"
.AddItem "Košarka"
Končaj s
Primer je = 2
S programom ComboBox2
.AddItem "Palačinke"
.AddItem "Pizza"
.AddItem "kitajščina"
Končaj s
Konec Izberite
End Sub
Pojasnilo: Excel VBA uporablja vrednost indeksa spremenljivke za preizkus vsakega naslednjega stavka Case, da preveri, s katerimi postavkami je treba zapolniti drugo kombinirano polje. Preberite naš program Select Case, če želite izvedeti več o strukturi Select Case.
13. Dvokliknite gumb Uvozi.
14. Dodajte naslednjo kodno vrstico:
Zasebni pod -ukaz Button1_Click ()
Obseg ("A1"). Vrednost = ComboBox2.Vrednost
End Sub
Rezultat:
