Jak wyróżnić nagłówek kolumny lub kolumny, jeśli jest filtrowany w programie Excel?
W przypadku tabeli z wieloma kolumnami nie jest łatwo stwierdzić, która kolumna jest filtrowana na pierwszy rzut oka, ponieważ nie ma oczywistego symbolu dla kolumny filtrowanej, z wyjątkiem znak. Jeśli chcesz, aby filtrowana kolumna była wyróżniająca się w tabeli, może Ci pomóc metoda opisana w tym artykule.
Podświetl nagłówek kolumny lub całą kolumnę, jeśli jest filtrowana za pomocą kodu VBA
Podświetl nagłówek kolumny lub całą kolumnę, jeśli jest filtrowana za pomocą kodu VBA
Jak pokazano na poniższym zrzucie ekranu, musisz podświetlić całą kolumnę lub tylko nagłówek kolumny, jeśli ta kolumna jest filtrowana w zakresie tabeli, zastosuj następujące kody VBA.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. W oknie Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna modułu.
Kod VBA: podświetl nagłówek kolumny, jeśli kolumna jest filtrowana
Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim I As Integer
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg.Offset(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
If .On Then
xRg.Offset(, I - xRgCol).Interior.Color = 16736553
End If
End With
Next
End With
End Sub
Aby podświetlić całą kolumnę, jeśli jest filtrowana w tabeli, skopiuj i wklej poniższy kod VBA do okna modułu.
Kod VBA: zaznacz całą kolumnę, jeśli jest filtrowana
Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xRgFilter As Range
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
If .On Then
xRgFilter.Interior.Color = 16736553
End If
End With
Next
End With
End Sub
3. wciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz pierwszą komórkę tabeli, którą chcesz podświetlić przefiltrowany nagłówek kolumny lub całą filtrowaną kolumnę, a następnie kliknij OK przycisk.
Następnie nagłówek kolumny lub cała kolumna zostanie podświetlona natychmiast, jeśli kolumna zostanie przefiltrowana w określonej tabeli. Zobacz zrzuty ekranu:
Podświetl nagłówek kolumny, jeśli kolumna jest filtrowana w tabeli:
Podświetl całą kolumnę, jeśli jest filtrowana w tabeli:
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!