U VBA možete stvoriti Gumb opcije omogućiti korisniku odabir između nekoliko mogućnosti. Gumb opcije se često koristi u korisničkim oblicima, ali se može koristiti i na radnom listu. U ovom vodiču naučit ćete kako stvoriti gumb Opcije, dobiti korisnički izbor u VBA -i i koristiti ga u kodu.
Ako želite naučiti kako stvoriti okvir za potvrdu, kliknite ovdje: VBA potvrdni okvir
Izradite gumb opcije
Da biste umetnuli gumb Opcije u radni list, morate otići na Kartica Developer, kliknite Umetnuti a pod ActiveX Controls odaberite Gumb opcije:
Slika 1. Umetnite gumb opcije u radni list
Kad odaberete gumb Opcija koji ste umetnuli, možete kliknuti na Svojstva ispod Kartica Developer:
Slika 2. Promijenite svojstva gumba Opcije
Ovdje možete postaviti različita svojstva gumba Opcija. Za početak smo promijenili atribut Ime do optOptionButton1. Sada možemo upotrijebiti gumb Option s ovim imenom u VBA kodu.
Također, tekst koji se pojavljuje pored gumba Opcija promijenili smo u Muški. Da biste to učinili, morate postaviti atribut Naslov.
Kako želimo omogućiti korisniku da odabere spol, ponovit ćemo cijeli postupak za drugi gumb Opcije. Druga ima ime optOptionButton2, dok je natpis Žena. Također možete stvoriti novi gumb Opcije kopiranjem postojećeg i promjenom svojstava. Sada naš radni list ima dva gumba za opcije:
Slika 3. Umetnite drugi gumb opcije
Dobijte gumb odabrane opcije u VBA
Svrha gumba Opcije je donijeti odluku korisnika. Na primjeru ćemo pokazati kako se piše Muški u ćeliji C3 ako je odabran gumb opcije 1 ili Žena ako se izabere druga. Svaki gumb opcije ima svoj događaj koji se pokreće kad ga odaberete - Klik.
Stoga za prvi gumb Opcije moramo staviti sljedeći kod u događaj Klik objekta optOptionButon1:
| 123456789 | Privatni podoptOptionButton1_Click ()Ako je Sheet1.optOptionButton1.Value = TačnoSheet1.Range ("C3") = "Muški"Završi akoKraj podm |
Slično, ovaj ćemo kôd staviti u događaj Klik objekta optOptionButton2:
| 123456789 | Privatni podoptOptionButton2_Click ()Ako je Sheet1.optOptionButton2.Value = TačnoSheet1.Range ("C3") = "Ženski"Završi akoKraj podm |
Vrijednost gumba Opcije nalazi se uVrijednost atribut objekta optOptionButton1 ili optOptionButton2. Vrijednost gumba Opcija može biti istinita ako je odabrana ili netočna ako nije odabrana.
Slika 3. Vratite muško ako je odabran prvi gumb opcije
Kao što možete vidjeti na slici 3, kliknuli smo na prvi gumb Opcije. Stoga je vrijednost Sheet1.optOptionButton1.Vrijednost je istina, pa je rezultat u C3 jednak Muški.
Slika 4. Vratite ženku ako je odabran drugi gumb opcije
Slično prethodnom primjeru, vrijednost C3 se mijenja u Žena, jer smo odabrali drugi gumb Opcije. U ovom slučaju postupak optOptionButton2_Click () se aktivira.
Upotrijebite gumb opcije u korisničkom obrascu
Kao što smo spomenuli, gumb Opcija se najčešće koristi u korisničkim oblicima. Da bismo objasnili kako to možete učiniti, prvo ćemo umetnuti Userform. U uređivaču VBA desnom tipkom miša kliknite naziv modula, a zatim kliknite Umetnuti i izabrati Korisnički obrazac:
Slika 5. Umetnite korisnički obrazac
Da biste prikazali kontrole za umetanje, morate omogućiti Kutija s alatima. Da biste to učinili, kliknite naKutija s alatima ikonu na alatnoj traci. Nakon toga dobit ćete prozore sa svim dostupnim kontrolama. Možete kliknuti naGumb opcije da biste ga stvorili u korisničkom obliku:
Slika 6. Umetnite gumb opcije u korisnički obrazac
U prozoru svojstava mijenjamo naziv gumba Option u optOptionButton1 i natpis u Muški. Slično, stvorili smo još jedan gumb opcije za žene. Kada pokrenemo Userform, dobit ćemo dva gumba Opcije:
Slika 7. Dva gumba opcija u korisničkom sučeljurm
Ako želite dobiti odabrani gumb Opcije, morate koristiti istu logiku kao i za Radni list, što je objašnjeno ranije u članku.
