300 Primerov

Uporabniška oblika z več stranmi

Userform With Multiple Pages

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č.

Uporabniška oblika stran 1 Uporabniška oblika 2





Č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.

Nastavitev zaslona Userform v Excelu VBA

3. Dodajte kontrolnik za več strani, oznake, polja z besedilom (prvi na vrhu, drugi pod prvim), okvir, gumbe z možnostmi (prvi levo, drugi desno), 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.

kako narediti dnevnik v

5. Če želite prikazati obliko uporabnika, postavite a ukazni gumb na delovnem listu in dodajte naslednjo kodno vrstico:

Zasebno PodCommandButton1_Click ()

UserForm1.Show

Konec Pod

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 projekta z desno tipko miške 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:

Zasebno PodUserForm_Initialize ()

ZListBox1
.AddItem 'Gore'
.AddItem 'Sončni zahod'
.AddItem 'Plaža'
.AddItem 'Zima'
Konec Z

Konec Pod

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:

Zasebno PodListBox1_Click ()

ČeListBox1.ListIndex = 0Potem
Image1.Picture = LoadPicture ('C: test Mountains.jpg')
Konec Če

ČeListBox1.ListIndex = 1Potem
Image1.Picture = LoadPicture ('C: test Sunset.jpg')
Konec Če

ČeListBox1.ListIndex = 2Potem
Image1.Picture = LoadPicture ('C: test Beach.jpg')
Konec Če

ČeListBox1.ListIndex = 3Potem
Image1.Picture = LoadPicture ('C: test Winter.jpg')
Konec Če

Konec Pod

Pojasnilo: te kodne vrstice nalagajo sliko, odvisno od izbranega elementa v polju s seznamom.

14. Dvokliknite gumb V redu.

15. Dodajte naslednje kodne vrstice:

Zasebno PodCommandButton1_Click ()

NobenaemptyRowAs dolga

'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

ČeOptionButton1.Vrednost =Prav 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

Konec Pod

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:

Preizkusite obliko uporabnika

10/11 Dokončano! Preberite več o uporabniških oblikah>
Pojdi na naslednje poglavje: Domet



^