VBA: ssa voit luoda Vaihtoehto -painike jotta käyttäjä voi valita useista vaihtoehdoista. Vaihtoehto -painiketta käytetään usein Userformsissa, mutta sitä voidaan käyttää myös laskentataulukossa. Tässä opetusohjelmassa opit luomaan Option -painikkeen, saamaan käyttäjän valinnan VBA: ssa ja käyttämään sitä koodissa.
Jos haluat oppia luomaan valintaruudun, napsauta tätä: VBA -valintaruutu
Luo Vaihtoehto -painike
Jos haluat lisätä vaihtoehto -painikkeen laskentataulukkoon, sinun on siirryttävä kohtaan Kehittäjä -välilehti, klikkaus Lisää ja valitse ActiveX -komponentit -kohdasta Vaihtoehto -painike:
Kuva 1. Lisää vaihtoehto -painike laskentataulukkoon
Kun valitset lisäämäsi Option -painikkeen, voit napsauttaa Ominaisuudet alla Kehittäjä -välilehti:
Kuva 2. Muuta Vaihtoehto -painikkeen Ominaisuudet -painiketta
Tässä voit asettaa Vaihtoehto -painikkeen eri ominaisuudet. Aluksi muutimme määritettä Nimi kohteeseen optOptionButton1. Nyt voimme käyttää Option -painiketta tällä nimellä VBA -koodissa.
Vaihdoimme myös Vaihtoehto -painikkeen vieressä olevan tekstin muotoon Uros. Voit tehdä tämän määrittämällä määritteen Kuvateksti.
Koska haluamme antaa käyttäjän valita sukupuolen, toistamme koko prosessin toiselle vaihtoehto -painikkeelle. Toisella on nimi optOptionButton2, vaikka kuvateksti on Nainen. Voit myös luoda uuden Vaihtoehto -painikkeen kopioimalla nykyisen ja muuttamalla ominaisuuksia. Nyt laskentataulukossamme on kaksi vaihtoehtopainiketta:
Kuva 3. Aseta toinen Option -painike paikalleen
Hanki Valittu vaihtoehto -painike VBA: ssa
Vaihtoehto -painikkeen tarkoitus on saada käyttäjät tekemään päätös. Näytämme esimerkissä kuinka kirjoittaa Uros solussa C3, jos valintanappi 1 on valittu tai Nainen jos toinen on valittu. Jokaisella Option -painikkeella on tapahtumansa, joka käynnistyy, kun se valitaan - Klikkaus.
Siksi ensimmäisen Vaihtoehto -painikkeen kohdalla meidän on lisättävä seuraava koodi tapahtumaan Klikkaus esineestä optOptionButon1:
| 123456789 | Yksityinen alivalintaOptionButton1_Click ()Jos Sheet1.optOptionButton1.Value = Tosi sittenSheet1.Range ("C3") = "Mies"Loppu JosEnd Sub |
Samoin lisäämme tämän koodin tapahtumaan Klikkaus esineestä optOptionButton2:
| 123456789 | Yksityinen alivalintaOptionButton2_Click ()Jos Sheet1.optOptionButton2.Value = Tosi sittenSheet1.Range ("C3") = "Naaras"Loppu JosEnd Sub |
Vaihtoehto -painikkeen arvo onArvo objektin attribuutti optOptionButton1 tai optOptionButton2. Vaihtoehto -painikkeen arvo voi olla tosi, jos se on valittu, tai epätosi, jos sitä ei ole valittu.
Kuva 3. Palauta mies, jos ensimmäinen vaihtoehtopainike on valittu
Kuten kuvasta 3 näet, napsautimme ensimmäistä Vaihtoehto -painiketta. Siksi arvo Sheet1.optOptionButton1.Value on totta, joten tulos C3: ssa on Uros.
Kuva 4. Palauta nainen, jos toinen vaihtoehtopainike on valittu
Kuten edellisessä esimerkissä, C3: n arvoksi muutetaan Nainen, kuten olemme valinneet toisen Vaihtoehto -painikkeen. Tässä tapauksessa menettely optOptionButton2_Click () käynnistyy.
Käytä Option -painiketta Userformissa
Kuten mainitsimme, Option -painiketta käytetään useimmiten Userformsissa. Selitämme, miten voit tehdä sen, lisäämme ensin Userformin. Napsauta VBA-editorissa Moduulin nimeä hiiren kakkospainikkeella ja napsauta Lisää ja valitse UserForm:
Kuva 5. Lisää käyttäjälomake
Jos haluat näyttää lisäämisen ohjaimet, sinun on otettava käyttöön Työkalupakki. Voit tehdä tämän napsauttamallaTyökalupakki -kuvaketta työkalurivillä. Tämän jälkeen saat ikkunat, joissa on kaikki käytettävissä olevat säätimet. Voit napsauttaaVaihtoehto -painike luodaksesi sen Userformissa:
Kuva 6. Lisää Option -painike Userformiin
Muutamme Ominaisuudet -ikkunassa Vaihtoehto -painikkeen nimeksi optOptionButton1 ja kuvatekstiksi Uros. Samoin loimme toisen Vaihtoehto -painikkeen naisille. Kun suoritamme Userformin, saamme kaksi vaihtoehtopainiketta:
Kuva 7. Kaksi vaihtoehtopainiketta Userfossarm
Jos haluat saada valitun Vaihtoehto -painikkeen, sinun on käytettävä samaa logiikkaa kuin laskentataulukossa, joka selitetään aiemmin artikkelissa.
