Jak ukryć wiersze na podstawie koloru komórki w programie Excel?
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:
4. A następnie kliknij OK przycisk, wszystkie jasnoniebieskie komórki zostały ukryte naraz, patrz zrzut ekranu:
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 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 przycisk, 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ć
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:
4. A następnie wybrane komórki o określonym kolorze są ukryte, patrz zrzut ekranu:
Kliknij Bezpłatne pobieranie Kutools dla programu Excel teraz!
Demo: Ukryj wiersze na podstawie koloru komórki za pomocą Kutools for Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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ęć myszką każdego dnia!