300 Primerov

Večnamenska kombinirana škatla

Multicolumn Combo Box

Spodaj si bomo ogledali program v Excel VBA ki ustvari obliko uporabnika, ki vsebuje kombinirano polje z več stolpci .



Uporabniška oblika, ki jo bomo ustvarili, izgleda tako:

Kombinirano polje z več stolpci v Excelu VBA





Če želite ustvariti ta uporabniški obrazec, izvedite naslednje korake.

kako dodati vertikalne vrstice napak v

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 oznako, kombinirano polje in ukazne gumbe. Ko je to končano, mora biti rezultat skladen s sliko uporabniške oblike, prikazano prej. Na primer, ustvarite kontrolnik kombiniranega polja s klikom na ComboBox v orodjarni. Nato lahko povlečete kombinirano polje na Userform.

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 uporabniške oblike, oznake in ukaznih gumbov, kliknite Pogled, okno lastnosti in kliknite na vsak kontrolnik.

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

ali obstaja funkcija obsega v excelu
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 ()

ComboBox 1.ColumnCount = 2

NobenaFilmi (1Za5, 1Za2)As Vrvica
NobenajazAs Celo število, jAs Celo število

Films (1, 1) = 'Gospodar prstanov'
Filmi (2, 1) = 'Hitrost'
Filmi (3, 1) = 'Vojne zvezd'
Filmi (4, 1) = 'Boter'
Films (5, 1) = 'Pulp Fiction'

Filmi (1, 2) = 'Pustolovščina'
Filmi (2, 2) = 'Dejanje'
Filmi (3, 2) = 'Znanstvena fantastika'
Filmi (4, 2) = 'Kriminal'
Filmi (5, 2) = 'Drama'

ComboBox1.List = Filmi

Konec Pod

Pojasnilo: Prva vrstica kode nastavi število stolpcev kombiniranega polja na 2. Namesto števila stolpcev med izvajanjem lahko to nastavitev konfigurirate tudi med načrtovanjem. Če želite to narediti, z desno miškino tipko kliknite kontrolnik kombiniranega polja, kliknite Lastnosti in lastnost ColumnCount nastavite na 2. Nato razglasimo in inicializiramo dvodimenzionalna matrika . Zadnja vrstica kode dodeli matriko kombiniranemu polju.

Zdaj smo ustvarili prvi del Userform. Čeprav že izgleda lepo, se s klikom na ukazne gumbe na Userform ne bo še nič zgodilo.

10. V Raziskovalcu projektov dvokliknite UserForm1.

11. Dvokliknite gumb V redu.

12. Dodajte naslednje kodne vrstice:

Zasebno PodCommandButton1_Click ()

Raztovori me

MsgBox 'Izbrali ste' & ComboBox1.Vrednost

Vklopljeno Napaka Nadaljuj Naslednji
MsgBox 'You like' & ComboBox 1. Stolpec (1) & 'filmi'

Konec Pod

Opomba: te kodne vrstice zaprejo uporabniški obrazec Excel VBA in prikažejo izbrano postavko in zvrst. Izjava 'On Error Resume Next' ne upošteva napake, ko uporabnik izpolni svoj film (v tem primeru žanr ni na voljo).

13. Dvokliknite gumb Prekliči.

14. Dodajte naslednjo kodno vrstico:

Zasebno PodCommandButton2_Click ()

Raztovori me

Konec Pod

Rezultat, ko izberete Hitrost in kliknete V redu.

kako v Excelu postavim vrstico skozi besedilo

Rezultat kombiniranega polja z več stolpci

Rezultat kombiniranega polja z več stolpci

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



^