Allpool vaatame programmi Exceli VBA mis loob kasutajavormi, mis sisaldab sõltuvad liitkastid. Kasutajavorm, mille me loome, näeb välja järgmine:
Kasutaja valib ripploendist loomad. Selle tulemusel saab kasutaja valida looma teisest ripploendist.
Kasutaja valib ripploendist spordi. Selle tulemusel saab kasutaja valida spordiala teisest ripploendist.
Selle Userformi loomiseks toimige järgmiselt.
1. Avage Visual Basic Editor. Kui Project Explorer pole nähtav, klõpsake View, Project Explorer.
2. Klõpsake Insert, Userform. Kui tööriistakasti automaatselt ei kuvata, klõpsake nuppu Vaade, tööriistakast. Ekraan tuleks seadistada järgmiselt.
3. Lisage liitkastid (esimene vasakul, teine paremal) ja käsunupp. Kui see on lõpule viidud, peaks tulemus olema kooskõlas varem näidatud Userformi pildiga. Näiteks saate luua liitkasti juhtelemendi, klõpsates tööriistakastis käsul ComboBox. Järgmisena saate lohistada kasutajavormi liitkasti.
4. Saate muuta juhtelementide nimesid ja pealdisi. Nimesid kasutatakse Exceli VBA -koodis. Subtiitrid on need, mis kuvatakse teie ekraanil. Juhtnuppude nimede muutmine on hea tava, kuid see pole siin vajalik, sest meil on selles näites vaid mõned juhtnupud. Kasutajavormi ja käsunupu pealdise muutmiseks klõpsake nuppu Vaade, Atribuutide aken ja klõpsake iga juhtelementi.
5. Kasutajavormi kuvamiseks pange oma töölehele käsunupp ja lisage järgmine koodirida:
Privaatne alamkäsk Button1_Click ()
UserForm1.Show
End Sub
Nüüd loome alamkasutajavormi_algatuse. Kui kasutate kasutajavormi jaoks Show meetodit, käivitatakse see alamosa automaatselt.
6. Avage Visual Basic Editor.
7. Paremklõpsake Project Exploreris nuppu UserForm1 ja seejärel käsku Kuva kood.
8. Valige vasakpoolsest ripploendist Userform. Valige parempoolsest ripploendist Initsialiseeri.
9. Lisage järgmised koodiridad:
Privaatne alamkasutajaForm_Initialize ()
ComboBox1 abil
.AddItem "Loomad"
.Lisa "Sport"
.AddItem "Toit"
Lõpeta
End Sub
Selgitus: need koodiridad täidavad esimese liitkasti.
Nüüd oleme loonud Userformi esimese osa. Kuigi see näeb juba kenasti välja, ei juhtu veel midagi, kui valime esimesest liitkastist üksuse.
10. Topeltklõpsake Project Exploreris nuppu UserForm1.
11. Topeltklõpsake esimest liitkasti.
12. Lisage järgmised koodiridad:
Privaatne alamkombinatsioonikast1_muutus ()
Dim indeks täisarvuna
indeks = ComboBox1.ListIndex
ComboBox2. Selge
Valige juhtumite register
Juhtum on = 0
ComboBox2 abil
.AddItem "Koer"
.AddItem "Kass"
.Lisa "Hobune"
Lõpeta
Juhtum on = 1
ComboBox2 abil
.AddItem "Tennis"
.AddItem "Ujumine"
.AddItem "Korvpall"
Lõpeta
Juhtum on = 2
ComboBox2 abil
.AddItem "Pannkoogid"
.AddItem "Pizza"
.AddItem "Hiina"
Lõpeta
Lõpp Vali
End Sub
Selgitus: Excel VBA kasutab muutujaindeksi väärtust, et testida iga järgmist juhtumilause, et näha, milliste üksustega teine liitkast tuleb täita. Tutvuge programmiga Case Case, et saada lisateavet Select Case struktuuri kohta.
13. Topeltklõpsake nuppu Import.
14. Lisage järgmine koodirida:
Privaatne alamkäsk Button1_Click ()
Vahemik ("A1"). Väärtus = ComboBox2.Value
End Sub
Tulemus:
