U nastavku ćemo pogledati program u Excel VBA koji stvara Userform koji sadrži kombinirani okvir s više kolona.
Userform koji ćemo stvoriti izgleda ovako:
Da biste stvorili ovaj korisnički obrazac, izvedite sljedeće korake.
1. Otvorite Visual Basic Editor. Ako Project Explorer nije vidljiv, kliknite View, Project Explorer.
2. Pritisnite Umetni, Korisnički obrazac. Ako se Toolbox ne pojavi automatski, kliknite View, Toolbox. Zaslon bi trebao biti postavljen na sljedeći način.
3. Dodajte oznaku, kombinirani okvir i naredbene gumbe. Nakon što je ovo dovršeno, rezultat bi trebao biti u skladu sa slikom Userform -a prikazanom ranije. Na primjer, stvorite kontrolu kombiniranog okvira klikom na ComboBox u Toolboxu. Zatim možete povući kombinirani okvir na Userform.
4. Možete promijeniti nazive i natpise kontrola. Imena se koriste u Excel VBA kodu. Naslovi su oni koji se pojavljuju na vašem zaslonu. Dobra je praksa promijeniti nazive kontrola, ali to ovdje nije potrebno jer u ovom primjeru imamo samo nekoliko kontrola. Da biste promijenili natpis Userform, label i command button, kliknite View, Properties Window i kliknite na svaku kontrolu.
5. Da biste prikazali Userform, postavite naredbeni gumb na svoj radni list i dodajte sljedeći kodni redak:
Privatna pomoćna naredbaButton1_Click ()
Korisnički obrazac1.Prikaži
Kraj podm
Sada ćemo stvoriti Sub UserForm_Initialize. Kada koristite metodu Show za Userform, ova podmena će se automatski izvršiti.
6. Otvorite Visual Basic Editor.
7. U Project Exploreru desnom tipkom miša kliknite UserForm1, a zatim kliknite View Code.
8. Odaberite Korisnički obrazac s lijevog padajućeg popisa. Odaberite Initialize s desnog padajućeg popisa.
9. Dodajte sljedeće retke koda:
Privatni pomoćni korisnički obrazac_Initialize ()
ComboBox1.ColumnCount = 2
Zatamni filmove (1 do 5, 1 do 2) kao niz
Dim i kao cijeli broj, j kao cijeli broj
Films (1, 1) = "Gospodar prstenova"
Filmovi (2, 1) = "Brzina"
Filmovi (3, 1) = "Ratovi zvijezda"
Filmovi (4, 1) = "Kum"
Films (5, 1) = "Pulp Fiction"
Filmovi (1, 2) = "Avantura"
Filmovi (2, 2) = "Radnja"
Filmovi (3, 2) = "Sci-Fi"
Filmovi (4, 2) = "Kriminal"
Filmovi (5, 2) = "Drama"
ComboBox1.List = Filmovi
Kraj podm
Objašnjenje: Prvi kodni redak postavlja broj stupaca kombiniranog okvira na 2. Umjesto postavljanja broja stupaca za vrijeme izvođenja, ovu postavku možete konfigurirati i u vrijeme projektiranja. Da biste to postigli, kliknite desnom tipkom miša na kontrolu kombiniranog okvira, kliknite Svojstva i postavite svojstvo ColumnCount na 2. Zatim deklariramo i inicijaliziramo dvodimenzionalni niz. Posljednji kodni redak dodjeljuje niz kombiniranom okviru.
Sada smo stvorili prvi dio Userform -a. Iako već izgleda uredno, ništa se neće dogoditi kada kliknemo naredbene gumbe na korisničkom obrascu.
10. U Project Exploreru dvaput kliknite UserForm1.
11. Dvaput kliknite gumb OK.
12. Dodajte sljedeće retke koda:
Privatna pomoćna naredbaButton1_Click ()
Iskrcaj Me
MsgBox "Odabrali ste" & ComboBox1.Vrijednost
Uključeno Slijedi nastavak greške
MsgBox "Volite" & ComboBox1.Kolumna (1) i "filmovi"
Kraj podm
Napomena: ove retke koda zatvaraju korisnički obrazac programa Excel VBA i prikazuju odabranu stavku i žanr. Naredba 'On Error Resume Next' zanemaruje grešku kada korisnik popuni svoj film (u ovom slučaju nema dostupnog žanra).
13. Dvaput kliknite gumb Odustani.
14. Dodajte sljedeći kodni redak:
Privatna pomoćna naredbaButton2_Click ()
Iskrcaj Me
Kraj podm
Rezultat je kad odaberete Brzina i kliknete U redu.
