Allpool vaatame programmi Excel VBA, mis loob kasutajalehe, mis sisaldab mitut lehte. See kasutajavorm sisaldab ka pilte.
Mitmeleheküljel on kaks lehte. Lehel 1 saab kasutaja sisestada oma isiklikud andmed. Lehel 2 saab kasutaja märkida, milline maal talle rohkem meeldib.
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 mitme lehe juhtnupp, sildid, tekstikastid (esimene üleval, teine esimese all), raam, valikunupud (esimene vasakul, teine paremal), loendiboks, pildijuhtimis- ja käsunupp. Kui see on lõpule viidud, peaks tulemus olema kooskõlas varem näidatud Userformi tühja versiooniga. Näiteks saate luua mitmelehekülje juhtelemendi, klõpsates tööriistakastis Mitmelehekülg. Järgmisena saate lohistada Userformi mitmelehe juhtelementi. Soolise raami juurde jõudes ärge unustage seda raami enne kahe valikunupu sisestamist joonistada.
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, mitmelehe vahekaartide, siltide, raami, valikunuppude 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 ()
ListBox1 abil
.AddItem "Mäed"
.AddItem "Päikeseloojang"
.AddItem "Rand"
.Lisa "Talv"
Lõpeta
End Sub
Selgitus: leheküljel 2 olev loendikast täidetakse.
Nüüd oleme loonud Userformi esimese osa. Kuigi see näeb juba kenasti välja, ei juhtu veel midagi, kui valime loendiboksist üksuse või klõpsame nuppu OK.
10. Laadige alla pildid (selle lehe paremal küljel) ja lisage need kausta „C: \ test \”
11. Topeltklõpsake Project Exploreris nuppu UserForm1.
12. Topeltklõpsake loendiboksi.
13. Lisage järgmised koodiridad:
Privaatne alamloendBox1_Click ()
Kui ListBox1.ListIndex = 0 Siis
Image1.Picture = LoadPicture ("C: \ test \ Mountains.jpg")
Lõpp Kui
Kui ListBox1.ListIndex = 1 Siis
Image1.Picture = LoadPicture ("C: \ test \ Sunset.jpg")
Lõpp Kui
Kui ListBox1.ListIndex = 2 Siis
Image1.Picture = LoadPicture ("C: \ test \ Beach.jpg")
Lõpp Kui
Kui ListBox1.ListIndex = 3 Siis
Image1.Picture = LoadPicture ("C: \ test \ Winter.jpg")
Lõpp Kui
End Sub
Selgitus: need koodiridad laadivad pildi sõltuvalt loendiboksis valitud üksusest.
14. Topeltklõpsake nuppu OK.
15. Lisage järgmised koodiridad:
Privaatne alamkäsk Button1_Click ()
Pimendage tühi rida nii kaua
„Tehke leht 1 aktiivseks
Leht 1. Aktiveeri
'Määra tühi rida
emptyRow = WorksheetFunction.CountA (Vahemik ("A: A")) + 1
'Edastage teave
Lahtrid (emptyRow, 1) .Väärtus = TextBox1.Value
Lahtrid (emptyRow, 2) .Value = TextBox2.Value
Kui OptionButton1.Value = Tõene siis
Lahtrid (emptyRow, 3) .Value = "Mees"
Muidu
Lahtrid (emptyRow, 3) .Value = "Naine"
Lõpp Kui
Lahtrid (emptyRow, 4) .Value = ListBox1.Value
'Sulgege Userform
Laadi mind maha
End Sub
Selgitus: kõigepealt aktiveerime lehe 1. Järgmisena määrame tühja rea. Muutuja emptyRow on esimene tühi rida ja suureneb iga kord, kui kirje lisatakse. Järgmisena viime teabe Userformist tühja rea ridadesse. Lõpuks sulgeme Userformi.
16. Väljuge Visual Basic Editorist, sisestage allpool näidatud sildid 1. reale ja katsetage Userformi.
Tulemus:
