I VBA kan du opprette en Alternativ -knapp slik at en bruker kan velge mellom flere alternativer. En Alternativ -knapp brukes ofte i brukerformer, men kan også brukes i et regneark. I denne opplæringen lærer du hvordan du oppretter en Alternativ -knapp, får et brukervalg i VBA og bruker det i kode.
Hvis du vil lære å lage en avkrysningsboks, klikker du her: VBA -avkrysningsboks
Lag en alternativknapp
For å sette inn en Alternativ -knapp i regnearket, må du gå til Kategorien Utvikler, klikk Sett inn og velg under ActiveX -kontroller Alternativknapp:
Bilde 1. Sett inn en alternativknapp i regnearket
Når du velger Alternativ -knappen som du satte inn, kan du klikke på Egenskaper under Kategorien Utvikler:
Bilde 2. Endre Alternativ -knappen Egenskaper
Her kan du angi forskjellige egenskaper for Alternativ -knappen. I begynnelsen endret vi attributtet Navn til optOptionButton1. Nå kan vi bruke Alternativ -knappen med dette navnet i VBA -koden.
Vi endret også teksten som vises ved siden av Alternativ -knappen til Hann. For å gjøre dette må du angi attributtet Bildetekst.
Ettersom vi ønsker å la en bruker velge kjønn, vil vi gjenta hele prosessen for en annen alternativknapp. Den andre har navn optOptionButton2, mens bildeteksten er Hunn. Du kan også opprette en ny alternativknapp ved å kopiere den eksisterende og endre egenskaper. Nå har vårt regneark to alternativknapper:
Bilde 3. Sett inn den andre alternativknappen
Få en valgt alternativknapp i VBA
Hensikten med en Alternativ -knapp er å få en brukerbeslutning. Vi vil vise i eksemplet hvordan du skriver Hann i celle C3 hvis alternativknappen 1 er valgt eller Hunn hvis den andre er valgt. Hver Alternativ -knapp har sin hendelse som utløses når den velges - Klikk.
Derfor må vi sette den følgende koden i hendelsen for den første alternativknappen Klikk av objektet optOptionButon1:
| 123456789 | Private Sub optOptionButton1_Click ()If Sheet1.optOptionButton1.Value = True ThenSheet1.Range ("C3") = "Mann"Slutt omSlutt Sub |
På samme måte vil vi sette denne koden i hendelsen Klikk av objektet optOptionButton2:
| 123456789 | Private Sub optOptionButton2_Click ()If Sheet1.optOptionButton2.Value = True ThenSheet1.Range ("C3") = "Kvinne"Slutt omSlutt Sub |
Verdien på Alternativ -knappen er iVerdi attributtet til objektet optOptionButton1 eller optOptionButton2. Verdien på Alternativ -knappen kan være sann hvis den er valgt eller usann hvis den ikke er valgt.
Bilde 3. Returner mann hvis den første alternativknappen er valgt
Som du kan se på bilde 3, klikket vi på den første alternativknappen. Derfor er verdien av Ark1.optOptionButton1.Value er sant, så resultatet i C3 er Hann.
Bilde 4. Return Female hvis den andre alternativknappen er valgt
På samme måte som forrige eksempel, endres verdien av C3 til Hunn, som vi har valgt den andre alternativknappen. I dette tilfellet, prosedyren optOptionButton2_Click () utløses.
Bruk en Alternativ -knapp i et brukerskjema
Som vi nevnte, brukes alternativknappen oftest i brukerformer. For å forklare hvordan du kan gjøre det, setter vi først inn et brukerskjema. I VBA-editor, høyreklikk på modulnavn, klikk på Sett inn og velg UserForm:
Bilde 5. Sett inn et brukerskjema
For å vise kontroller for innsetting må du aktivere Verktøykasse. For å gjøre dette, klikk påVerktøykasse ikonet på verktøylinjen. Etter det får du vinduene med alle tilgjengelige kontroller. Du kan klikke påAlternativ -knapp for å lage den i brukerformen:
Bilde 6. Sett inn en alternativknapp i brukerskjemaet
I egenskapsvinduet endrer vi navnet på Alternativ -knappen til optOptionButton1 og bildetekst til Hann. På samme måte opprettet vi en annen alternativknapp for kvinne. Når vi kjører brukerskjemaet, får vi to alternativknapper:
Bilde 7. To alternativknapper i Userform
Hvis du vil ha en valgt alternativknapp, må du bruke samme logikk som for et regneark, som er forklart tidligere i artikkelen.
