Note: The other languages of the website are Google-translated. Back to English

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 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 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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
pro mě by to bylo fantastické, ale nedokázal jsem to zprovoznit. Kód jsem použil k vybarvení celého sloupce. když jsem filtroval poprvé, sloupec zmodral. ale když jsem vyčistil filtr, modrá zůstala. Poté filtrování jiného sloupce nemělo žádný účinek. takže momentálně mi zbývá jeden modrý sloupec. pomocí nejnovějšího Excelu Office 365.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Děkujeme za váš komentář.
Problém, který jste zmínil, je příliš komplikovaný na to, abyste jej nyní dosáhli. Pokusíme se to co nejdříve vyřešit a dáme vám vědět, až na to přijdeme.
Tento komentář byl moderátorem webu minimalizován
Chcete-li to opravit, změňte:
Pokud .On Pak

xRg.Offset(, I - xRgCol).Interior.Color = 16736553

End If

Na:
Pokud .On Pak

xRg.Offset(, I - xRgCol).Interior.Color = 16736553

Jiný

xRg.Offset(, I - xRgCol).Interior.Color = 16777215

End If



Ne, odstraní barvu.
Tento komentář byl moderátorem webu minimalizován
Měl jsem stejný problém. Jakmile je sloupec nefiltrovaný. Sloupec zůstal modrý. Také, když filtrujete nový sloupec, je nezměněn. Vba jej nezvýrazní v novém sloupci filtru.
Tento komentář byl moderátorem webu minimalizován
řešení, které může pomoci vytvořit aktualizovanou vba, je přidat další duplikát první nezpracovaný v řádku A1, řádek A2 by měl být začátkem filtrovaných dat (přesný duplikát všech dat v řádku A1 - řádek A1 a A2 by měl být stejný), takže vždy mít jeden řádek záhlaví bez rozbalovací ikony filtru a s formátem OG, jakmile je makro spuštěno s několika filtrovanými sloupci, zvýrazní filtrovaný sloupec jako obvykle a po odstranění požadovaného filtru sloupců nebo filtru všech sloupců by měl zkopírovat formát ve sloupci A1 , lze to provést u sloupců bez filtrovaného řazení?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění