Hvordan skjules rækker baseret på cellefarve i Excel?
I Excel-regneark har jeg en liste over celler, der har mange forskellige farver. Nu skal jeg skjule alle lyseblå rækker som følgende skærmbillede vist, hvordan kunne du håndtere denne opgave i Excel hurtigt og nemt?
Skjul rækker baseret på cellefarve med VBA-kode
For at skjule rækker baseret på en bestemt baggrundsfarve, kan følgende VBA-kode hjælpe dig, gør som dette:
1. Hold nede ALT + F11 tasterne, så åbner den Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Skjul rækker baseret på cellefarve:
Sub Hidebycolor()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
Else
xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
For I = 1 To xRg.Count
If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
xRg.Range("A" & I).EntireRow.Hidden = True
End If
Next 'i
Application.ScreenUpdating = True
End Sub
3. Tryk derefter på F5 nøgle til at køre denne kode, og der vises en hurtigboks for at minde dig om at vælge de celler, du vil bruge, se skærmbillede:
4. Og klik derefter på OK knap, alle lyseblå celler er skjult på én gang, se skærmbillede:
Bemærkninger:
1. I ovenstående kode, nummeret 20 inden for dette script Hvis xRg.Range ("A" og I) .Interieur.ColorIndex = 20 Derefter er farveindeksnummeret, du kan ændre det efter behov.
2. Hvis du ikke er sikker på farveindeksnummeret, skal du anvende følgende kode for at få det farveindeks, som du vil vide:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Og indtast derefter formlen: = GetColor (A2) for at returnere det specifikke farveindeksnummer på baggrunden i celle A2 ændrer du A2 til andre, som du har brug for.
Skjul rækker baseret på cellefarve med Kutools til Excel
Hvis du har Kutools til Excel, Med Vælg celler med format værktøj, kan du først vælge de specifikke farvede celler og derefter skjule dem med det samme.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excelskal du gøre som følger:
1. Klik Kutools > Type > Vælg celler med format, se skærmbillede:
2. I Vælg celler med format dialogboksen, skal du udføre nedenstående handlinger:
(1.) Klik på knap for at vælge det dataområde, du vil bruge;
(2.) Klik derefter på Vælg Format fra celle knap for at vælge den specifikke farvede celle, som du vil skjule rækker baseret på;
(3.) Alle attributter for den specifikke celle er blevet opført i listeboksen, tjek bare Baggrundsfarve under Fyld sektion.
3. Klik derefter på Ok knappen, er alle celler med den specifikke farve valgt på én gang, og klik derefter på Home > dannet > Skjul & skjul > Skjul rækker, se skærmbillede:
4. Og så er de valgte celler med den specifikke farve skjult, se skærmbillede:
Klik på Gratis download Kutools til Excel nu!
Demo: Skjul rækker baseret på cellefarve med Kutools til 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!