V VBA lahko ustvarite Gumb za izbiro uporabniku omogoča izbiro med več možnostmi. Gumb možnosti se pogosto uporablja v uporabniških oblikah, lahko pa tudi na delovnem listu. V tej vadnici se boste naučili, kako ustvariti gumb možnosti, dobiti uporabniško izbiro v VBA in jo uporabiti v kodi.
Če se želite naučiti ustvariti potrditveno polje, kliknite tukaj: potrditveno polje VBA
Ustvarite gumb možnosti
Če želite v delovni list vstaviti gumb možnosti, pojdite na Zavihek za razvijalce, kliknite Vstavi in pod možnostjo Kontrolniki ActiveX izberite Gumb možnosti:
Slika 1. V delovni list vstavite gumb možnosti
Ko izberete gumb Možnosti, ki ste ga vstavili, lahko kliknete Lastnosti pod Zavihek za razvijalce:
Slika 2. Spremenite lastnosti gumba možnosti
Tu lahko nastavite različne lastnosti gumba Option. Za začetek smo spremenili atribut Ime do optOptionButton1. Zdaj lahko v kodi VBA uporabimo gumb Option s tem imenom.
Spremenili smo tudi besedilo, ki se prikaže poleg gumba Option (Možnost) Moški. Če želite to narediti, morate nastaviti atribut Napis.
Ker želimo uporabniku omogočiti izbiro spola, bomo celoten postopek ponovili za drug gumb Možnosti. Drugi ima ime optOptionButton2, medtem ko je napis Ženska. Nov gumb Option lahko ustvarite tudi tako, da kopirate obstoječega in spremenite lastnosti. Zdaj ima naš delovni list dva gumba za izbiro:
Slika 3. Vstavite drugi gumb z možnostmi
Pridobite gumb za izbrano možnost v VBA
Namen gumba možnosti je, da se uporabniki odločijo. V primeru bomo pokazali, kako pisati Moški v celici C3, če je izbran gumb možnosti 1 ali Ženska če je izbran drugi. Vsak gumb možnosti ima svoj dogodek, ki se sproži, ko je izbran - Kliknite.
Zato moramo za prvi gumb Možnosti vnesti naslednjo kodo v dogodek Kliknite predmeta optOptionButon1:
| 123456789 | Zasebno pod optOptionButton1_Click ()Če je Sheet1.optOptionButton1.Value = True PotemList1.Range ("C3") = "Moški"Konec ČeEnd Sub |
Podobno bomo to kodo vnesli v dogodek Kliknite predmeta optOptionButton2:
| 123456789 | Zasebno pod optOptionButton2_Click ()Če je Sheet1.optOptionButton2.Value = True PotemList1.Range ("C3") = "Ženska"Konec ČeEnd Sub |
Vrednost gumba Option je vVrednost atribut predmeta optOptionButton1 ali optOptionButton2. Vrednost gumba Option je lahko res, če je izbrana, ali false, če ni izbrana.
Slika 3. Vrni moškega, če je izbran prvi gumb Možnosti
Kot lahko vidite na sliki 3, smo kliknili prvi gumb Možnosti. Zato je vrednost Sheet1.optOptionButton1.Vrednost je res, zato je rezultat v C3 enak Moški.
Slika 4. Vrnitev samice, če je izbran drugi gumb možnosti
Podobno kot v prejšnjem primeru se vrednost C3 spremeni v Ženska, saj smo izbrali drugi gumb Možnosti. V tem primeru postopek optOptionButton2_Click () se sproži.
V uporabniškem obrazcu uporabite gumb z možnostmi
Kot smo omenili, se gumb Option najpogosteje uporablja v uporabniških oblikah. Če želite razložiti, kako lahko to storite, najprej vstavimo uporabniški obrazec. V urejevalniku VBA z desno tipko miške kliknite Ime modula, kliknite na Vstavi in izberite Uporabniški obrazec:
Slika 5. Vstavite uporabniški obrazec
Če želite prikazati kontrolnike za vstavljanje, morate omogočiti Orodjarna. Če želite to narediti, kliknite naOrodjarna ikono v orodni vrstici. Po tem boste dobili okna z vsemi razpoložljivimi kontrolami. Lahko kliknete naGumb za izbiro če ga želite ustvariti v uporabniškem obrazcu:
Slika 6. V uporabniški obrazec vstavite gumb z možnostmi
V oknu z lastnostmi spremenimo ime gumba Option v optOptionButton1 in napis v Moški. Podobno smo ustvarili še en gumb možnosti za ženske. Ko zaženemo Userform, dobimo dva gumba možnosti:
Slika 7. Dva gumba možnosti v uporabniškem menijurm
Če želite dobiti izbrani gumb Možnosti, morate uporabiti isto logiko kot za delovni list, ki je razložena prej v članku.
