Selectievakjes in Excel: voeg selectievakjes toe, selecteer ze, verwijder ze en gebruik ze in Excel

Een selectievakje is een interactief hulpmiddel waarmee u eenvoudig een optie kunt in- of uitschakelen. U ziet ze vaak op webformulieren en bij het invullen van enquêtes. In Excel maakt u talloze mogelijkheden waar: door een selectievakje aan of uit te vinken, wordt uw werkblad direct dynamischer en interactiever. Zo stelt u bijvoorbeeld moeiteloos checklists samen of voegt u dynamische grafieken toe.

In deze handleiding laat ik u zien hoe u selectievakjes kunt invoegen, selecteren en verwijderen, inclusief praktische voorbeelden van hun toepassing in Excel.

Twee soorten selectievakjes (Selectievakje Formulierbesturingselement versus Selectievakje ActiveX-besturingselement)

Om een selectievakje in te voegen, moet u eerst het tabblad Ontwikkelaar zichtbaar maken op het lint. Dit tabblad is standaard uitgeschakeld en dient daarom handmatig ingeschakeld te worden.

1. Klik in het Excel-werkboek op Bestand > Opties. In het dialoogvenster Excel-opties klikt u op Aanpassen Lint, schakelt u vervolgens de optie Ontwikkelaar in en klikt u op de knop OK om dit dialoogvenster te sluiten.

2. Het tabblad Ontwikkelaar verschijnt nu in het Excel-lint, zoals te zien is op de onderstaande schermafbeelding. Vanaf het tabblad Ontwikkelaar kunt u diverse interactieve besturingselementen gebruiken, afgestemd op uw behoeften.

Microsoft Excel biedt twee soorten selectievakjes:Selectievakje Formulierbesturingselementen Selectievakje ActiveX-besturingselement:

Het Selectievakje Formulierbesturingselement is veel eenvoudiger dan het Selectievakje ActiveX-besturingselement, en het Selectievakje ActiveX-besturingselement is flexibeler qua ontwerp en kan als object in code worden gebruikt. Voor ons dagelijks werk volstaan de formulierbesturingselementen, dus gebruiken we deze meestal.

Selectievakje Formulierbesturingselement versus Selectievakje ActiveX-besturingselement:

• ActiveX-besturingselementen bieden meer opmaakopties; u kunt ze gebruiken voor een verfijnd en flexibel ontwerp;
• Formulierbesturingselementen zijn ingebouwd in Excel, terwijl ActiveX-besturingselementen afzonderlijk worden geladen en daarom af en toe kunnen vastlopen;
• Sommige computers vertrouwen standaard ActiveX-besturingselementen niet, dus moet u deze handmatig inschakelen via het Trustcentrum;
• Selectievakje ActiveX-besturingselementen zijn via de VBA-editor programmeerbaar toegankelijk;
• ActiveX is alleen beschikbaar via de Windows-optie en wordt niet ondersteund op macOS.

Opmerking: Alle selectievakjes waarover ik in de volgende tutorials spreek, zijn selectievakjes van het type Formulierbesturingselementen.

Eén of meerdere selectievakjes toevoegen in Excel

Deze sectie helpt u bij het invoegen van één of meer selectievakjes.

2,1 Eén selectievakje invoegen

Voer de volgende stappen uit om een selectievakje in te voegen:

1. Klik op het tabblad Ontwikkelaar, klik vervolgens op Invoegen in de groep Besturingselementen en selecteer daarna Selectievakje onder Formulierbesturingselementen. Klik vervolgens op een cel waar u het selectievakje wilt invoegen; het selectievakje verschijnt dan in de buurt van die cel (zie schermafbeeldingen):

2. Plaats daarna uw cursor op de rand van het selectiekader rond het selectievakje. Zodra de cursor verandert in de verplaatsaanwijzer, sleept u het selectievakje naar de gewenste cel (zie schermafbeeldingen):

2,2 Meerdere selectievakjes invoegen

Als u meerdere selectievakjes in uw werkblad nodig heeft, bespreken we hier enkele snelle methoden.

Voeg meerdere selectievakjes in met de optie Vulgreep

Voeg eerst één selectievakje toe zoals hierboven beschreven en gebruik vervolgens de vulgreep om snel meerdere selectievakjes naar andere cellen te kopiëren.

1. Klik op de cel om het selectievakje te selecteren.

2. Sleep de vulgreep omlaag om de selectievakjes in te vullen, zoals op de onderstaande schermafbeelding wordt getoond:

Voeg meerdere selectievakjes in met VBA-code

De volgende VBA-code helpt u ook om snel en eenvoudig een lijst met selectievakjes in te voegen. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op Invoegen > Module en plak de volgende code in het Module-venster.

VBA-code: Meerdere selectievakjes invoegen in een lijst met cellen

Sub InsertCheckBoxes()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

3. Druk op de toets F5 om deze code uit te voeren. Er verschijnt een meldingsvenster waarin u wordt gevraagd een bereik van cellen te selecteren voor het invoegen van de selectievakjes (zie schermafbeelding):

4. Klik daarna op de knop OK, waarna de selectievakjes direct netjes in de cellen worden geplaatst (zie schermafbeelding):

Voeg meerdere selectievakjes in met een handige functie

Als u Kutools voor Excel hebt, kunt u met de functie Batch invoegen Selectievakje direct selectievakjes invoegen in lege cellen of in cellen met gegevens.

1. Selecteer een bereik met cellen waarin u selectievakjes wilt invoegen.

2. Klik vervolgens op Kutools > Invoegen > Batch invoegen Selectievakje, zie schermafbeelding:

3. De geselecteerde cellen worden vervolgens gevuld met selectievakjes, zoals te zien is op de volgende schermafbeeldingen:

Voeg selectievakjes in bij lege cellen	Voeg selectievakjes in bij gegevenscellen

De naam en bijschrifttekst van het selectievakje wijzigen

Bij het gebruik van een selectievakje in Excel is het belangrijk onderscheid te maken tussen de naam van het selectievakje en de bijschriftnaam. De bijschriftnaam is de tekst die naast het selectievakje wordt weergegeven, terwijl de naam van het selectievakje verschijnt in het Naamvak zodra het selectievakje is geselecteerd (zie de schermafbeeldingen hieronder):

Naam selectievakje	Bijschrift

Om de bijschriftnaam te wijzigen, klikt u met de rechtermuisknop op het selectievakje en kiest u Tekst bewerken in het contextmenu. Typ daarna de gewenste nieuwe naam (zie schermafbeeldingen):

Om de naam van het selectievakje te wijzigen, selecteert u het selectievakje en typt u de gewenste naam in het Naamvak, zoals op onderstaande schermafbeelding wordt getoond:

Eén of meerdere selectievakjes koppelen aan cellen

Bij het gebruik van selectievakjes koppelt u deze vaak aan cellen: als het vakje is aangevinkt, toont de cel WAAR; als het niet is aangevinkt, toont de cel ONWAAR of blijft leeg. In deze sectie leest u hoe u één of meerdere selectievakjes koppelt aan cellen in Excel.

4,1 Eén selectievakje koppelen aan een cel met de functie Besturingselement opmaken

Voer de volgende stappen uit om het selectievakje te koppelen aan een bepaalde cel:

1. Klik met de rechtermuisknop op het selectievakje en kies Besturingselement opmaken in het contextmenu (zie schermafbeelding):

2. In het dialoogvenster Object opmaken, onder het tabblad Besturingselement, klikt u in het vak Celkoppeling op de cel waaraan u het selectievakje wilt koppelen, of typt u handmatig de celverwijzing (zie schermafbeelding):

3. Klik op OK om het dialoogvenster te sluiten. Het selectievakje is nu gekoppeld aan een specifieke cel: als u het aanvinkt, wordt WAAR weergegeven; als u het uitschakelt, verschijnt ONWAAR, zoals in de onderstaande demo wordt getoond:

4,2 Meerdere selectievakjes koppelen aan cellen met VBA-code

Als u meerdere selectievakjes wilt koppelen aan cellen met de functie **Besturingselement opmaken**, moet u de bovenstaande stappen telkens opnieuw herhalen — een tijdrovend proces wanneer u honderden of zelfs duizenden selectievakjes moet koppelen. Gelukkig biedt de VBA-code hieronder een snelle oplossing om al die selectievakjes in één keer aan cellen te koppelen.

1. Ga naar het werkblad met de selectievakjes.

2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

3. Klik vervolgens op Invoegen > Module en plak de volgende code in het Module-venster.

VBA-code: Meerdere selectievakjes tegelijk koppelen aan cellen

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "C"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

Opmerking: In deze code is i = 2 het getal 2 de beginwaarde van uw selectievakje, en is xCChar = „C" de letter C de kolom waaraan u de selectievakjes wilt koppelen. U kunt deze naar wens aanpassen.

4. Druk op F5 om deze code uit te voeren. Alle selectievakjes in het actieve werkblad worden tegelijkertijd gekoppeld aan de opgegeven cellen. Wanneer u een selectievakje aanvinkt, wordt in de bijbehorende cel WAAR weergegeven; wanneer u het selectievakje uitschakelt, wordt ONWAAR weergegeven. Zie onderstaande schermafbeelding:

Selecteer één of meerdere selectievakjes

Om selectievakjes in een werkblad te kopiëren of verwijderen, moet u ze eerst selecteren. Volg deze stappen om één of meer selectievakjes te selecteren:

Selecteer één selectievakje: (twee methoden)

• Klik met de rechtermuisknop op het selectievakje en klik daarna ergens binnen het vakje.
• OF
• Houd de Ctrl-toets ingedrukt en klik vervolgens op het selectievakje.

Selecteer meerdere selectievakjes:

Houd de Ctrl-toets ingedrukt en klik vervolgens één voor één op de selectievakjes die u wilt selecteren.

Verwijder één of meerdere selectievakjes

Eén selectievakje verwijderen is eenvoudig: selecteer het en druk op de Delete-toets van uw toetsenbord. Maar hoe verwijdert u meerdere selectievakjes tegelijk in Excel?

6,1 Meerdere selectievakjes verwijderen met VBA-code

Om alle selectievakjes in een werkblad te verwijderen, gebruikt u de volgende VBA-code.

1. Houd de ALT + F11-toetsen ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Verwijder alle selectievakjes in Huidig werkblad

Sub RemoveCheckboxes()
'Update by Extendoffice
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

3. Druk daarna op F5 om de code uit te voeren. Alle selectievakjes in het betreffende werkblad worden dan tegelijkertijd verwijderd.

6,2 Meerdere selectievakjes verwijderen met een eenvoudige functie

Met de functie Kutools voor Excel’s Verwijder selectievakjes in batch verwijdert u selectievakjes uit een bereik of complete werkbladen met slechts enkele muisklikken.

1. Selecteer het celbereik of het volledige werkblad met de selectievakjes die u wilt verwijderen.

2. Klik vervolgens op Kutools > Verwijderen > Verwijder selectievakjes in batch, zie schermafbeelding:

3. Vervolgens worden alle selectievakjes tegelijkertijd uit de selectie verwijderd.

Selectievakjes groeperen in Excel

Wanneer u meerdere selectievakjes tegelijk wilt verplaatsen of van grootte wilt wijzigen, kunt u ze groeperen om ze eenvoudig als één geheel te beheren. In dit gedeelte leest u hoe u meerdere selectievakjes groepeert in een Excel-werkblad.

7,1 Selectievakjes groeperen met de functie Groeperen

In Excel helpt de functie Groeperen u bij het groeperen van meerdere selectievakjes. Volg deze stappen:

1. Houd de Ctrl-toets ingedrukt en klik vervolgens één voor één op de selectievakjes die u wilt groeperen. Zie schermafbeelding:

2. Klik daarna met de rechtermuisknop en kies Groeperen > Groeperen in het contextmenu. Zie schermafbeelding:

3. Zodra alle geselecteerde selectievakjes zijn gegroepeerd, kunt u ze tegelijkertijd verplaatsen of kopiëren.

7,2 Selectievakjes groeperen met de opdracht Groepsvenster

Daarnaast kunt u ook het Groepsvenster gebruiken om meerdere selectievakjes samen te groeperen. Volg hiervoor de volgende stappen:

1. Ga naar het tabblad Ontwikkelaar en klik vervolgens op Invoegen > Groepsvenster (formulierbesturingselement), zie schermafbeelding:

2. Sleep daarna met de muis om een groepsvenster te tekenen en pas de bijschriftnaam van het groepsvenster naar wens aan:

3. U kunt nu selectievakjes in het groepsvenster invoegen door te klikken op Ontwikkelaar > Invoegen > Selectievakje (formulierbesturingselement). Zie de schermafbeelding:

4. Sleep vervolgens met de muis om een selectievakje te tekenen en pas de bijschriftnaam naar wens aan. Zie de schermafbeeldingen:

5. Voeg op dezelfde manier andere selectievakjes toe aan het groepsvenster. Het resultaat ziet er dan uit zoals op de schermafbeelding hieronder:

Voorbeelden: Hoe u selectievakjes in Excel gebruikt

Uit bovenstaande informatie heeft u al enkele basisinzichten over selectievakjes opgedaan. In dit gedeelte leg ik uit hoe u selectievakjes kunt inzetten voor interactieve en dynamische bewerkingen in Excel.

Voorbeeld 1: Maak een takenlijst met selectievakjes

Een takenlijst is handig om afgeronde taken in uw dagelijkse werk gemakkelijk te markeren. In een standaard takenlijst worden aangevinkte, voltooide taken automatisch voorzien van doorhalingsopmaak, zoals u op de onderstaande schermafbeelding ziet. Met selectievakjes maakt u in een handomdraai een interactieve takenlijst.

Volg de volgende stappen om een takenlijst met selectievakjes te maken:

1. Voeg selectievakjes toe in de lijst met cellen waarin u ze wilt gebruiken. Zie de schermafbeelding: ()Klik hier om te zien hoe u meerdere selectievakjes invoegt)

2. Koppel elk selectievakje aan een afzonderlijke cel nadat u ze hebt ingevoegd.

3. Nadat u de selectievakjes aan cellen hebt gekoppeld, wordt WAAR weergegeven als het vakje is aangevinkt en ONWAAR als dat niet het geval is. Zie de schermafbeelding:

4. Pas vervolgens de functie Voorwaardelijke opmaak gebruiken toe en voer de volgende stappen uit: selecteer het celbereik A2:C8 waarvoor u een takenlijst wilt maken en klik op Start > Voorwaardelijke opmaak gebruiken > Nieuwe regel om naar het dialoogvenster Nieuwe opmaakregel te gaan.

5. Klik in het dialoogvenster Nieuwe opmaakregel op Gebruik een formule om te bepalen welke cellen moeten worden opgemaakt in het vak Selecteer een regeltype en voer vervolgens de formule =C2=WAAR in het tekstvak Opmaakwaarden waarbij deze formule WAAR is in. Zie schermafbeelding:

Opmerking: C2 is de cel die aan het selectievakje is gekoppeld.

6. Klik vervolgens op de knop Opmaak om naar het dialoogvenster Celopmaak instellen te gaan. Schakel onder het tabblad Lettertype de optie Doorhalen in bij de sectie Effecten, en kies de gewenste kleur voor het voltooide takenlijstitem; zie schermafbeelding:

7. Klik vervolgens op OK > OK om de dialoogvensters te sluiten. Wanneer u nu het selectievakje aanvinkt, wordt het bijbehorende item doorgestreept, zoals in de onderstaande demo wordt getoond:

Voorbeeld 2: Dynamische grafiek maken met selectievakjes

Soms moet u veel gegevens en informatie weergeven in één grafiek, waardoor deze onoverzichtelijk wordt. In dat geval kunt u selectievakjes gebruiken om een dynamische grafiek in uw werkblad te maken. Wanneer u een selectievakje aanvinkt, wordt de bijbehorende gegevensreeks weergegeven; als u het uitvinkt, verdwijnt de gegevensreeks, zoals in onderstaande demo wordt getoond.

In dit gedeelte worden twee snelle methoden besproken om dit type grafiek in Excel te maken.

Maak een interactieve grafiek met selectievakjes in Excel

Normaal gesproken kunt u in Excel een dynamische grafiek maken met behulp van selectievakjes via de volgende stappen:

1. Voeg een paar selectievakjes in en geef ze een nieuwe naam. In dit voorbeeld voeg ik drie selectievakjes in en hernoem ze tot Appel, Sinaasappel en Perzik, zoals te zien is in de schermafbeelding:

2. Koppel vervolgens deze selectievakjes aan cellen. Selecteer het eerste selectievakje, klik er met de rechtermuisknop op en kies Besturingselement opmaken. Ga in het dialoogvenster Object opmaken naar het tabblad Besturingselement en geef in het vak Celkoppeling de cel op waaraan het selectievakje moet worden gekoppeld; zie schermafbeelding:

3. Herhaal de bovenstaande stap om de andere twee selectievakjes te koppelen aan verschillende cellen. Wanneer u een selectievakje aanklikt, verschijnt TRUE; wanneer u het uitschakelt, verschijnt FALSE—zoals in de onderstaande demo wordt getoond:

4. Nadat u de selectievakjes hebt ingevoegd en gekoppeld, moet u de gegevens voorbereiden. Kopieer de rij- en kolomkoppen van de oorspronkelijke gegevens naar een andere locatie; zie schermafbeelding:

5. Pas daarna de onderstaande formules toe:

• In cel B13:=ALS($B$6;B2;NB()), en sleep de vulgreep om de rij van B13 tot G13 te vullen;
• In cel B14:=ALS($B$7;B3;NB()),en sleep de vulgreep om de rij van B14 tot G14 te vullen;
• Voer in cel B15: =ALS($B$8;B4;NB()) in en sleep de vulgreep om het bereik van B15 tot G15 te vullen.
• Deze formules Retourneerwaarde uit de oorspronkelijke gegevens als het selectievakje voor dat product is aangevinkt, en #N/B als het niet is aangevinkt. Zie schermopname:

6. Selecteer vervolgens het nieuwe gegevensbereik van A12 tot G15 en klik daarna op Invoegen > Lijn- of oppervlaktediagram invoegen > Lijn om een lijndiagram in te voegen.

7. Wanneer u het productselectievakje aanklikt, verschijnt de bijbehorende gegevenslijn; zodra u het uitschakelt, verdwijnt deze weer—zoals in de onderstaande demo wordt getoond:

8. Nadat u de grafiek hebt gemaakt, plaatst u selectievakjes op de grafiek voor een nette weergave. Klik op het tekengebied om het te selecteren en sleep om het te verkleinen; zie schermafbeelding:

9. Houd de toets Ctrl ingedrukt om de drie selectievakjes te selecteren, sleep ze naar de grafiek en klik met de rechtermuisknop om Naar voren brengen > Naar voren brengen te kiezen; zie schermafbeelding:

10. De selectievakjes worden nu weergegeven op de grafiek. Houd de toets Ctrl ingedrukt om de selectievakjes en de grafiek één voor één te selecteren, klik met de rechtermuisknop en kies Groeperen > Groeperen; zie schermafbeelding:

11. De selectievakjes zijn nu gekoppeld aan het lijndiagram. Zodra u de grafiek verplaatst, volgen de selectievakjes automatisch mee.

Maak een interactieve grafiek met selectievakjes met een eenvoudige functie

De bovenstaande methode kan nogal omslachtig zijn. Daarom introduceer ik hier een veel eenvoudigere manier om deze taak uit te voeren: met de functie Kutools voor Excel’s Selectievakje Lijngrafiek maakt u moeiteloos een dynamische grafiek met selectievakjes.

1. Selecteer het gegevensbereik waarvoor u de grafiek wilt maken en klik vervolgens op Kutools > Grafieken > Categorievergelijking > Selectievakje Lijngrafiek; zie schermafbeelding:

2. Vervolgens verschijnt het dialoogvenster Selectievakje Lijngrafiek, waarin de gegevensselectie automatisch wordt ingevuld in afzonderlijke tekstvakken. Zie de schermafbeelding:

3. Klik vervolgens op de knop OK. Er verschijnt een waarschuwingsvenster dat u informeert over het aanmaken van een verborgen werkblad met tussentijdse gegevens. Klik op de knop Ja; zie schermafbeelding:

4. Er is nu succesvol een lijndiagram met selectievakjes gemaakt; zie de schermafbeelding:

Voorbeeld 3: Maak een Keuzelijst met selectievakjes

Het selecteren van meerdere items uit een Keuzelijst is een veelvoorkomende taak voor veel gebruikers. Sommige gebruikers proberen een Keuzelijst met selectievakjes te maken voor meervoudige selectie, zoals in onderstaande demo wordt getoond. Helaas ondersteunt Excel standaard geen Keuzelijst met selectievakjes. Maar hier introduceer ik twee soorten meervoudige selectievakjes in Excel: een keuzelijst met selectievakjes en een Keuzelijst met selectievakjes.

Maak een Keuzelijst met selectievakjes met behulp van een keuzelijst

In plaats van een Keuzelijst kunt u een keuzelijst gebruiken om selectievakjes toe te voegen voor meervoudige selectie. Het proces is enigszins ingewikkeld; volg daarom de onderstaande stappen stap voor stap:

1. Voeg eerst een keuzelijst in. Klik op Ontwikkelaar > Invoegen > Keuzelijst (ActiveX-besturingselement). Zie schermafbeelding:

2. Sleep met de muis om een keuzelijst te tekenen, klik er met de rechtermuisknop op en kies Eigenschappen in het contextmenu; zie schermafbeelding:

3. Stel in het deelvenster Eigenschappen de volgende instellingen in:

• Voer in het vak ListFillRangede Gegevensbereik in die u wilt weergeven in de keuzelijst;
• Selecteer in het vak ListStyle1 - fmListStyleOptionin de vervolgkeuzelijst;
• Selecteer in het vak MultiSelect1 – fmMultiSelectMultiin de vervolgkeuzelijst;
• Klik ten slotte op de sluitknop om het venster te sluiten.

4. Klik vervolgens op een cel waar u het meervoudige aantal geselecteerde items wilt weergeven en geef deze cel een naam. Typ de naam „Outputitem” in het Naamvak en druk op de toets Enter; zie schermafbeelding:

5. Klik vervolgens op Invoegen > Vormen > Rechthoek en sleep met de muis om een rechthoek boven de keuzelijst te tekenen. Zie schermafbeelding:

6. Klik met de rechtermuisknop op de rechthoek en selecteer Macro toewijzen in het contextmenu. Zie schermafbeelding:

7. Klik in het dialoogvenster Macro toewijzen op de knop Nieuw; zie schermafbeelding:

8.Vervang in het geopende venster Microsoft Visual Basic for Applicationsde oorspronkelijke code in het modulevenster door de volgende VBA-code:

Sub Rectangle1_Click()
'Updated by Extendoffice
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("Outputitem").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("Outputitem") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("Outputitem") = ""
    End If
End If
End Sub

Opmerking: In de bovenstaande code is Rectangle1 de vormnaam, ListBox1 de naam van het keuzelijstvak en Outputitem de celnaam van de uitvoercel. U kunt deze aanpassen op basis van uw behoeften.

9. Sluit daarna het codovenster. Vanaf nu kunt u het keuzelijstvak tonen of verbergen door op de rechthoekknop te klikken. Zodra het keuzelijstvak zichtbaar is, selecteert u de gewenste items en klikt u opnieuw op de rechthoekknop om het aantal geselecteerde items naar de opgegeven cel te exporteren; zie de demo hieronder:

Maak een Keuzelijst met selectievakjes met een geweldige functie

U kunt de krachtige Kutools voor Excel gebruiken om eenvoudig selectievakjes in een echte Keuzelijst in te voegen. Met de Selectievakjes toevoegen aan keuzelijst-functie van Kutools kunt u snel vervolgkeuzelijsten maken die meervoudige selecties met selectievakjes ondersteunen – iets wat Excel standaard niet ondersteunt. Dit verbetert niet alleen de functionaliteit van uw lijsten, maar ook aanzienlijk de efficiëntie en gebruikerservaring.

1. Voeg eerst een normale keuzelijst in de geselecteerde cellen in; zie screenshot:

2. Klik op Kutools > Keuzelijst > Geavanceerde keuzelijst inschakelen. Klik vervolgens opnieuw op Selectievakjes toevoegen aan keuzelijst in het Keuzelijst-menu. Zie screenshot:

3. Configureer in het dialoogvenster 'Selectievakjes toevoegen aan de vervolgkeuzelijst' het volgende:

• 2,1) Selecteer de cellen met de vervolgkeuzelijst;
• 2,2) Voer in het scheidingsteken-vak een scheidingsteken in dat u wilt gebruiken om de meerdere items te scheiden;
• 2,4) Klik op de knop OK.
  

Vanaf nu verschijnt er, zodra u op een cel met een keuzelijst klikt, een lijst met selectievakjes. Vink vervolgens de gewenste items aan om ze naar de cel te kopiëren, zoals wordt getoond in de onderstaande demo:

Tips: Als u de optie Zoekfunctie inschakelen in het dialoogvenster aanvinkt, kunt u zoeken in de vervolgkeuzelijst, zoals hieronder in de schermafbeelding wordt weergegeven:

Voorbeeld 4: Vink selectievakje aan om rijkleur te wijzigen

Hebt u ooit geprobeerd de rijkleur te wijzigen op basis van een aangevinkt selectievakje? Dat wil zeggen dat de kleur van de betreffende rij verandert wanneer u een selectievakje aanklikt, zoals in onderstaande afbeelding wordt getoond. In dit gedeelte worden enkele trucs besproken om deze taak in Excel uit te voeren.

Vink selectievakje aan om celkleur te wijzigen met behulp van Voorwaardelijke opmaak gebruiken

Wilt u de rijkleur wijzigen door een selectievakje aan of uit te zetten? Dan helpt de Voorwaardelijke opmaak gebruiken-functie in Excel u daarbij. Volg deze stappen:

1. Voeg eerst de selectievakjes toe aan de lijst met cellen, zoals u dat nodig heeft; zie screenshot:

2. Koppel daarna elk selectievakje afzonderlijk aan de cel ernaast; zie screenshot:

3. Selecteer vervolgens het gegevensbereik waarvan u de rijkleur wilt wijzigen en klik op Start > Voorwaardelijke opmaak gebruiken > Nieuwe regel; zie screenshot:

4. Voer in het dialoogvenster Nieuwe opmaakregel de volgende handelingen uit:

• Selecteer de optie Gebruik een formule om te bepalen welke cellen moeten worden opgemaaktin het vak Selecteer een regeltype;
• Voer deze formule =ALS($F2=WAAR;WAAR;ONWAAR)in het vak Opmaakwaarden waarvoor deze formule WAAR is;
• Klik op de knop Opmaak om een gewenste kleur toe te wijzen aan de rijen.

Opmerking: In de formule is $F2 de eerste gekoppelde cel van het selectievakje.

5. Nadat u de kleur hebt gekozen, klikt u op OKOK om de dialoogvensters te sluiten. Vanaf nu wordt de betreffende rij automatisch gemarkeerd zodra u een selectievakje aanklikt, zoals in de onderstaande demo wordt getoond:

Vink het selectievakje aan om de rijkleur te wijzigen met behulp van VBA-code

De volgende VBA-code kan u ook helpen de rijkleur te wijzigen op basis van het aangevinkte selectievakje. Gebruik hiervoor de onderstaande code:

1. Klik met de rechtermuisknop op het werkbladtabblad waarop u een gemarkeerd rijbereik wilt baseren op selectievakjes en kies Code weergeven in het contextmenu. Zie screenshot:

2. Kopieer en plak de onderstaande code in het geopende Microsoft Visual Basic for Applications-venster:

VBA-code: Gemarkeerd rijbereik door selectievakje aan te vinken

Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
    Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
    MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
    GoTo InputC
Else
    If xRng.Columns.Count = 1 Then
        For Each xCell In xRng
            With ActiveSheet.CheckBoxes.Add(xCell.Left, _
               xCell.Top, xCell.Width = 15, xCell.Height = 12)
               .LinkedCell = xCell.Offset(, 1).Address(External:=False)
               .Interior.ColorIndex = xlNone
               .Caption = ""
               .Name = "Check Box " & xCell.Row
            End With
            xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone
        Next
    End If
    With xRng
     .Rows.RowHeight = 16
    End With
    xRng.ColumnWidth = 5#
    xRng.Cells(1, 1).Offset(0, 1).Select
    For Each xChk In ActiveSheet.CheckBoxes
      xChk.OnAction = "Sheet2.InsertBgColor"
    Next
End If
End Sub

Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes
  xName = Right(xChk.Name, Len(xChk.Name) - 10)
  If (xName = Range(xChk.LinkedCell).Row) Then
   If (Range(xChk.LinkedCell) = "True") Then
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6
   Else
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone
   End If
  End If
Next
End Sub

Opmerking: In de bovenstaande code, in dit script xChk.OnAction = "Sheet2.InsertBgColor", moet u de bladnaam Sheet2vervangen door uw eigen werkbladnaam ()Sheet2 is de werkelijke naam van het werkblad; u kunt deze vinden in het linkerdeelvenster van het codevenster). Zie screenshot:

3. Plaats de cursor in het eerste deel van de code en druk op de F5-toets om de code uit te voeren. Selecteer in het verschijnende Kutools voor Excel-dialoogvenster het bereik waarin u selectievakjes wilt invoegen; zie screenshot:

4. Klik daarna op de knop OK, waarna de selectievakjes in de geselecteerde cellen worden ingevoegd, zoals in onderstaande screenshot wordt getoond:

5. Vanaf nu wordt de betreffende rij automatisch gekleurd zodra u een selectievakje aanklikt, zoals te zien is in de onderstaande screenshot:

Voorbeeld 5: Tel of som celwaarden op als het selectievakje is aangevinkt

Als u een gegevensbereik heeft met een lijst met selectievakjes en u wilt het aantal aangevinkte selectievakjes tellen of de overeenkomstige waarden optellen op basis van de aangevinkte selectievakjes, zoals in onderstaande afbeelding wordt getoond, hoe lost u deze taak dan op in Excel?

Om deze taak op te lossen, is het belangrijkste dat u de selectievakjes koppelt aan de bijbehorende cellen naast de gegevens. Een aangevinkt selectievakje geeft TRUE weer in de gekoppelde cel; anders wordt FALSE weergegeven. Vervolgens kunt u de tel- of somfunctie gebruiken om het resultaat te verkrijgen op basis van de TRUE- of FALSE-waarde.

1. Koppel eerst de selectievakjes afzonderlijk aan cellen. Wanneer een selectievakje is aangevinkt, wordt TRUE weergegeven; wanneer het niet is aangevinkt, wordt FALSE weergegeven. Zie screenshot:

2. Pas daarna de volgende formules toe om waarden te tellen of op te tellen op basis van de aangevinkte selectievakjes:

Tel waarden op basis van aangevinkte selectievakjes:

=COUNTIF(D2:D10;TRUE)

Opmerking: In deze formule is D2:D10 het bereik van de gekoppelde cellen die u hebt ingesteld voor de selectievakjes.

Som waarden op basis van aangevinkte selectievakjes:

=SOMPRODUCT(($D$2:$D$10=WAAR)*$C$2:$C$10)

Opmerking: In deze formule is D2:D10 het bereik van de gekoppelde cellen die u hebt ingesteld voor de selectievakjes, en C2:C10 de lijst met cellen die u wilt optellen.

Voorbeeld 6: Als selectievakje is aangevinkt, retourneer dan een specifieke waarde

Als u een selectievakje hebt dat bij aanvinken een specifieke waarde in een cel moet tonen en bij uitschakelen een lege cel moet weergeven, zoals in onderstaande demo wordt getoond:

Volg deze stappen om deze taak uit te voeren:

1. Koppel dit selectievakje eerst aan een cel. Klik met de rechtermuisknop op het selectievakje en kies Besturingselement opmaken. Selecteer in het dialoogvenster Object opmaken het tabblad Besturingselement en klik op een cel in het vak Celkoppeling om deze aan het selectievakje te koppelen; zie screenshot:

2. Klik daarna op de knop OK om het dialoogvenster te sluiten. Typ nu in een cel waar u het resultaat wilt weergeven de volgende formule: =IF(A5=TRUE,"[[PH_1]]",„") en druk op Enter.

Opmerking: In deze formule is A5 de cel die is gekoppeld aan het selectievakje; „Extendoffice” is de specifieke tekst. U kunt deze naar wens aanpassen.

3. Vanaf nu verschijnt de specifieke tekst zodra u het selectievakje aanklikt, en een lege cel zodra u het uitschakelt; zie de demo hieronder:

Beste Office-productiviteitshulpmiddelen

🤖	KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
	Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
	Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
	Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
	Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
	Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
	Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Meer details over Kutools voor Excel...Gratis downloaden...

---

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

• Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
• Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Meer details over Office Tab...Gratis downloaden...

---

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

• Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
• Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
• Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
• 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
• Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins

Meer details over Kutools for Office...Gratis downloaden...