Hoe een cel of rij markeren met een selectievakje in Excel?
Zoals te zien is in de onderstaande schermafbeelding, moet u een rij of cel markeren met een selectievakje. Wanneer een selectievakje wordt aangevinkt, wordt een gespecificeerde rij of cel automatisch gemarkeerd. Maar hoe bereikt u dit in Excel? Dit artikel laat u twee methoden zien om dit te doen.
Markeer cel of rij met selectievakje met Voorwaardelijke opmaak
Markeer cel of rij met selectievakje met VBA-code
Markeer cel of rij met selectievakje met Voorwaardelijke opmaak
U kunt een regel voor Voorwaardelijke opmaak maken om een cel of rij met een selectievakje in Excel te markeren. Volg de volgende stappen.
STAP EEN: Koppel alle selectievakjes aan een specifieke cel
1. U moet handmatig selectievakjes invoegen in cellen door te klikken op Developer > Insert > Check Box (Form Control).
2. Nu zijn selectievakjes ingevoegd in cellen in kolom I. Selecteer het eerste selectievakje in I1, voer de formule =$J1 in de formulebalk in en druk vervolgens op de Enter-toets.
Tip: Als u geen waarden wilt koppelen aan aangrenzende cellen van de selectievakjes, kunt u het selectievakje koppelen aan een cel in een ander werkblad, zoals =Sheet3!$E1.
3. Herhaal stap 1 totdat alle selectievakjes gekoppeld zijn aan de aangrenzende cellen of cellen in een ander werkblad.
Opmerking: Alle gekoppelde cellen moeten opeenvolgend zijn en zich in dezelfde kolom bevinden.
STAP TWEE: Maak een regel voor Voorwaardelijke opmaak
Nu moet u een regel voor Voorwaardelijke opmaak maken zoals hieronder stap voor stap wordt uitgelegd.
1. Selecteer de rijen die u wilt markeren met selectievakjes, klik vervolgens op Voorwaardelijke opmaak > Nieuwe regel onder het tabblad Start. Zie schermafbeelding:
2. In het dialoogvenster Nieuwe regel voor opmaak moet u:
2.1 Selecteer de optie Gebruik een formule om te bepalen welke cellen te formatteren in het vak Regeltype selecteren;
2.2 Voer de formule =ALS($J1=WAAR,WAAR,ONWAAR) in het Formatteer waarden waar deze formule waar is vak;
Of =ALS(Sheet3!$E1=WAAR,WAAR,ONWAAR) als de selectievakjes gekoppeld zijn aan een ander werkblad.
2.3 Klik op de knop Opmaak om een markeerkleur voor de rijen te specificeren;
2.4 Klik op de knop OK. Zie schermafbeelding:
Opmerking: In de formule is $J1 of $E1 de eerste gekoppelde cel voor de selectievakjes, en zorg ervoor dat de celverwijzing is veranderd naar kolomabsoluut (J1 > $J1 of E1 > $E1).
Nu is de regel voor Voorwaardelijke opmaak gemaakt. Wanneer u de selectievakjes aanvinkt, worden de bijbehorende rijen automatisch gemarkeerd zoals te zien is in de onderstaande schermafbeelding.
Markeer cel of rij met selectievakje met VBA-code
De volgende VBA-code kan u ook helpen om een cel of rij met een selectievakje in Excel te markeren. Volg de volgende stappen.
1. In het werkblad waar u een cel of rij met een selectievakje wilt markeren. Klik met de rechtermuisknop op het tabblad Werkblad en selecteer Weergave Code in het rechtsklikmenu om het venster Microsoft Visual Basic for Applications te openen.
2. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster.
VBA-code: Markeer rij 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 F5-toets om de code uit te voeren. (Opmerking: u moet de cursor in het eerste deel van de code plaatsen om de F5-toets toe te passen) In het pop-upvenster Kutools voor Excel selecteert u het bereik waar u selectievakjes wilt invoegen en klikt u vervolgens op de knop OK. Hier selecteer ik het bereik I1:I6. Zie schermafbeelding:
4. Dan worden selectievakjes ingevoegd in de geselecteerde cellen. Vink een van de selectievakjes aan, de bijbehorende rij wordt automatisch gemarkeerd zoals te zien is in de onderstaande schermafbeelding.
Gerelateerde artikelen:
- Hoe een gespecificeerde celwaarde of -kleur te wijzigen wanneer een selectievakje in Excel is aangevinkt?
- Hoe een datumstempel in een cel in te voegen als een selectievakje in Excel is aangevinkt?
- Hoe een selectievakje te laten aanvinken op basis van een celwaarde in Excel?
- Hoe gegevens te filteren op basis van een selectievakje in Excel?
- Hoe een selectievakje te verbergen wanneer een rij verborgen is in Excel?
- Hoe een vervolgkeuzelijst met meerdere selectievakjes in Excel te maken?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen