Přejít k hlavnímu obsahu

Jak skrýt řádky na základě barvy buňky v aplikaci Excel?

doc skrýt řádky podle barvy 1

V listu aplikace Excel mám seznam buněk, které mají mnoho různých barev, nyní musím skrýt všechny světle modré řádky, jak je zobrazeno na následujícím obrázku obrazovky, jak byste mohli s tímto úkolem v aplikaci Excel rychle a snadno?

Skrýt řádky založené na barvě buňky pomocí kódu VBA

Skrýt řádky na základě barvy buněk pomocí Kutools pro Excel


Skrýt řádky založené na barvě buňky pomocí kódu VBA

Chcete-li skrýt řádky založené na konkrétní barvě pozadí, může vám pomoci následující kód VBA, postupujte takto:

1. Podržte ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Skrýt řádky podle barvy buňky:

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, abyste vybrali buňky, které chcete použít, viz screenshot:

doc skrýt řádky podle barvy 2

4. A pak klikněte na tlačítko OK tlačítko, všechny světle modré buňky byly skryty najednou, viz screenshot:

doc skrýt řádky podle barvy 1

Poznámky:

1. Ve výše uvedeném kódu číslo 20 v tomto skriptu Pokud xRg.Range ("A" & I) .Interior.ColorIndex = 20 Pak je číslo indexu barev, můžete jej změnit podle potřeby.

2. Pokud si nejste jisti číslem indexu barev, měli byste použít následující kód a získat index barev, který chcete znát:

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

A pak zadejte vzorec: = GetColor (A2) Chcete-li vrátit konkrétní číslo indexu barvy pozadí v buňce A2, změňte A2 na jiné podle potřeby.


Skrýt řádky na základě barvy buněk pomocí Kutools pro Excel

Pokud máte Kutools pro Excel, S jeho Vyberte buňky s formátem nástroj, můžete nejprve vybrat konkrétní barevné buňky a poté je skrýt najednou.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. 

Po instalaci Kutools pro Excel, postupujte následovně:

1, klikněte Kutools > vybrat > Vyberte buňky s formátem, viz screenshot:

2. V Vyberte buňky s formátem v dialogovém okně proveďte následující operace:

(1.) Klikněte doc skrýt řádky podle barvy 5tlačítko pro výběr rozsahu dat, který chcete použít;

(2.) Poté klikněte Vyberte Formát z buňky tlačítko pro výběr konkrétní barevné buňky, podle které chcete skrýt řádky;

(3.) Všechny atributy konkrétní buňky byly uvedeny do seznamu, stačí zaškrtnout Barva pozadí pod Vyplnit sekce.

doc skrýt řádky podle barvy 4

3. Pak klikněte na tlačítko Ok tlačítko, byly vybrány všechny buňky konkrétní barvy a poté klepněte na Domů > Formát > Skrýt a zobrazit > Skrýt řádky, viz screenshot:

doc skrýt řádky podle barvy 6

4. A poté jsou vybrané buňky se specifickou barvou skryty, viz screenshot:

doc skrýt řádky podle barvy 7

Klikněte na Stažení zdarma Kutools pro Excel hned teď!


Demo: Skrýt řádky na základě barvy buňky pomocí Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations