Pasirinkimo mygtukas „Excel VBA“

VBA galite sukurti Pasirinkimo mygtukas kad vartotojas galėtų pasirinkti iš kelių parinkčių. Mygtukas Parinktis dažnai naudojamas „Userforms“, bet taip pat gali būti naudojamas darbalapyje. Šioje pamokoje sužinosite, kaip sukurti parinkties mygtuką, gauti vartotojo pasirinkimą VBA ir naudoti jį kodu.

Jei norite sužinoti, kaip sukurti žymimąjį laukelį, spustelėkite čia: VBA žymimasis laukelis

Sukurkite parinkties mygtuką

Norėdami įterpti parinkties mygtuką į darbalapį, turite eiti į Skirtukas kūrėjas, spustelėkite Įdėti ir skiltyje „ActiveX“ valdikliai pasirinkite Pasirinkimo mygtukas:

Vaizdas 1. Į darbalapį įdėkite parinkties mygtuką

Pasirinkę pasirinkimo mygtuką, kurį įdėjote, galite spustelėti Savybės po Skirtukas kūrėjas:

Vaizdas 2. Pakeiskite parinkties mygtuką Ypatybės

Čia galite nustatyti skirtingas mygtuko Parinktis ypatybes. Pradžiai mes pakeitėme atributą vardas į optOptionButton1. Dabar mes galime naudoti parinkties mygtuką su šiuo pavadinimu VBA kode.

Be to, pakeitėme tekstą, esantį šalia parinkties mygtuko, į Patinas. Norėdami tai padaryti, turite nustatyti atributą Antraštė.

Kadangi norime leisti vartotojui pasirinkti lytį, pakartosime visą procesą dar vienam parinkties mygtukui. Antrasis turi pavadinimą „optOptionButton2“, o antraštė yra Moteris. Taip pat galite sukurti naują parinkties mygtuką, nukopijuodami esamą ir pakeisdami ypatybes. Dabar mūsų darbalapyje yra du parinkčių mygtukai:

Vaizdas 3. Įdėkite antrą parinkčių mygtuką

Gaukite pasirinktos parinkties mygtuką VBA

Parinkties mygtuko paskirtis yra priimti vartotoją sprendimą. Pavyzdyje parodysime, kaip rašyti Patinas langelyje C3, jei pasirinktas 1 parinkties mygtukas arba Moteris jei pasirenkamas antrasis. Kiekvienas parinkties mygtukas turi savo įvykį, kuris suaktyvinamas jį pasirinkus - Spustelėkite.

Todėl pirmam parinkties mygtukui įvykyje turime įvesti šį kodą Spustelėkite nuo objekto optOptionButon1:

123456789 Privatus subopOptionButton1_Click ()Jei Sheet1.optOptionButton1.Value = Tiesa tadaSheet1.Range ("C3") = "Patinas"Pabaiga JeiPabaiga Sub

Panašiai šį kodą įdėsime į įvykį Spustelėkite nuo objekto „optOptionButton2“:

123456789 Privatus subopOptionButton2_Click ()Jei Sheet1.optOptionButton2.Value = Tiesa tadaSheet1.Range ("C3") = "Moteris"Pabaiga JeiPabaiga Sub

Parinkties mygtuko reikšmė yraVertė objekto atributas optOptionButton1 arba „optOptionButton2“. Mygtuko Parinktis reikšmė gali būti teisinga, jei ji pasirinkta, arba klaidinga, jei nepasirinkta.

3 paveikslėlis. Grįžkite Male, jei pasirinktas pirmasis parinkties mygtukas

Kaip matote 3 paveikslėlyje, mes spustelėjome pirmąjį parinkties mygtuką. Todėl vertė Sheet1.optOptionButton1.Value yra tiesa, todėl rezultatas C3 yra Patinas.

4 paveikslėlis. Grįžti moterį, jei pasirinktas antrasis parinkties mygtukas

Panašiai kaip ir ankstesniame pavyzdyje, C3 vertė pakeičiama į Moteris, nes pasirinkome antrąjį parinkčių mygtuką. Šiuo atveju procedūra optOptionButton2_Click () yra suaktyvinamas.

„Userform“ naudokite parinkčių mygtuką

Kaip jau minėjome, mygtukas „Parinktis“ dažniausiai naudojamas „Userforms“. Norėdami paaiškinti, kaip tai padaryti, pirmiausia įterpsime „Userform“. VBA redaktoriuje dešiniuoju pelės mygtuku spustelėkite modulio pavadinimą, spustelėkite Įdėti ir pasirinkti UserForm:

5 paveikslėlis. Įterpkite vartotojo formą

Norėdami rodyti įterpimo valdiklius, turite įjungti Įrankių dėžė. Norėdami tai padaryti, spustelėkiteĮrankių dėžė piktogramą įrankių juostoje. Po to gausite langus su visais prieinamais valdikliais. Galite spustelėti antPasirinkimo mygtukas Norėdami jį sukurti naudotojo formoje:

6 paveikslėlis. Įdėkite parinkties mygtuką į vartotojo formą

Ypatybių lange pakeisime mygtuko Parinktis pavadinimą į optOptionButton1 ir antraštę į Patinas. Panašiai mes sukūrėme dar vieną parinkties mygtuką „Moteris“. Kai paleidžiame „Userform“, gauname du parinkčių mygtukus:

Vaizdas 7. Du parinkčių mygtukai Userform

Jei norite gauti pasirinktą mygtuką Parinktis, turite naudoti tą pačią logiką kaip ir darbalapyje, kuris paaiškintas anksčiau straipsnyje.

wave wave wave wave wave