Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

Jak ukryć wiersze na podstawie koloru komórki w programie Excel?

doc ukryj wiersze według koloru 1

W arkuszu programu Excel mam listę komórek, które mają wiele różnych kolorów, teraz muszę ukryć wszystkie jasnoniebieskie wiersze, jak pokazano na zrzucie ekranu, jak możesz szybko i łatwo poradzić sobie z tym zadaniem w programie Excel?

Ukryj wiersze na podstawie koloru komórki za pomocą kodu VBA

Ukryj wiersze na podstawie koloru komórki za pomocą Kutools for Excel


Ukryj wiersze na podstawie koloru komórki za pomocą kodu VBA

Aby ukryć wiersze na podstawie określonego koloru tła, poniższy kod VBA może ci pomóc, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klucze, a następnie otwiera Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: Ukryj wiersze na podstawie koloru komórki:

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty przypominające o wybraniu komórek, których chcesz użyć, patrz zrzut ekranu:

doc ukryj wiersze według koloru 2

4. A następnie kliknij OK przycisk, wszystkie jasnoniebieskie komórki zostały ukryte naraz, patrz zrzut ekranu:

doc ukryj wiersze według koloru 1

Uwagi:

1. W powyższym kodzie liczba 20 w ramach tego skryptu Jeśli xRg.Range ("A" & I) .Interior.ColorIndex = 20 Następnie numer indeksu koloru, możesz go zmienić w razie potrzeby.

2. Jeśli nie jesteś pewien numeru indeksu kolorów, powinieneś zastosować następujący kod, aby uzyskać indeks kolorów, który chcesz znać:

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

A następnie wprowadź formułę: = GetColor (A2) aby zwrócić określony numer indeksu koloru tła w komórce A2, zmień A2 na inny, zgodnie z potrzebami.


Ukryj wiersze na podstawie koloru komórki za pomocą Kutools for Excel

Jeśli masz Kutools dla programu Excel, Z siedzibą w Wybierz komórki z formatem narzędzie, możesz najpierw wybrać określone kolorowe komórki, a następnie od razu je ukryć.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. 

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:

1, Kliknij Kutools > Wybierz > Wybierz komórki z formatemzobacz zrzut ekranu:

2, w Wybierz komórki z formatem w oknie dialogowym wykonaj poniższe operacje:

(1.) Kliknij doc ukryj wiersze według koloru 5przycisk, aby wybrać zakres danych, którego chcesz użyć;

(2.) Następnie kliknij Wybierz Format z komórki przycisk, aby wybrać określoną kolorową komórkę, na podstawie której chcesz ukryć wiersze;

(3.) Wszystkie atrybuty określonej komórki zostały wymienione w polu listy, po prostu zaznacz Kolor tła pod Wypełniać Sekcja.

doc ukryj wiersze według koloru 4

3. Następnie kliknij Ok przycisk, wszystkie komórki o określonym kolorze zostały zaznaczone naraz, a następnie kliknij Strona główna > utworzony > Ukryj i odkryj > Ukryj wierszezobacz zrzut ekranu:

doc ukryj wiersze według koloru 6

4. A następnie wybrane komórki o określonym kolorze są ukryte, patrz zrzut ekranu:

doc ukryj wiersze według koloru 7

Kliknij Bezpłatne pobieranie Kutools dla programu Excel teraz!


Demo: Ukryj wiersze na podstawie koloru komórki za pomocą Kutools for Excel

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszą każdego dnia!
officetab dół
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 · 2 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!