In VBA kun je een maken Optieknop om een gebruiker in staat te stellen uit verschillende opties te kiezen. Een optieknop wordt vaak gebruikt in gebruikersformulieren, maar kan ook in een werkblad worden gebruikt. In deze zelfstudie leert u hoe u een optieknop maakt, een gebruikerskeuze in VBA krijgt en deze in code gebruikt.
Als u wilt leren hoe u een Checkbox maakt, klik dan hier: VBA Checkbox
Een optieknop maken
Om een optieknop in het werkblad in te voegen, moet u naar de Tabblad Ontwikkelaars, Klik Invoegen en kies onder ActiveX-besturingselementen: Optie knop:
Afbeelding 1. Voeg een optieknop in het werkblad in
Wanneer u de optieknop selecteert die u hebt ingevoegd, kunt u klikken op Eigendommen onder de Tabblad Ontwikkelaars:
Afbeelding 2. Wijzig de optieknop Eigenschappen
Hier kunt u verschillende eigenschappen van de optieknop instellen. Om te beginnen hebben we het attribuut gewijzigd: Naam tot optOptieKnop1. Nu kunnen we de optieknop gebruiken met deze naam in VBA-code.
We hebben ook de tekst die naast de optieknop verschijnt gewijzigd in: Mannelijk. Om dit te doen, moet u het attribuut instellen Onderschrift.
Omdat we een gebruiker het geslacht willen laten kiezen, herhalen we het hele proces voor een andere optieknop. De tweede heeft naam optOptieKnop2, terwijl het bijschrift is Vrouwelijk. U kunt ook een nieuwe optieknop maken door de bestaande te kopiëren en eigenschappen te wijzigen. Nu heeft ons werkblad twee keuzerondjes:
Afbeelding 3. Voeg de tweede optieknop in
Krijg een geselecteerde optieknop in VBA
Het doel van een optieknop is om een beslissing van de gebruiker te krijgen. We zullen in het voorbeeld laten zien hoe te schrijven Mannelijk in de cel C3 als de optieknop 1 is gekozen of Vrouwelijk als de tweede wordt gekozen. Elke optieknop heeft zijn gebeurtenis die wordt geactiveerd wanneer deze wordt gekozen - Klik.
Daarom moeten we voor de eerste optieknop de volgende code in de gebeurtenis plaatsen: Klik van het object optOptieKnop1:
| 123456789 | Privé Sub optOptionButton1_Click()Als Blad1.optOptionButton1.Value = True DanBlad1.Bereik ("C3") = "Mannelijk"Stop alsEinde sub |
Op dezelfde manier zullen we deze code in het evenement plaatsen Klik van het object optOptieKnop2:
| 123456789 | Privé Sub optOptionButton2_Click()Als Blad1.optOptionButton2.Value = True DanBlad1.Bereik ("C3") = "Vrouwelijk"Stop alsEinde sub |
De waarde van de optieknop staat in deWaarde attribuut van het object optOptieKnop1 of optOptieKnop2. De waarde van de optieknop kan waar zijn als deze is gekozen of onwaar als deze niet is gekozen.
Afbeelding 3. Retour mannelijk als de eerste optieknop is gekozen
Zoals je kunt zien in afbeelding 3, hebben we op de eerste optieknop geklikt. Daarom is de waarde van Blad1.optOptieKnop1.Waarde is waar, dus het resultaat in C3 is Mannelijk.
Afbeelding 4. Return Female als de tweede optieknop is gekozen
Net als in het vorige voorbeeld wordt de waarde van C3 gewijzigd in Vrouwelijk, omdat we de tweede optieknop hebben gekozen. In dit geval is de procedure optOptionButton2_Click() wordt geactiveerd.
Gebruik een optieknop in een gebruikersformulier
Zoals we al zeiden, wordt de optieknop het vaakst gebruikt in gebruikersformulieren. Om uit te leggen hoe je dat kunt doen, voegen we eerst een Userform in. Klik in de VBA-editor met de rechtermuisknop op Modulenaam, klik op Invoegen en kies Gebruikersformulier:
Afbeelding 5. Een gebruikersformulier invoegen
Om bedieningselementen voor het invoegen weer te geven, moet u de Gereedschapskist. Klik hiervoor op deGereedschapskist pictogram in de werkbalk. Daarna krijgt u de vensters met alle beschikbare bedieningselementen. U kunt klikken op deKeuzerondje om het aan te maken in het gebruikersformulier:
Afbeelding 6. Voeg een optieknop in het gebruikersformulier in
In het eigenschappenvenster veranderen we de naam van de Option-knop in optOptionButton1 en bijschrift in Mannelijk. Op dezelfde manier hebben we nog een optieknop voor Vrouw gemaakt. Wanneer we het gebruikersformulier uitvoeren, krijgen we twee optieknoppen:
Afbeelding 7. Twee keuzerondjes in de Userform
Als u een geselecteerde optieknop wilt krijgen, moet u dezelfde logica gebruiken als voor een werkblad, wat eerder in het artikel is uitgelegd.
