/ / Excel VBA-tilleggsknapper

Excel VBA-tilleggsknapper

Hvis du har mer enn en alternativknapp, kan bare en av alternativknappene velges. Å lage alternativknappene i Excel VBA, utfør følgende trinn.

1. På fanen Utvikler klikker du Sett inn.

2. I ActiveX Controls-gruppen klikker du Alternativknapp.

Opprett en alternativknapp i Excel VBA

3. Dra to alternativknapper på regnearket.

4. Høyreklikk på den første alternativknappen (pass på at designmodus er valgt).

5. Klikk Vis kode.

Vis kode

Merk: Du kan endre bildeteksten og navnet på en kontroll ved å høyreklikke på kontrollen (pass på at designmodus er valgt), og klikk deretter på Egenskaper. Endre bildeteksten på alternativknappene til Kvinne og Mann. For nå vil vi forlate OptionButton1 og OptionButton2 som navnene på alternativknappene.

6. Legg til følgende kodelinje:

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

7. Høyreklikk på den andre alternativknappen (pass på at designmodus er valgt).

8. Klikk Vis kode.

9. Legg til følgende kodelinje:

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

10. Klikk på alternativknappene på arket (pass på at designmodus er avvalgt).

Resultat:

Alternativknapp 1 True

Alternativknapp 2 True

Selv om det i noen situasjoner kan være nyttig å plassere alternativknapper direkte på regnearket, er valgknappene spesielt nyttige når de plasseres på en brukerform.

Les også: