Allpool vaatame programmi Exceli VBA mis loob Userformi, mis sisaldab mitme veeru liitkast.
Kasutajavorm, mille me loome, näeb välja järgmine:
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 silt, liitkast ja käsunupud. 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, siltide ja käsunuppude pealdiste 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.ColumnCount = 2
Hämardage filmid (1 kuni 5, 1 kuni 2) stringina
Dim i täisarvuna, j täisarvuna
Filmid (1, 1) = "Sõrmuste isand"
Filmid (2, 1) = "Kiirus"
Filmid (3, 1) = "Tähesõjad"
Filmid (4, 1) = "Ristiisa"
Filmid (5, 1) = "Pulp Fiction"
Filmid (1, 2) = "Seiklus"
Filmid (2, 2) = "Tegevus"
Filmid (3, 2) = "Sci-Fi"
Filmid (4, 2) = "Kuritegu"
Filmid (5, 2) = "Draama"
ComboBox1.List = Filmid
End Sub
Selgitus: Esimene koodirida määrab liitkasti veergude arvuks 2. Selle asemel, et veergude arvu käitusajal määrata, saate selle sätte konfigureerida ka disaini ajal. Selle saavutamiseks paremklõpsake liitkasti juhtelementi, klõpsake nuppu Atribuudid ja määrake atribuudi ColumnCount väärtuseks 2. Järgmisena deklareerime ja lähtestame kahemõõtmelise massiivi. Viimane koodirida määrab massiivi liitkastile.
Nüüd oleme loonud Userformi esimese osa. Kuigi see näeb juba kenasti välja, ei juhtu veel midagi, kui klõpsame Userformi käsunuppudel.
10. Topeltklõpsake Project Exploreris nuppu UserForm1.
11. Topeltklõpsake nuppu OK.
12. Lisage järgmised koodiridad:
Privaatne alamkäsk Button1_Click ()
Laadi mind maha
MsgBox "Teie valisite" & ComboBox1.Value
Vea korral Jätka järgmist
MsgBox "Sulle meeldib" & ComboBox1.Veerg (1) ja "filmid"
End Sub
Märkus: need koodiridad sulgevad Exceli VBA kasutajavormi ja kuvavad valitud üksuse ja žanri. Väide „On Error Resume Next” eira viga, kui kasutaja täidab oma filmi (sel juhul pole žanrit saadaval).
13. Topeltklõpsake nuppu Tühista.
14. Lisage järgmine koodirida:
Privaatne alamkäsk Button2_Click ()
Laadi mind maha
End Sub
Tulemus, kui valite kiiruse ja klõpsate nuppu OK.
