Hoe cel of rij markeren met selectievakje in Excel?
Zoals onderstaand screenshot laat zien, moet u rij of cel markeren met een selectievakje. Wanneer een selectievakje is aangevinkt, wordt een opgegeven rij of cel automatisch gemarkeerd. Maar hoe bereik je dit in Excel? Dit artikel laat je twee methoden zien om dit te bereiken.
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 cel of rij te markeren met een selectievakje in Excel. Ga als volgt te werk.
Koppel alles aan een opgegeven cel
1. U moet de selectievakjes een voor een handmatig in de cellen invoegen door op te klikken Ontwikkelaar > Invoegen > Selectievakje (Formulierbeheer).
2. Nu zijn er selectievakjes ingevoegd in de cellen in kolom I. Selecteer het eerste selectievakje in I1, voer de formule in = $ J1 in de formulebalk en druk vervolgens op Enter sleutel.
Tip: Als u geen waarden in aangrenzende cellen aan selectievakjes wilt koppelen, kunt u het selectievakje aan de cel van een ander werkblad koppelen, zoals = Blad3! $ E1.
2. Herhaal stap 1 totdat alle selectievakjes zijn gekoppeld aan de aangrenzende cellen of cellen in een ander werkblad.
Note: Alle gekoppelde cellen moeten opeenvolgend zijn en zich in dezelfde kolom bevinden.
Maak een regel voor voorwaardelijke opmaak
Nu moet u stap voor stap een regel voor voorwaardelijke opmaak maken.
1. Selecteer de rijen die u wilt markeren met selectievakjes en klik op Conditionele opmaak > Nieuwe regel onder de Home tabblad. Zie screenshot:
2. In de Nieuwe opmaakregel dialoogvenster, moet u:
2.1 Selecteer het Gebruik een formule om te bepalen welke cellen moeten worden opgemaakt optie in het Selecteer een regeltype doos;
2.2 Voer de formule in = ALS ($ J1 = WAAR, WAAR, ONWAAR) in de Formatteer waarden waar deze formule waar is doos;
Or = ALS (Sheet3! $ E1 = TRUE, TRUE, FALSE) als de selectievakjes zijn gekoppeld aan een ander werkblad.
2.3 Klik op de Formaat knop om een gemarkeerde kleur voor de rijen op te geven;
2.4 Klik op de OK knop. Zie screenshot:
Note: In de formule, $ J1 or $ E1 is de eerste gekoppelde cel voor de selectievakjes en zorg ervoor dat de celverwijzing is gewijzigd in kolom absoluut (J1> $ J1 or E1> $ E1).
Nu is de regel voor voorwaardelijke opmaak gemaakt. Wanneer u de selectievakjes aanvinkt, worden de corresponderende rijen automatisch gemarkeerd als een screenshot van de balg.
Markeer cel of rij met selectievakje met VBA-code
De volgende VBA-code kan u ook helpen om cel of rij te markeren met een selectievakje in Excel. Ga als volgt te werk.
1. In het werkblad moet u een cel of rij markeren met een selectievakje. Klik met de rechtermuisknop op het Blad Tab en selecteer Bekijk code vanuit het rechtsklikmenu om het Microsoft Visual Basic voor toepassingen venster.
2. Kopieer en plak vervolgens de onderstaande VBA-code in het codevenster.
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 de F5 sleutel om de code uit te voeren. (Note: je moet de cursor in het eerste deel van de code plaatsen om de F5-toets toe te passen) In de pop-up Kutools for Excel dialoogvenster, selecteer het bereik dat u wilt invoegen selectievakjes en klik vervolgens op de OK knop. Hier selecteer ik bereik I1: I6. Zie screenshot:
4. Vervolgens worden selectievakjes in geselecteerde cellen ingevoegd. Vink een van de selectievakjes aan, de bijbehorende rij wordt automatisch gemarkeerd zoals onderstaand screenshot.
Gerelateerde artikelen:
- Hoe verander ik een gespecificeerde celwaarde of kleur wanneer het selectievakje is aangevinkt in Excel?
- Hoe een datumstempel in een cel invoegen als een selectievakje in Excel is aangevinkt?
- Hoe checkbox aangevinkt te maken op basis van celwaarde in Excel?
- Hoe gegevens filteren op basis van selectievakjes in Excel?
- Hoe het selectievakje te verbergen wanneer de rij is verborgen in Excel?
- Hoe maak je een vervolgkeuzelijst met meerdere selectievakjes in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!