Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

Hvordan skjules rækker baseret på cellefarve i Excel?

doc skjul rækker efter farve 1

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

Skjul rækker baseret på cellefarve med Kutools til Excel


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:

doc skjul rækker efter farve 2

4. Og klik derefter på OK knap, alle lyseblå celler er skjult på én gang, se skærmbillede:

doc skjul rækker efter farve 1

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å doc skjul rækker efter farve 5knap 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.

doc skjul rækker efter farve 4

3. Klik derefter på Ok knappen, er alle celler med den specifikke farve valgt på én gang, og klik derefter på Hjem > dannet > Skjul & skjul > Skjul rækker, se skærmbillede:

doc skjul rækker efter farve 6

4. Og så er de valgte celler med den specifikke farve skjult, se skærmbillede:

doc skjul rækker efter farve 7

Klik på Gratis download Kutools til Excel nu!


Demo: Skjul rækker baseret på cellefarve med Kutools til Excel

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Brice · 2 years ago
    Is it possible to use the code with conditional formatting? I tried the code but it only worked on standardly colored cells, not on those which got the color from a conditional formatting.
    In my case, the rows should be hidden when the cell in column C is gray (colorindex = 15). But the row should be shown again, when the cell changes color to white again. Is this possible?
    Thanks!
  • To post as a guest, your comment is unpublished.
    Nikki · 3 years ago
    Thank you!!! I came across the macro you wrote above and had 1000s of rows to hide based on one color... your macro and directions worked wonderfully! I appreciate your help!