VBA varat izveidot Opcijas poga lai lietotājs varētu izvēlēties no vairākām iespējām. Poga Opcija bieži tiek izmantota Userforms, bet to var izmantot arī darblapā. Šajā apmācībā jūs uzzināsit, kā izveidot pogu Opcija, iegūt lietotāja izvēli VBA un izmantot to kodā.
Ja vēlaties uzzināt, kā izveidot izvēles rūtiņu, noklikšķiniet šeit: VBA izvēles rūtiņa
Izveidot opciju pogu
Lai darblapā ievietotu opcijas pogu, jums jādodas uz Cilne Izstrādātājs, klikšķis Ievietot un sadaļā ActiveX vadīklas izvēlieties Opcijas poga:
Attēls 1. Darblapā ievietojiet opcijas pogu
Atlasot ievietošanas pogu Opcija, varat noklikšķināt uz Rekvizīti saskaņā Cilne Izstrādātājs:
Attēls 2. Mainiet opcijas pogu Properties (Rekvizīti)
Šeit jūs varat iestatīt dažādus opcijas pogas rekvizītus. Sākumā mēs mainījām atribūtu Vārds uz optOptionButton1. Tagad mēs varam izmantot opcijas pogu ar šo nosaukumu VBA kodā.
Mēs arī mainījām tekstu, kas parādās blakus pogai Opcija, uz Vīrietis. Lai to izdarītu, jums ir jāiestata atribūts Paraksts.
Tā kā mēs vēlamies ļaut lietotājam izvēlēties dzimumu, mēs atkārtosim visu procesu vēl vienai opcijas pogai. Otrajam ir nosaukums optOptionButton2, kamēr uzraksts ir Sieviete. Varat arī izveidot jaunu opcijas pogu, kopējot esošo un mainot rekvizītus. Tagad mūsu darblapā ir divas iespēju pogas:
Attēls 3. Ievietojiet otro iespēju pogu
Iegūstiet atlasītās opcijas pogu VBA
Opcijas pogas mērķis ir panākt lietotāju lēmumu. Piemērā mēs parādīsim, kā rakstīt Vīrietis šūnā C3, ja ir izvēlēta opcijas poga 1 vai Sieviete ja tiek izvēlēta otrā. Katrai opcijas pogai ir savs notikums, kas tiek aktivizēts pēc tās izvēles - Klikšķis.
Tāpēc pirmajai opcijas pogai notikumā ir jāievieto šāds kods Klikšķis no objekta optOptionButon1:
| 123456789 | Privāts apakšoptoptionButton1_Click ()Ja Sheet1.optOptionButton1.Value = True TadSheet1.Range ("C3") = "Vīrietis"Beigas JaBeigu apakš |
Līdzīgi mēs ievietojam šo kodu notikumā Klikšķis no objekta optOptionButton2:
| 123456789 | Privāta apakšopOptionButton2_Click ()Ja Sheet1.optOptionButton2.Value = True TadSheet1.Range ("C3") = "Sieviete"Beigas JaBeigu apakš |
Pogas Opcija vērtība irVērtība objekta atribūts optOptionButton1 vai optOptionButton2. Pogas Opcija vērtība var būt patiesa, ja tā ir izvēlēta, vai nepatiesa, ja tā nav izvēlēta.
3. attēls. Atgrieziet vīrieti, ja ir izvēlēta pirmā opcijas poga
Kā redzat 3. attēlā, mēs noklikšķinājām uz pirmās opcijas pogas. Tāpēc vērtība Sheet1.optOptionButton1.Value ir taisnība, tāpēc rezultāts C3 ir Vīrietis.
4. attēls. Atgrieziet sievieti, ja ir izvēlēta otrā opcijas poga
Līdzīgi kā iepriekšējā piemērā, C3 vērtība tiek mainīta uz Sieviete, jo esam izvēlējušies otro opcijas pogu. Šajā gadījumā procedūra optOptionButton2_Click () tiek iedarbināts.
Lietotāja veidlapā izmantojiet opcijas pogu
Kā jau minējām, poga Opcija visbiežāk tiek izmantota Userforms. Lai izskaidrotu, kā to izdarīt, mēs vispirms ievietojam Userform. VBA redaktorā ar peles labo pogu noklikšķiniet uz moduļa nosaukuma, noklikšķiniet uz Ievietot un izvēlēties UserForm:
5. attēls. Ievietojiet Userform
Lai parādītu ievietošanas vadīklas, jums ir jāiespējo Instrumentu kaste. Lai to izdarītu, noklikšķiniet uzInstrumentu kaste ikonu rīkjoslā. Pēc tam jūs iegūsit logus ar visām pieejamajām vadības ierīcēm. Jūs varat noklikšķināt uzOpcijas poga lai to izveidotu Userform:
6. attēls. Lietotāja formā ievietojiet opcijas pogu
Rekvizītu logā mēs mainām opcijas pogas nosaukumu uz optOptionButton1 un parakstu uz Vīrietis. Līdzīgi mēs izveidojām vēl vienu iespēju pogu sievietēm. Palaižot Userform, mēs iegūstam divas opciju pogas:
7. attēls. Divas opciju pogas Userform
Ja vēlaties iegūt atlasīto pogu Opcija, jums jāizmanto tāda pati loģika kā darblapai, kas ir izskaidrota iepriekš rakstā.
