/ / Excel VBA-optieknoppen

Excel VBA-optieknoppen

Als u meer dan één optieknop hebt, kan slechts één van de optieknoppen worden geselecteerd. Maken optieknoppen in Excel VBA, voer de volgende stappen uit.

1. Klik op het tabblad Ontwikkelaar op Invoegen.

2. Klik in de groep ActiveX-besturingselementen op de optieknop.

Maak een optieknop in Excel VBA

3. Sleep twee optieknoppen op uw werkblad.

4. Klik met de rechtermuisknop op de eerste optieknop (zorg ervoor dat de Ontwerpmodus is geselecteerd).

5. Klik op Code weergeven.

Bekijk code

Notitie: u kunt het bijschrift en de naam van een besturingselement wijzigen door met de rechtermuisknop op het besturingselement te klikken (zorg ervoor dat de Ontwerpmodus is geselecteerd) en klik vervolgens op Eigenschappen. Wijzig de bijschriften van de optieknoppen in Vrouw en Man. Voorlopig laten we OptionButton1 en OptionButton2 als de namen van de optieknoppen.

6. Voeg de volgende coderegel toe:

If OptionButton1.Value = True Then Range("D3").Value = 10

7. Klik met de rechtermuisknop op de tweede optieknop (zorg ervoor dat de Ontwerpmodus is geselecteerd).

8. Klik op Code bekijken.

9. Voeg de volgende coderegel toe:

If OptionButton2.Value = True Then Range("D3").Value = 20

10. Klik op de optieknoppen op het blad (zorg ervoor dat Ontwerpmodus is uitgeschakeld).

Resultaat:

Optieknop 1 Waar

Optieknop 2 Waar

Hoewel het in sommige situaties handig kan zijn om keuzerondjes direct op uw werkblad te plaatsen, zijn keuzerondjes met name handig wanneer ze op een gebruikersformulier worden geplaatst.

Lees ook: