Jak zvýraznit sloupec nebo záhlaví sloupce, pokud je filtrován v aplikaci Excel?
U tabulky s více sloupci není snadné zjistit, který sloupec je filtrován na první pohled, protože pro filtrovaný sloupec neexistuje žádný zjevný symbol kromě 
označit. Pokud chcete, aby byl filtrovaný sloupec v tabulce výjimečný, může vám pomoci metoda v tomto článku.
Zvýrazněte záhlaví sloupce nebo celý sloupec, pokud je filtrován pomocí kódu VBA
Zvýrazněte záhlaví sloupce nebo celý sloupec, pokud je filtrován pomocí kódu VBA
Jak je ukázáno níže, je třeba zvýraznit celý sloupec nebo pouze záhlaví sloupce, pokud je tento sloupec filtrován v rozsahu tabulky, použijte následující kódy VBA.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V okně Microsoft Visual Basic pro aplikace klikněte prosím Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna modulu.
Kód VBA: Zvýrazněte záhlaví sloupce, pokud je sloupec filtrován
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 SubChcete-li zvýraznit celý sloupec, pokud je filtrován v tabulce, zkopírujte a vložte níže uvedený kód VBA do okna modulu.
Kód VBA: Pokud je filtrován, zvýrazněte celý sloupec
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 Sub3. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte první buňku tabulky, kterou potřebujete zvýraznit hlavičku filtrovaného sloupce nebo celý filtrovaný sloupec, a poté klikněte na OK .
Pokud je sloupec filtrován v určité tabulce, okamžitě se zvýrazní záhlaví sloupce nebo celý sloupec. Zobrazit snímky obrazovky:
Zvýrazněte záhlaví sloupce, pokud je sloupec filtrován v tabulce:
Zvýrazněte celý sloupec, pokud je filtrován v tabulce:
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!
