Hur markerar jag kolumn eller kolumnrubrik om den filtreras i Excel?

För en tabell med flera kolumner är det inte lätt att ta reda på vilken kolumn som filtreras snabbt, eftersom det inte finns någon uppenbar symbol för den filtrerade kolumnen förutom en märke. Om du vill göra den filtrerade kolumnen enastående i en tabell kan en metod i den här artikeln hjälpa dig.

Markera kolumnrubrik eller hela kolumnen om den filtreras med VBA-kod

Markera kolumnrubrik eller hela kolumnen om den filtreras med VBA-kod

Som bilden nedan visas måste du markera hela kolumnen eller bara kolumnrubriken om den här kolumnen är filtrerad i ett tabellintervall, använd följande VBA-koder.

1. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka på i fönstret Microsoft Visual Basic for Applications Insert > Modulerna. Kopiera sedan VBA-koden nedan till modulfönstret.

VBA-kod: Markera kolumnrubrik om kolumnen är filtrerad

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

För att markera hela kolumnen om den är filtrerad i en tabell, vänligen kopiera och klistra in nedanstående VBA-kod i modulfönstret.

VBA-kod: Markera hela kolumnen om den är filtrerad

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. tryck på F5 för att köra koden. I pop-up Kutools för Excel Välj den första cellen i tabellen som du behöver för att markera den filtrerade kolumnrubriken eller hela den filtrerade kolumnen och klicka sedan på OK knapp.

Sedan markeras kolumnrubriken eller hela kolumnen omedelbart om kolumnen filtreras i en viss tabell. Se skärmdumpar:

Markera kolumnrubrik om kolumnen är filtrerad i tabellen:

Markera hela kolumnen om den är filtrerad i tabellen:

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!