I VBA kan du opprette en CheckBox hvor en bruker kan merke eller fjerne merket for alternativet. En avmerkingsboks brukes ofte i brukerformer, men kan også brukes i et regneark. I denne opplæringen lærer du hvordan du oppretter en avkrysningsboks, får et brukervalg i VBA og bruker det i kode.
Hvis du vil lære å lage en Listbox, klikker du her: VBA Listbox
Hvis du vil lære å lage en Combobox, klikk her: VBA Combobox
Lag en avkrysningsboks
For å sette inn en avmerkingsboks i regnearket, må du gå til Kategorien Utvikler, klikk Sett inn og velg under ActiveX -kontroller Avkrysningsboks:
Bilde 1. Sett inn en avmerkingsboks i regnearket
Når du merker av i avmerkingsboksen du satte inn, kan du klikke på Egenskaper under Kategorien Utvikler:
Bilde 2. Endre avmerkingsbokseigenskaper
Her kan du angi forskjellige egenskaper for avmerkingsboksen. I begynnelsen endret vi attributtet Navn til cmbSjekk av. Nå kan vi bruke avmerkingsboksen med dette navnet i VBA -koden.
Vi endret også teksten som vises ved siden av avmerkingsboksen til Godta vilkårene. For å gjøre dette må du angi attributtet Bildetekst.
Få et valgt element i en avmerkingsboks i VBA
Hensikten med en avkrysningsboks er å få et brukervalg (avmerkingsboks merket eller ikke). For å hente en verdi som er valgt av brukeren, må du bruke denne koden:
| 123456789 | Hvis Sheet1.chbCheckBox.Value = True ThenSheet1.Range ("C3") = "Enig"EllersSheet1.Range ("C3") = "Ikke enig"Slutt om |
Vi ønsker å fylle cellen C3 med Bli enige hvis avmerkingsboksen er merket og Ikke enig ellers. Verdien av avmerkingsboksen er iVerdi attributtet til objektet Ark1.chbSjekk av. Verdien av avmerkingsboksen kan være sann eller usann.
Bilde 3. Få en valgt verdi fra avmerkingsboksen i VBA
Da vi merket av i avmerkingsboksen, verdien av Sheet1.chbCheckbox.Value er sant, så resultatet i C3 er Bli enige.
Bruk en avkrysningsboks i et brukerskjema
Som vi nevnte, er avkrysningsboksen oftest brukt 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 8. 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å Avmerkingsboks for å lage den i brukerformen:
Bilde 9. Sett inn en avmerkingsboks i brukerskjemaet
I egenskapsvinduet endrer vi navnet på avmerkingsboksen til chbCheckBox og bildetekst til Godta vilkårene. Når vi kjører brukerskjemaet, får vi avmerkingsboksen i det.
Bilde 10. Avmerkingsboksen i brukerskjemaet
Hvis du vil få valgt verdi fra avmerkingsboksen, må du bruke den samme logikken for avmerkingsboksen i et regneark, som er forklart tidligere i artikkelen.
