/ / Excel VBA-alternativknappar

Excel VBA-alternativknappar

Om du har fler än en alternativknapp kan endast en av alternativknapparna väljas. Att skapa alternativknappar i Excel VBA, utför följande steg.

1. På fliken Utvecklare klickar du på Infoga.

2. I ActiveX Controls-gruppen klickar du på Alternativsknapp.

Skapa en alternativknapp i Excel VBA

3. Dra två alternativknappar på ditt arbetsblad.

4. Högerklicka på den första alternativknappen (se till att designläget är valt).

5. Klicka på Visa kod.

Visa kod

Notera: Du kan ändra bildtexten och namnet på en kontroll genom att högerklicka på kontrollen (se till att designläget är valt) och klicka sedan på Egenskaper. Ändra bildtexten på alternativknapparna till Kvinna och Man. För tillfället lämnar vi OptionButton1 och OptionButton2 som namnen på alternativknapparna.

6. Lägg till följande kodrad:

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

7. Högerklicka på den andra alternativknappen (se till att designläget är valt).

8. Klicka på Visa kod.

9. Lägg till följande kodlinje:

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

10. Klicka på alternativknapparna på arket (se till att designläget är avmarkerat).

Resultat:

Alternativ Knapp 1 True

Alternativ Knapp 2 True

Även om det i vissa situationer kan vara användbart att direkt placera alternativknappar i ditt arbetsblad, är alternativknappar särskilt användbara när de placeras på en Userform.

Läs också: