Hoe markeert u een cel of rij in Excel met een selectievakje?
Zoals in de onderstaande schermafbeelding te zien is, kunt u een rij of cel markeren met een selectievakje: zodra het vakje wordt aangevinkt, wordt de bijbehorende rij of cel automatisch gemarkeerd. Maar hoe realiseert u dit in Excel? In dit artikel leest u over twee eenvoudige methoden om dit voor elkaar te krijgen.

Markeer cel of rij met selectievakje met Voorwaardelijke opmaak gebruiken
Markeer cel of rij met selectievakje met VBA-code
Markeer cel of rij met selectievakje met Voorwaardelijke opmaak gebruiken
U kunt een regel voor Voorwaardelijke opmaak maken om een cel of rij te markeren met een selectievakje in Excel. Volg hiervoor de onderstaande stappen.
Stap ÉÉN: Koppel alle Selectievakje aan een opgegeven cel
1. U moet handmatig één voor één selectievakjes invoegen door te klikken op Ontwikkelaar > Invoegen > Selectievakje (Formulierbesturingselement).
2. Er zijn nu selectievakjes ingevoegd in de cellen van kolom I. Klik op het eerste selectievakje in I1, typ de formule =$J1 in de formulebalk en druk daarna op de toets Enter.
Tip: Als u geen waarden naast de selectievakjes wilt koppelen, koppelt u het selectievakje aan een cel op een ander werkblad, bijvoorbeeld =Sheet3!$E1.

3. Herhaal stap 1 totdat alle Selectievakjes zijn gekoppeld aan de aangrenzende cellen of aan cellen op een ander werkblad.
OpmerkingAlle gekoppelde cellen moeten opeenvolgend zijn en in dezelfde kolom staan.

Stap TWEE: Maak een Voorwaardelijke opmaak gebruiken-regel
U moet nu stap voor stap een Voorwaardelijke opmaak gebruiken-regel maken als volgt.
1. Selecteer de rijen die u wilt markeren met selectievakjes en klik vervolgens op Voorwaardelijke opmaak gebruiken > Nieuwe regel onder het tabblad Start. Zie schermafbeelding:

2. Voer in het dialoogvenster Nieuwe opmaakregel de volgende stappen uit:
2,1 Selecteer de optie Gebruik een formule om te bepalen welke cellen moeten worden opgemaaktin het vak Selecteer een regeltype;
2,2 Voer de formule =IF($J1=TRUE,TRUE,FALSE) in het vak Opmaakwaarden waarvoor deze formule WAAR is in;
Of =IF(Sheet3!$E1=TRUE,TRUE,FALSE) als het selectievakje is gekoppeld aan een ander werkblad.
2,3 Klik op de knop Opmaakom een markeringskleur voor de rijen op te geven;
2,4 Klik op de knop OK. Zie de schermafbeelding:

Opmerking: In de formule is $J1 of $E1de eerste gekoppelde cel voor het selectievakje. Zorg ervoor dat de celverwijzing is gewijzigd naar kolomabsoluut ()J1 > $J1 of E1 > $E1).
De regel voor Voorwaardelijke opmaak is nu ingesteld. Zodra u het selectievakje aankruist, worden de bijbehorende rijen automatisch gemarkeerd, zoals in de onderstaande schermafbeelding te zien is.

Markeer cel of rij met selectievakje met VBA-code
De volgende VBA-code kan u ook helpen om een cel of rij te markeren met een selectievakje in Excel. Volg hiervoor de volgende stappen.
1. Open het werkblad waarin u een cel of rij wilt markeren met een selectievakje. Klik met de rechtermuisknop op het werkbladtabblad en selecteer Code weergeven in het contextmenu om het venster Microsoft Visual Basic for Applications te openen.
2. Kopieer en plak vervolgens de onderstaande VBA-code in het codevenster.
VBA-code: Rij markeren met selectievakje in Excel
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 = ActiveSheet.Name + ".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 
3. Druk op de toets F5om de code uit te voeren. ()Opmerking: plaats de cursor in het eerste deel van de code om de F5-toets te gebruiken.) Selecteer in het verschijnende dialoogvenster Kutools voor Excel het bereik waarin u selectievakjes wilt invoegen en klik vervolgens op de knop OK. Hier selecteer ik I1:I6. Zie schermafbeelding:

4. Vervolgens worden Selectievakje ingevoegd in de geselecteerde cellen. Vink een van de selectievakjes aan en de bijbehorende rij wordt automatisch gemarkeerd, zoals in de onderstaande schermafbeelding wordt weergegeven.

Gerelateerde artikelen:
- Hoe wijzigt u de waarde of kleur van een bepaalde cel wanneer een selectievakje is aangevinkt in Excel?
- Hoe voegt u een datumstempel in een cel in wanneer een selectievakje is aangevinkt in Excel?
- Hoe vinkt u automatisch een selectievakje aan op basis van de waarde in een cel in Excel?
- Hoe filtert u gegevens in Excel op basis van een selectievakje?
- Hoe verbergt u een selectievakje wanneer een rij verborgen is in Excel?
- Hoe maakt u een vervolgkeuzelijst met meerdere selectievakjes in Excel?
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