Excel-selectievakjes: selectievakjes toevoegen, selecteren, verwijderen en gebruiken in Excel

Een checkbox is een interactief hulpmiddel dat wordt gebruikt om een ​​optie aan of uit te zetten, je ziet ze vaak op webformulieren of bij het invullen van enquêtes. In Excel kunt u talloze mogelijkheden toevoegen door een selectievakje aan of uit te vinken waardoor uw werkblad dynamischer en interactiever wordt, zoals het maken van checklists door selectievakjes, het invoegen van een dynamische grafiek door selectievakjes, enz.

In deze zelfstudie laat ik u zien hoe u selectievakjes invoegt, selecteert en verwijdert en enkele voorbeelden geeft van het gebruik ervan in Excel.

---

Twee soorten selectievakjes (Check Box Form-besturingselement versus Check Box ActiveX-besturingselement)

Om een ​​selectievakje in te voegen, moet u ervoor zorgen dat het tabblad Ontwikkelaar op het lint wordt weergegeven. Het tabblad Ontwikkelaars is standaard niet actief, dus u moet het eerst inschakelen.

1. Klik in de Excel-werkmap op Dien in > Opties. In de Excel-opties dialoogvenster, klik Personaliseer lint, controleer dan Ontwikkelaar Optie en klik op OK knop om dit dialoogvenster te sluiten.

2. Nu de Ontwikkelaar tabblad verschijnt in het Excel-lint zoals hieronder afgebeeld. U hebt indien nodig toegang tot verschillende interactieve bedieningselementen vanaf het tabblad Ontwikkelaars.

Microsoft Excel biedt twee soorten selectievakjes:Selectievakje Formulierbesturing en Selectievakje ActiveX-besturingselement:

Selectievakje Formulierbeheer is veel eenvoudiger dan Selectievakje ActiveX-besturingselementEn Selectievakje ActiveX-besturingselement is flexibeler in ontwerp en kan worden gebruikt als objecten in codes. Voor ons dagelijkse werk zijn de Form Controls voldoende, dus we zullen ze in de meeste gevallen gebruiken.

Selectievakje Formulierbesturingselement vs. Selectievakje ActiveX-besturingselement:

• ActiveX-besturingselementen bieden meer opmaakopties, u kunt ze gebruiken voor een geavanceerd en flexibel ontwerp;
• Formulierbesturingselementen zijn ingebouwd in Excel, terwijl ActiveX-besturingselementen afzonderlijk worden geladen, zodat ze af en toe kunnen vastlopen;
• Sommige computers vertrouwen standaard ActiveX-besturingselementen niet, dus u moet ze handmatig inschakelen vanuit het Vertrouwenscentrum;
• Selectievakje ActiveX-besturingselement is programmatisch toegankelijk via de VBA-editor;
• ActiveX wordt alleen geleverd door de Windows-optie en Mac OS ondersteunt het niet.

Note: Alle selectievakjes waar ik het over heb in de volgende tutorials zijn: Selectievakjes Formulierbesturing.

---

Voeg een of meerdere selectievakjes toe in Excel

Om een ​​of meer selectievakjes in te voegen, kan deze sectie u een plezier doen.

2.1 Eén selectievakje invoegen

Ga als volgt te werk om één selectievakje in te voegen:

1. Klikken Ontwikkelaar tabblad en klik vervolgens op Invoegen van het Controls groep en selecteer vervolgens Selectievakje voor Formulierbesturing. Klik vervolgens op een cel waar u het selectievakje wilt invoegen en het selectievakje verschijnt in de buurt van die cel, zie screenshots:

2. Plaats vervolgens uw cursor op de rand van het selectievak voor uw selectievakje. Wanneer het verandert in de verplaatsingsaanwijzer, kunt u het selectievakje klikken en slepen naar de cel die u nodig hebt, zie screenshots:

---

2.2 Meerdere selectievakjes invoegen

Als u meerdere selectievakjes in uw werkblad nodig heeft, worden hier enkele snelle manieren voor u besproken.

 Voeg meerdere selectievakjes in met de optie Vulgreep

Om snel meerdere selectievakjes in te voegen, voegt u één selectievakje toe zoals hierboven beschreven en gebruikt u vervolgens de optie Vulgreep om de selectievakjes naar andere cellen te vullen.

1. Klik om de cel te selecteren waarin het selectievakje zich bevindt.

2. Sleep de vulgreep naar beneden om de selectievakjes in te vullen, zoals hieronder afgebeeld:

---

 Voeg meerdere selectievakjes in met VBA-code

De volgende VBA-code kan u ook helpen om snel en gemakkelijk een lijst met selectievakjes in te voegen. Doe alsjeblieft als volgt:

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

2. Dan klikken Invoegen > Moduleen plak de volgende code in het Module venster.

VBA-code: voeg meerdere selectievakjes in een lijst met cellen in

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. En druk dan op F5 sleutel om deze code uit te voeren. Er verschijnt een promptvenster om u eraan te herinneren een celbereik te selecteren voor het invoegen van de selectievakjes. Zie screenshot:

4. Dan klikken OK knop, worden de selectievakjes netjes in één keer in de cellen ingevoegd, zie screenshot:

---

 Voeg meerdere selectievakjes in met een handige functie

Als je Kutools for Excel, Met Batch invoegen selectievakjes functie kunt u de selectievakjes onmiddellijk in lege cellen of cellen met gegevens invoegen.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer een celbereik waarin u selectievakjes wilt invoegen.

2. Dan klikken Kutools > Invoegen > Batch invoegen selectievakjes, zie screenshot:

3. En dan worden de geselecteerde cellen gevuld met selectievakjes zoals de volgende schermafbeeldingen worden getoond:

Plaats selectievakjes in lege cellen	Plaats selectievakjes in datacellen

---

De naam van het selectievakje en de bijschrifttekst wijzigen

Wanneer u het selectievakje in Excel gebruikt, moet u onderscheid maken tussen de naam van het selectievakje en de naam van het bijschrift. De naam van het bijschrift is de tekst die u naast het selectievakje ziet, en de naam van het selectievakje is de naam die u ziet in het vak Naam wanneer het selectievakje is geselecteerd, zoals hieronder getoonde screenshots:

Naam selectievakje	Naam onderschrift

Als u de naam van het bijschrift wilt wijzigen, klikt u met de rechtermuisknop op het selectievakje en selecteert u vervolgens: Tekst bewerken uit het contextmenu en typ de nieuwe naam die je wilt, zie screenshots:

Om de naam van het selectievakje te wijzigen, moet u het selectievakje selecteren en vervolgens de naam invoeren die u nodig hebt in het Naam vak zoals hieronder getoond screenshot:

---

Koppel een of meerdere selectievakjes aan cellen

Wanneer u het selectievakje gebruikt, moet u de selectievakjes vaak aan cellen koppelen. Als het vakje is aangevinkt, toont de cel WAAR, en indien niet aangevinkt, toont de cel ONWAAR of leeg. In deze sectie wordt uitgelegd hoe u een of meerdere selectievakjes aan cellen in Excel kunt koppelen.

4.1 Koppel een selectievakje aan een cel met de functie Opmaakcontrole

Ga als volgt te werk om het selectievakje aan een bepaalde cel te koppelen:

1. Klik met de rechtermuisknop op het selectievakje en selecteer vervolgens Formaatcontrole zie screenshot vanuit het contextmenu:

2. In de Object opmaken dialoogvenster onder het Controle tabblad, klik om een ​​cel te selecteren waar u naar het selectievakje wilt linken vanuit de Mobiele link box, of typ de celverwijzing handmatig, zie screenshot:

3. Klikken OK om het dialoogvenster te sluiten, en nu is het selectievakje gekoppeld aan een specifieke cel. Als u het aanvinkt, wordt een TRUE weergegeven, schakel het uit, een FALSE verschijnt zoals hieronder getoonde demo:

---

4.2 Koppel meerdere selectievakjes aan cellen met VBA-code

Om meerdere selectievakjes aan cellen te koppelen met behulp van de functie Opmaakcontrole, moet u de bovenstaande stappen keer op keer herhalen. Dit zal tijdrovend zijn als er honderden of duizenden selectievakjes moeten worden gekoppeld. Hier zal ik een VBA-code introduceren om meerdere selectievakjes tegelijk aan cellen te koppelen.

1. Ga naar het werkblad met de selectievakjes.

2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Dan klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: koppel meerdere selectievakjes aan cellen tegelijk

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

Note: In deze code, i = 2, het nummer 2 is de startrij van uw selectievakje, en xCChar = "C", de brief C is de kolom waaraan u de selectievakjes wilt koppelen. U kunt ze naar uw behoefte wijzigen.

4. En druk dan op F5 toets om deze code uit te voeren, zijn alle selectievakjes in het actieve werkblad in één keer aan de opgegeven cellen gekoppeld. Wanneer u een selectievakje aanvinkt, wordt in de relatieve cel TRUE weergegeven, als u het selectievakje uitschakelt, wordt in de gekoppelde cel FALSE weergegeven, zie screenshot:

---

Selecteer een of meerdere selectievakjes

Om de selectievakjes in een werkblad te kopiëren of te verwijderen, moet u eerst de selectievakjes selecteren. Ga als volgt te werk om een ​​of meer selectievakjes te selecteren:

Selecteer een enkel selectievakje: (twee manieren)

• Klik met de rechtermuisknop op het selectievakje en klik vervolgens ergens binnen het.
• OR
• Druk op de Ctrl toets en klik vervolgens op het selectievakje.

Selecteer meerdere selectievakjes:

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

---

Een of meerdere selectievakjes verwijderen

Het verwijderen van één selectievakje is gemakkelijk voor ons, u hoeft het alleen maar te selecteren en vervolgens op de Delete-toets op uw toetsenbord te drukken. Als het gaat om meerdere selectievakjes, hoe zou u dit dan in Excel kunnen doen?

6.1 Meerdere selectievakjes verwijderen met VBA-code

Voor het verwijderen van alle selectievakjes in een blad, kunt u de volgende VBA-code toepassen.

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

2. Dan klikken Insert> Moduleen plak de volgende code in het Module venster.

VBA-code: verwijder alle selectievakjes in het huidige werkblad

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

3. Druk vervolgens op F5 toets om de code uit te voeren. Alle selectievakjes in het specifieke werkblad worden in één keer verwijderd.

---

6.2 Meerdere selectievakjes verwijderen met een eenvoudige functie

met Kutools for Excel' Batch verwijderen Selectievakjes functie kunt u de selectievakjes verwijderen uit een reeks selecties of de hele bladen die u nodig hebt met slechts enkele klikken.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het celbereik of het hele blad dat selectievakjes bevat die u wilt verwijderen.

2. Dan klikken Kutools > Verwijder > Batchverwijder selectievakjes, zie screenshot:

3. En dan worden alle selectievakjes in één keer uit de selectie verwijderd.

---

Selectievakjes groeperen in Excel

Als u meerdere selectievakjes tegelijk wilt verplaatsen of vergroten of verkleinen, kan het groeperen van de selectievakjes helpen om alle selectievakjes tegelijk te controleren. In deze sectie wordt besproken hoe u meerdere selectievakjes in een Excel-werkblad kunt groeperen.

7.1 Groepeer selectievakjes met behulp van de groepsfunctie

In Excel is het Groep functie kan helpen om meerdere selectievakjes te groeperen, doe dit als volgt:

1. Houd de Ctrl toets en klik vervolgens om de selectievakjes één voor één te selecteren die u wilt groeperen, zie screenshot:

2. Klik vervolgens met de rechtermuisknop en kies Groep > Groep zie screenshot vanuit het contextmenu:

3. En alle geselecteerde selectievakjes zijn gegroepeerd, u kunt ze tegelijk verplaatsen en kopiëren.

---

7.2 Groepeer selectievakjes met behulp van de opdracht Groepsvak

Bovendien kunt u ook de Groepsbox om meerdere selectievakjes te groeperen. Gelieve te doen met de volgende stappen:

1. Ga naar de Ontwikkelaar Tabblad en klik vervolgens op Invoegen > Groepsvak (formulierbeheer), zie screenshot:

2. En sleep vervolgens de muis om een ​​groepsvak te tekenen en verander de naam van het bijschrift van het groepsvak naar wens:

3. Nu kunt u selectievakjes in het groepsvak invoegen, klik op Ontwikkelaar > Invoegen > Selectievakje (Formulierbeheer), zie screenshot:

4. Sleep vervolgens de muis om een ​​selectievakje te tekenen en wijzig de naam van het bijschrift naar behoefte, zie screenshots

5. Voeg op dezelfde manier andere selectievakjes in het groepsvak in en u krijgt het resultaat zoals hieronder afgebeeld:

---

Voorbeelden: selectievakjes gebruiken in Excel

Uit bovenstaande informatie weten we enige basiskennis van de selectievakjes. In deze sectie zal ik introduceren hoe u selectievakjes kunt gebruiken voor sommige interactieve en dynamische bewerkingen in Excel.

 Voorbeeld 1: Maak een takenlijst met selectievakjes

Takenlijst is handig voor ons om de taken te markeren die in ons dagelijks werk zijn voltooid. In een typische takenlijst hebben de aangevinkte voltooide taken het doorgestreepte formaat zoals de onderstaande schermafbeelding. Met behulp van selectievakjes kunt u snel een interactieve takenlijst maken.

Voer de volgende stappen uit om een ​​takenlijst met selectievakjes te maken:

1. Plaats de selectievakjes in de lijst met cellen die u wilt gebruiken, zie screenshot: (Klik om te weten hoe u meerdere selectievakjes kunt invoegen)

2. Nadat u de selectievakjes hebt ingevoegd, moet u elk selectievakje aan een afzonderlijke cel koppelen.

3. Na het koppelen van selectievakjes aan cellen, als het selectievakje is aangevinkt, wordt een TRUE weergegeven, indien niet aangevinkt, wordt een FALSE weergegeven, zie screenshot:

4. Dan moet u de Conditionele opmaak functie om de volgende bewerkingen uit te voeren. Selecteer het celbereik A2:C8 waarvan u een takenlijst wilt maken en klik vervolgens op Home > Conditionele opmaak > Nieuwe regel naar de Nieuwe opmaakregel dialoog venster.

5. In de Nieuwe opmaakregel dialoogvenster, klik Gebruik een formule om te bepalen welke cellen moeten worden opgemaakt in de Selecteer een regeltype keuzelijst en voer deze formule in = C2 = WAAR in de Formatteer waarden waar deze formule waar is tekstvak, zie screenshot:

Note: C2 is een cel die is gekoppeld aan het selectievakje..

6. Ga dan verder met het klikken op de Formaat knop om naar de Cellen opmaken dialoog venster. Onder de doopvont tabblad, controleer het doorhalen van het Effecten sectie en specificeer een kleur voor het voltooide takenlijstitem zoals u wilt, zie screenshot:

7. Dan klikken OK > OK om de dialoogvensters te sluiten, nu, wanneer u het selectievakje aanvinkt, wordt het bijbehorende item opgemaakt als doorgestreept, zoals hieronder getoonde demo:

---

 Voorbeeld 2: Dynamische grafiek maken met selectievakjes

Soms moet u mogelijk veel gegevens en informatie in één grafiek weergeven, waardoor de grafiek in de war raakt. In dit geval kunt u de selectievakjes gebruiken om een ​​dynamisch diagram in uw werkblad te maken. Wanneer u een selectievakje aanvinkt, wordt de bijbehorende dataregel weergegeven, als u het vinkje uitschakelt, wordt de dataregel verborgen zoals hieronder getoonde demo:

In dit gedeelte worden twee snelle trucs besproken voor het maken van dit type diagram in Excel.

 Maak een interactieve grafiek met selectievakjes in Excel

Normaal gesproken kunt u in Excel een dynamisch diagram maken met behulp van selectievakjes met de volgende stappen:

1. Plaats enkele selectievakjes en hernoem ze. In dit geval zal ik drie selectievakjes invoegen en ze hernoemen als Apple, Orange en Peach, zie screenshot:

2. Vervolgens moet u deze selectievakjes aan cellen koppelen, klik om het eerste selectievakje te selecteren en klik vervolgens met de rechtermuisknop en kies vervolgens Formaatcontrole, in de Object opmaken dialoogvenster onder het Controle tabblad, van de Mobiele link box, selecteer een cel waar u naar de checkbox wilt linken, zie screenshot:

3. Herhaal de bovenstaande stap om de andere twee selectievakjes aan andere cellen te koppelen. Als u nu het selectievakje aanvinkt, wordt een TRUE weergegeven, anders wordt een FALSE weergegeven zoals hieronder getoonde demo:

4. Nadat u de selectievakjes hebt ingevoegd en gekoppeld, moet u nu de gegevens voorbereiden. Kopieer de originele gegevensrij- en kolomkoppen naar een andere plaats, zie screenshot:

5. Pas dan onderstaande formules toe:

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

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

7. Wanneer u nu het selectievakje van het product aanvinkt, verschijnt de dataregel en wanneer u het vinkje uitschakelt, verdwijnt deze zoals hieronder getoonde demo:

8. Nadat u de grafiek hebt gemaakt, kunt u de selectievakjes op de grafiek plaatsen om ze er netjes uit te laten zien. Klik om het plotgebied te selecteren en sleep om het te verkleinen, zie screenshot:

9. En druk dan op Ctrl toets om de drie selectievakjes te selecteren, sleep ze naar de grafiek en klik met de rechtermuisknop om te kiezen Naar voren brengen > Naar voren brengen, zie screenshot:

10. En de selectievakjes worden weergegeven op de kaart, blijf drukken op Ctrl toets om de selectievakjes te selecteren en één voor één in kaart te brengen, klik met de rechtermuisknop om te selecteren Groep > Groep, zie screenshot:

11. Nu zijn de selectievakjes gekoppeld aan het lijndiagram. Wanneer u de grafiek verplaatst, worden de selectievakjes ook overeenkomstig verplaatst.

---

 Maak een interactieve grafiek met selectievakjes met een eenvoudige functie

De bovenstaande methode kan enigszins moeilijk voor je zijn, hier zal ik een eenvoudige manier introduceren om deze taak op te lossen. Met Kutools for Excel's Selectievakje lijndiagram functie kunt u gemakkelijk een dynamische grafiek met selectievakjes maken.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het gegevensbereik waarvoor u de grafiek wilt maken en klik vervolgens op Kutools > Grafieken > Categorie vergelijking > Selectievakje lijndiagram, zie screenshot:

2. En dan een Selectievakje lijndiagram dialoogvenster wordt uitgeklapt, worden de gegevens die u hebt geselecteerd automatisch in hun afzonderlijke tekstvakken ingevuld, zie screenshot:

3. Dan klikken OK knop, en er verschijnt een promptvenster om u eraan te herinneren dat er een verborgen blad met enkele tussenliggende gegevens zal worden gemaakt, klik a.u.b. Ja knop, zie screenshot:

4. En een lijndiagram met selectievakjes wordt met succes gemaakt, zie screenshot:

---

 Voorbeeld 3: Maak een vervolgkeuzelijst met selectievakjes

Het selecteren van meerdere items uit een vervolgkeuzelijst kan voor de meesten van ons een veelvoorkomende taak zijn. Sommige gebruikers proberen een vervolgkeuzelijst met selectievakjes te maken om meerdere selecties te kiezen, zoals hieronder getoonde demo. Helaas is het niet mogelijk om dergelijke vervolgkeuzelijsten met selectievakjes in Excel te maken. Maar hier zal ik twee soorten selectie van meerdere selectievakjes in Excel introduceren. Een daarvan is een keuzelijst met selectievakjes en een andere is een vervolgkeuzelijst met selectievakjes.

 Maak een vervolgkeuzelijst met selectievakjes met behulp van een keuzelijst

In plaats van een vervolgkeuzelijst kunt u een keuzelijst gebruiken om selectievakjes voor meervoudige selectie toe te voegen. Het proces is een beetje ingewikkeld, volg de onderstaande stappen stap voor stap:

1. Voeg eerst een keuzelijst in, klik op Ontwikkelaar > Invoegen > Keuzelijst (ActiveX-besturingselement). Zie screenshot:

2. Sleep de muis om een ​​keuzelijst te tekenen, klik er met de rechtermuisknop op, kies Properties zie screenshot vanuit het contextmenu:

3. In de Properties deelvenster, stelt u de bewerkingen als volgt in:

• In het LijstVullenBereik voert u het gegevensbereik in dat u wilt weergeven in de keuzelijst;
• In het Lijststijl vak, selecteer 1 - optie fmList-stijl uit de vervolgkeuzelijst;
• In het Meerkeuze selectie vak, selecteer 1 - fmMultiSelectMulti uit de vervolgkeuzelijst;
• Klik ten slotte op de knop Sluiten om deze te sluiten.

4. Klik vervolgens op een cel waar u de meerdere geselecteerde items wilt uitvoeren en geef er een bereiknaam voor op. Typ een bereiknaam "Uitvoeritem" in de Naam vak en druk op Enter key, zie screenshot:

5. En klik dan Invoegen > Vormen > Rechthoek, sleep de muis om een ​​rechthoek boven de keuzelijst te tekenen, zie screenshot:

6. Klik vervolgens met de rechtermuisknop op de rechthoek en selecteer Wijs macro toe vanuit het contextmenu. Zie screenshot:

7. In de Wijs macro toe dialoogvenster, klik New knop, zie screenshot:

8. In de opening Microsoft Visual Basic voor toepassingen venster, vervang dan de originele code in het modulevenster door de onderstaande 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

Note: In de bovenstaande code, Rechthoek 1 is de naam van de vorm, LijstBox1 is de naam van de keuzelijst, en de Uitvoeritem is de bereiknaam van de uitvoercel. U kunt ze wijzigen op basis van uw behoeften.

9. Sluit vervolgens het codevenster. Als u nu op de rechthoekige knop klikt, wordt de keuzelijst verborgen of weergegeven. Wanneer de keuzelijst wordt weergegeven, selecteert u de items in de keuzelijst en klikt u nogmaals op de rechthoekige knop om de geselecteerde items in de opgegeven cel uit te voeren, zie onderstaande demo:

---

 Maak een vervolgkeuzelijst met selectievakjes met een geweldige functie

Om de selectievakjes toe te voegen aan de echte vervolgkeuzelijst, kunt u een krachtig hulpmiddel gebruiken - Kutools for Excel, Met Vervolgkeuzelijst met selectievakjes functie kunt u snel en gemakkelijk vervolgkeuzelijsten maken met meerdere selectievakjes.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Plaats eerst de normale vervolgkeuzelijst in de geselecteerde cellen, zie screenshot:

2. Dan klikken Kutools > Keuzelijst > Vervolgkeuzelijst met selectievakjes > Instellingen. Zie screenshot:

3. In de Vervolgkeuzelijst met instellingen voor selectievakjes dialoogvenster, configureer dan als volgt.

• In het Toepassen op geeft u het toepassingsgebied op waar u selectievakjes voor de cellen in de vervolgkeuzelijst wilt maken. U kunt een bepaald bereik, huidig ​​werkblad, huidige werkmap of alle geopende werkmappen specificeren op basis van uw behoeften;
• In het Mode sectie, kies wijzigen keuze;
• In het Separator typ een scheidingsteken om de geselecteerde items te scheiden;
• in de Text Richting sectie, selecteer de tekstrichting op basis van uw behoeften;
• Klik ten slotte op OK knop.

4. Klik na het voltooien van de instellingen op Kutools > Keuzelijst > Vervolgkeuzelijst met selectievakjes > Schakel vervolgkeuzelijst met selectievakjes in om deze functie te activeren. Zie screenshot:

5. Als u vanaf nu op een cel met een vervolgkeuzelijst klikt, verschijnt er een lijst met selectievakjes en selecteert u vervolgens de items door de selectievakjes aan te vinken om de items in de cel uit te voeren, zoals de onderstaande demo laat zien:

Klik voor meer gedetailleerde informatie over deze functie...

---

 Voorbeeld 4: Schakel het selectievakje in om de rijkleur te wijzigen

Heeft u ooit geprobeerd de rijkleur te wijzigen op basis van het aangevinkte selectievakje? Wat betekent dat de kleur van de gerelateerde rij zal worden gewijzigd als u een selectievakje aanvinkt, zoals hieronder afgebeeld, in deze sectie worden enkele trucs besproken voor het oplossen van deze taak in Excel.

 Schakel het selectievakje in om de celkleur te wijzigen met behulp van voorwaardelijke opmaak

Om de rijkleur te wijzigen door het selectievakje aan of uit te vinken, Conditionele opmaak functie in Excel kan u een plezier doen. Doe alsjeblieft als volgt:

1. Plaats eerst de selectievakjes in de lijst met cellen zoals u nodig hebt, zie screenshot:

2. Vervolgens moet u deze selectievakjes afzonderlijk aan de cellen naast elk selectievakje koppelen, zie screenshot:

3. Selecteer vervolgens het gegevensbereik waarvan u de rijkleur wilt wijzigen en klik vervolgens op Home > Conditionele opmaak > Nieuwe regel, zie screenshot:

4. In de Nieuwe opmaakregel dialoogvenster, voert u de onderstaande bewerkingen uit:

• Selecteer het Gebruik een formule om te bepalen welke cellen moeten worden opgemaakt optie in het Selecteer een regeltype doos;
• Voer deze formule in =ALS($F2=WAAR, WAAR, ONWAAR) in de Formatteer waarden waar deze formule waar is doos;
• Klik op de Formaat om een ​​gewenste kleur voor de rijen op te geven.

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

5. Klik na het kiezen van de kleur op OK > OK om de dialoogvensters te sluiten, en nu, wanneer u een selectievakje aanvinkt, wordt de bijbehorende rij automatisch gemarkeerd zoals hieronder getoonde demo:

---

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

De volgende VBA-code kan u ook helpen om de rijkleur te wijzigen op basis van het aangevinkte selectievakje, doe dit met de onderstaande code:

1. In het werkblad waarin u rijen wilt markeren met selectievakjes, klikt u met de rechtermuisknop op de bladtab en selecteert u Bekijk code vanuit het rechtsklikmenu. Zie screenshot:

2. Kopieer en plak de onderstaande code in het geopende Microsoft Visual Basic voor toepassingen venster:

VBA-code: markeer rijen 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 = "Blad2.InsertBgColor", u moet de bladnaam wijzigen-Sheet2 naar je eigen (Sheet2 is de echte naam van het werkblad, u kunt het ophalen in het linker codevenster). Zie screenshot:

3. Plaats vervolgens de cursor in het eerste deel van de code en druk op F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer het bereik dat u wilt invoegen selectievakjes, zie screenshot:

4. Dan klikken OK knop, worden de selectievakjes ingevoegd in de geselecteerde cellen zoals hieronder afgebeeld:

5. Als u vanaf nu een selectievakje aanvinkt, wordt de relatieve rij automatisch gekleurd zoals hieronder afgebeeld:

---

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

Als u een gegevensbereik heeft met een lijst met selectievakjes, wilt u nu het aantal aangevinkte selectievakjes tellen of de bijbehorende waarden optellen op basis van de aangevinkte selectievakjes, zoals hieronder afgebeeld. Hoe zou je deze taak in Excel kunnen oplossen?

Om deze taak op te lossen, is de belangrijke stap om de selectievakjes te koppelen aan relatieve cellen naast de gegevens. Het aangevinkte selectievakje geeft WAAR weer in de gekoppelde cel, anders wordt een ONWAAR weergegeven en vervolgens kunt u de tel- of somfunctie gebruiken om het resultaat te krijgen op basis van de waarde WAAR of ONWAAR.

1. Eerst moet u de selectievakjes afzonderlijk aan cellen koppelen, als het selectievakje is aangevinkt, wordt een TRUE weergegeven, indien niet aangevinkt, wordt een FALSE weergegeven, zie screenshot:

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

Tel waarden door aangevinkte selectievakjes:

= AANTAL.ALS (D2: D10; WAAR)

Note: In deze formule, D2: D10 is het bereik van de linkcellen die u hebt ingesteld voor de selectievakjes.

Som waarden door aangevinkte selectievakjes:

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

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

---

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

Als u een selectievakje heeft, moet bij het aanvinken een specifieke waarde in een cel worden weergegeven en wanneer u dit uitschakelt, wordt een lege cel weergegeven zoals hieronder getoonde demo:

Ga als volgt te werk om deze taak te voltooien:

1. Eerst moet u dit selectievakje aan een cel koppelen. Klik met de rechtermuisknop op het selectievakje en kies Formaatcontrole, in de pop uit Object opmaken dialoogvenster onder het Controle tabblad, klik om een ​​cel te selecteren waarnaar u wilt linken met het selectievakje uit de Mobiele link box, zie screenshot:

2. Dan klikken OK knop om het dialoogvenster te sluiten. Typ nu deze formule: =ALS(A5=WAAR,"Extendoffice","") in een cel waar u het resultaat wilt uitvoeren en druk vervolgens op Enter sleutel.

Note: In deze formule, A5 is de cel die is gekoppeld aan het selectievakje, "Extendoffice” is de specifieke tekst, u kunt ze naar uw behoefte wijzigen.

3. Als u nu het selectievakje aanvinkt, wordt de specifieke tekst weergegeven. Als u het vinkje uitschakelt, wordt een lege cel weergegeven, zie onderstaande demo: