Spodaj bomo pogledali program v Excelu VBA, ki ustvari uporabniško obliko, ki vsebuje več strani. Ta uporabniška oblika vsebuje tudi slike.
Kontrolnik za več strani vsebuje dve strani. Na prvi strani lahko uporabnik vnese svoje osebne podatke. Na drugi strani lahko uporabnik navede, katera slika mu je najbolj všeč.
Č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 kontrolnik za več strani, oznake, polja z besedilom (prvi na vrhu, drugi pod prvim), okvir, gumbe z možnostmi (prvi na levi, drugi na desni), polje s seznamom, nadzor slike in ukazni gumb. Ko je to končano, mora biti rezultat skladen s prazno različico Userform, prikazano prej. Na primer, ustvarite kontrolnik za več strani, tako da v orodjarni kliknete Več strani. Nato lahko povlečete kontrolnik za več strani na Userform. Ko pridete do okvirja Spol, ne pozabite najprej narisati tega okvirja, preden vanj postavite dva gumba z možnostmi.
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 Userform, zavihki z več stranmi, oznake, okvir, gumbi z možnostmi in gumb za ukaz, kliknite Pogled, okno Lastnosti in kliknite 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 ()
Z ListBox1
.AddItem "Gore"
.AddItem "Sončni zahod"
.AddItem "Plaža"
.AddItem "Zima"
Končaj s
End Sub
Pojasnilo: polje s seznamom na strani 2 bo zapolnjeno.
Zdaj smo ustvarili prvi del Userform. Čeprav je že videti lepo, se nič ne bo zgodilo, ko izberemo element s seznama ali ko kliknemo gumb V redu.
10. Prenesite slike (desna stran te strani) in jih dodajte v "C: \ test \"
11. V Project Explorerju dvokliknite UserForm1.
12. Dvokliknite polje s seznamom.
13. Dodajte naslednje kodne vrstice:
Zasebni pod -seznam Box1_Click ()
Če je ListBox1.ListIndex = 0 Potem
Image1.Picture = LoadPicture ("C: \ test \ Mountains.jpg")
Konec Če
Če je ListBox1.ListIndex = 1 Potem
Image1.Picture = LoadPicture ("C: \ test \ Sunset.jpg")
Konec Če
Če je ListBox1.ListIndex = 2 Potem
Image1.Picture = LoadPicture ("C: \ test \ Beach.jpg")
Konec Če
Če je ListBox1.ListIndex = 3 Potem
Image1.Picture = LoadPicture ("C: \ test \ Winter.jpg")
Konec Če
End Sub
Pojasnilo: te kodne vrstice nalagajo sliko, odvisno od izbranega elementa v polju s seznamom.
14. Dvokliknite gumb V redu.
15. Dodajte naslednje kodne vrstice:
Zasebni pod -ukaz Button1_Click ()
Dim emptyRow As Long
'Naj bo list 1 aktiven
List 1. Aktivirajte
'Določite emptyRow
emptyRow = Delovni listFunction.CountA (obseg ("A: A")) + 1
'Prenos podatkov
Celice (emptyRow, 1) .Value = TextBox1.Value
Celice (emptyRow, 2) .Value = TextBox2.Value
Če je OptionButton1.Value = True, potem
Celice (emptyRow, 3) .Value = "Moški"
Sicer pa
Celice (emptyRow, 3) .Value = "Samica"
Konec Če
Celice (emptyRow, 4) .Value = ListBox1.Value
'Zapri uporabniški obrazec
Raztovori me
End Sub
Pojasnilo: najprej aktiviramo Sheet1. Nato določimo emptyRow. Spremenljivka emptyRow je prva prazna vrstica in se poveča vsakič, ko se doda zapis. Nato podatke iz Userform prenesemo v posebne stolpce emptyRow. Na koncu zapremo Userform.
16. Zaprite urejevalnik Visual Basic, vnesite spodnje oznake v prvo vrstico in preizkusite Userform.
Rezultat:
