In VBA kun je een maken CheckBox waar een gebruiker de optie kan aan- of uitvinken. Een Checkbox wordt vaak gebruikt in Userforms, maar kan ook gebruikt worden in een Worksheet. In deze zelfstudie leert u hoe u een selectievakje maakt, een gebruikerskeuze in VBA krijgt en deze in code gebruikt.
Als je wilt leren hoe je een Listbox maakt, klik dan hier: VBA Listbox
Als je wilt leren hoe je een Combobox maakt, klik dan hier: VBA Combobox
Een selectievakje maken
Om een selectievakje in het werkblad in te voegen, moet u naar de Tabblad Ontwikkelaars, Klik Invoegen en kies onder ActiveX-besturingselementen: Selectievakje:
Afbeelding 1. Plaats een selectievakje in het werkblad
Wanneer u het selectievakje selecteert dat u hebt ingevoegd, kunt u klikken op Eigendommen onder de Tabblad Ontwikkelaars:
Afbeelding 2. Eigenschappen van selectievakje wijzigen
Hier kunt u verschillende eigenschappen van het selectievakje instellen. Om te beginnen hebben we het attribuut gewijzigd: Naam tot cmbCheckbox. Nu kunnen we het selectievakje gebruiken met deze naam in VBA-code.
Ook hebben we de tekst die naast het selectievakje verschijnt gewijzigd in: Akkoord met de voorwaarden. Om dit te doen, moet u het attribuut instellen Onderschrift.
Krijg een geselecteerd item van een selectievakje in VBA
Het doel van een checkbox is om een gebruikerskeuze te krijgen (checkbox aangevinkt of niet). Om een waarde op te halen die door de gebruiker is geselecteerd, moet u deze code gebruiken:
123456789 | Als Sheet1.chbCheckBox.Value = True DanSheet1.Range("C3") = "Akkoord"AndersSheet1.Range("C3") = "Niet akkoord"Stop als |
We willen cel C3 vullen met Mee eens als het selectievakje is aangevinkt en Niet mee eens anders. De waarde van het selectievakje staat in deWaarde attribuut van het object Blad1.chbCheckbox. De waarde van het selectievakje kan waar of onwaar zijn.
Afbeelding 3. Haal een geselecteerde waarde uit het selectievakje in VBA
Toen we het selectievakje aanvinkten, werd de waarde van Blad1.chbCheckbox.Value is waar, dus het resultaat in C3 is Mee eens.
Gebruik een selectievakje in een gebruikersformulier
Zoals we al zeiden, wordt Checkbox het meest gebruikt in Userforms. Om uit te leggen hoe je dat kunt doen, voegen we eerst een Userform in. Klik in de VBA-editor met de rechtermuisknop op Modulenaam, klik op Invoegen en kies Gebruikersformulier:
Afbeelding 8. Een gebruikersformulier invoegen
Om bedieningselementen voor het invoegen weer te geven, moet u de Gereedschapskist. Klik hiervoor op deGereedschapskist pictogram in de werkbalk. Daarna krijgt u de vensters met alle beschikbare bedieningselementen. U kunt klikken op Selectievakje om het aan te maken in het gebruikersformulier:
Afbeelding 9. Plaats een selectievakje in het gebruikersformulier
In het eigenschappenvenster zullen we de naam van het selectievakje wijzigen in: chbCheckBox en onderschrift bij Akkoord met de voorwaarden. Wanneer we het gebruikersformulier uitvoeren, krijgen we het selectievakje erin.
Afbeelding 10. Het selectievakje in het gebruikersformulier
Als u de geselecteerde waarde uit het selectievakje wilt halen, moet u dezelfde logica gebruiken voor het selectievakje in een werkblad, wat eerder in het artikel is uitgelegd.