Hvordan fremhæves celle eller række med afkrydsningsfelt i Excel?
Som vist nedenstående skærmbillede skal du fremhæve række eller celle med afkrydsningsfeltet. Når et afkrydsningsfelt er markeret, fremhæves en bestemt række eller en celle automatisk. Men hvordan opnås det i Excel? Denne artikel viser dig to metoder til at opnå det.
Fremhæv celle eller række med afkrydsningsfelt med betinget formatering
Fremhæv celle eller række med afkrydsningsfelt med VBA-kode
Fremhæv celle eller række med afkrydsningsfelt med betinget formatering
Du kan oprette en betinget formateringsregel for at fremhæve celle eller række med afkrydsningsfelt i Excel. Gør som følger.
Link alle afkrydsningsfeltet til en bestemt celle
1. Du skal indsætte afkrydsningsfelter i celler manuelt manuelt ved at klikke på Udvikler > indsatte > Afkrydsningsfelt (Formular kontrol).
2. Nu er afkrydsningsfelter indsat i celler i kolonne I. Marker det første afkrydsningsfelt i I1, indtast formel = $ J1 ind i formellinjen, og tryk derefter på Indtast nøgle.
Tip: Hvis du ikke ønsker at have værdier tilknyttet tilstødende celler til afkrydsningsfelter, kan du linke afkrydsningsfeltet til et andet regnearks celle, f.eks. = Ark3! $ E1.
2. Gentag trin 1, indtil alle afkrydsningsfelter er knyttet til de tilstødende celler eller celler i et andet regneark.
Bemærk: Alle sammenkædede celler skal være fortløbende og placeres i samme kolonne.
Opret en betinget formateringsregel
Nu skal du oprette en betinget formateringsregel som følger trin for trin.
1. Marker de rækker, du skal fremhæve med afkrydsningsfelter, og klik derefter på Betinget formatering > Ny regel under Home fanen. Se skærmbillede:
2. i Ny formateringsregel dialogboks skal du:
2.1 Vælg Brug en formel til at bestemme, hvilke celler der skal formateres valgmulighed i Vælg en regeltype boks;
2.2 Indtast formel = HVIS ($ J1 = SAND, SAND, FALSK) ind i Formater værdier, hvor denne formel er sand boks;
Or = HVIS (Ark3! $ E1 = SAND, SAND, FALSK) hvis afkrydsningsfelterne er knyttet til et andet regneark.
2.3 Klik på dannet knap for at specificere en fremhævet farve til rækkerne;
2.4 Klik på OK knap. Se skærmbillede:
Bemærk: I formlen $ J1 or $ E1 er den første sammenkædede celle til afkrydsningsfelterne, og sørg for, at cellehenvisningen er blevet ændret til kolonne absolut (J1> $ J1 or E1> $ E1).
Nu oprettes den betingede formateringsregel. Når du markerer afkrydsningsfelterne, vil de tilsvarende rækker blive fremhævet automatisk som vist på skærmbælgen.
Fremhæv celle eller række med afkrydsningsfelt med VBA-kode
Følgende VBA-kode kan også hjælpe dig med at fremhæve celle eller række med afkrydsningsfelt i Excel. Gør som følger.
1. I regnearket skal du fremhæve celle eller række med afkrydsningsfeltet. Højreklik på Arkfane og vælg Vis kode fra højreklikmenuen for at åbne Microsoft Visual Basic til applikationer vindue.
2. Kopier og indsæt derefter nedenstående VBA-kode i vinduet Kode.
VBA-kode: Fremhæv række med afkrydsningsfelt i 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. Tryk på F5 nøgle for at køre koden. (Bemærk: du skal placere markøren i den første del af koden for at anvende F5-tasten) I pop op Kutools til Excel i dialogboksen, skal du markere det område, du vil indsætte, og derefter klikke på OK knap. Her vælger jeg interval I1: I6. Se skærmbillede:
4. Derefter indsættes afkrydsningsfelter i valgte celler. Marker en af afkrydsningsfelterne, den tilsvarende række fremhæves automatisk som vist nedenstående skærmbillede.
Relaterede artikler:
- Hvordan ændres en bestemt celleværdi eller farve, når afkrydsningsfeltet er markeret i Excel?
- Hvordan indsættes datostempel i en celle, hvis der er markeret et afkrydsningsfelt i Excel?
- Hvordan laver man afkrydsningsfeltet baseret på celleværdi i Excel?
- Sådan filtreres data baseret på afkrydsningsfelt i Excel?
- Hvordan skjuler jeg afkrydsningsfeltet, når rækken er skjult i Excel?
- Hvordan oprettes en rulleliste med flere afkrydsningsfelter i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!