Comment mettre en évidence une colonne ou un en-tête de colonne s'il est filtré dans Excel?

Pour une table à plusieurs colonnes, il n'est pas facile de savoir quelle colonne est filtrée en un coup d'œil car il n'y a pas de symbole évident pour la colonne filtrée à l'exception d'un marque. Si vous souhaitez rendre la colonne filtrée exceptionnelle dans une table, une méthode de cet article peut vous aider.

Mettez en surbrillance l'en-tête de colonne ou la colonne entière si elle est filtrée avec le code VBA

Mettez en surbrillance l'en-tête de colonne ou la colonne entière si elle est filtrée avec le code VBA

Comme illustré ci-dessous, vous devez mettre en surbrillance la colonne entière ou uniquement l'en-tête de colonne si cette colonne est filtrée dans une plage de tableau, veuillez appliquer les codes VBA suivants.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.

Code VBA: mettez en surbrillance l'en-tête de colonne si la colonne est filtrée

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

Pour mettre en évidence la colonne entière si elle est filtrée dans un tableau, veuillez copier et coller le code VBA ci-dessous dans la fenêtre Module.

Code VBA: mettez en surbrillance toute la colonne si elle est filtrée

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. appuie sur le F5 clé pour exécuter le code. Dans le popping Kutools for Excel boîte de dialogue, veuillez sélectionner la première cellule du tableau dont vous avez besoin pour mettre en surbrillance l'en-tête de colonne filtrée ou toute la colonne filtrée, puis cliquez sur le OK .

Ensuite, l'en-tête de colonne ou la colonne entière sera mise en surbrillance immédiatement si la colonne est filtrée dans un certain tableau. Voir les captures d'écran:

Mettez en surbrillance l'en-tête de colonne si la colonne est filtrée dans le tableau:

Mettez en surbrillance toute la colonne si elle est filtrée dans le tableau: