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

Úžasný! Používání efektivních karet v Excelu, jako je Chrome, Edge, Firefox a Safari!
Ušetřete 50% svého času a snížíte tisíce kliknutí myší každý den!

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 Sub

Chcete-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 Sub

3. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools for 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

	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é excelentní dovednosti pomocí Kutools for Excela 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...

Čtěte více... Stažení zdarma...

---

Office Tab Přináší rozhraní s kartami do Office 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!

Čtěte více... Stažení zdarma...