Hoe zorgt u ervoor dat een selectievakje in Excel automatisch wordt aangevinkt op basis van een celwaarde?
U weet waarschijnlijk al hoe u een celwaarde kunt aanpassen op basis van een selectievakje. Maar wist u ook dat u een selectievakje automatisch kunt laten aanvinken op basis van een celwaarde in Excel? In dit artikel leest u hoe u dat voor elkaar krijgt.
Selectievakje automatisch aanvinken op basis van celwaarde met formule
Selectievakje automatisch aanvinken op basis van celwaarde met VBA-code
Selectievakje automatisch aanvinken op basis van celwaarde met formule
Stel dat u wilt dat Selectievakje 1 automatisch wordt aangevinkt zodra de waarde in cel A1 gelijk is aan „Test”. Volg dan de onderstaande stappen.
1. Nadat u het selectievakje (formulierbesturingselement) hebt ingevoegd, selecteert u het en koppelt u het aan de opgegeven cel C2 door =C2 in te voeren in de formulebalk.
Klik met de rechtermuisknop op het ActiveX-besturingselement Selectievakje en kies Eigenschappen in het contextmenu. Voer in het dialoogvenster Eigenschappen de gekoppelde cel in bij het veld LinkedCell en sluit het dialoogvenster daarna. Zie de schermafbeelding:
2. Selecteer de gekoppelde cel (C2), voer vervolgens de formule =IF(A2=„Test",TRUE,FALSE) in op de formulebalk en druk daarna op de toets Enter.
Opmerking: In de formule zijn A2 en Test respectievelijk de cel en de bijbehorende celwaarde waarop het selectievakje automatisch wordt aangevinkt.
3. Wanneer u de waarde „Test” in cel A1 invoert, wordt het bijbehorende selectievakje automatisch aangevinkt. Zie de schermafbeelding:
Opmerking: Deze formule is niet hoofdlettergevoelig.
Selectievakje automatisch aanvinken op basis van celwaarde met VBA-code
U kunt de volgende VBA-code uitvoeren om een selectievakje in Excel automatisch aan te vinken op basis van een celwaarde.
1. Klik met de rechtermuisknop op het werkbladtabblad waarvan het selectievakje op basis van de celwaarde moet worden aangevinkt, en klik vervolgens op Code weergeven in het contextmenu.
2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code in het codevenster.
VBA-code: Selectievakje automatisch aanvinken op basis van celwaarde
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2").Value = "Test" Then
ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn
Else
ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff
End If
End SubOpmerking: In de code zijn A2 en Test respectievelijk de cel en de bijbehorende celwaarde waarop het selectievakje automatisch wordt aangevinkt. Selectievakje 1 is de naam van het selectievakje.
3. Druk op Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
Wanneer u de waarde „Test” in cel A2 invoert, wordt het bijbehorende selectievakje automatisch aangevinkt.
Opmerking: Deze code is hoofdlettergevoelig.
Tip: Als u meerdere selectievakjes tegelijkertijd in een bereik wilt invoegen, kunt u de functie Batch invoegen selectievakje van Kutools voor Excel proberen, of meerdere keuzerondjes batchsgewijs invoegen met de functie Batchgewijs keuzeknop invoegen. Daarnaast kunt u alle selectievakjes in één keer verwijderen met de functie Verwijder selectievakjes in batch, zoals op de onderstaande schermafbeeldingen te zien is. U kunt Kutools voor Excel downloaden! (30 dagen gratis proefversie).
Gerelateerde artikelen:
- Hoe wijzigt u de waarde of kleur van een opgegeven cel wanneer het selectievakje is aangevinkt in Excel?
- Hoe markeert u een cel of rij in Excel met een selectievakje?
- Hoe voegt u een tijdstempel in een cel in wanneer een selectievakje is aangevinkt in Excel?
- Hoe filtert u gegevens in Excel op basis van een selectievakje?
- Hoe verbergt u een selectievakje automatisch wanneer de bijbehorende rij in Excel verborgen is?
- Hoe maakt u in Excel een keuzelijst met meerdere selectievakjes?
Beste Office-productiviteitshulpmiddelen
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...
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!
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