¿Cómo resaltar una columna o encabezado de columna si está filtrada en Excel?

En una tabla con múltiples columnas, no es fácil identificar a simple vista qué columna está filtrada, ya que no hay un símbolo obvio para la columna filtrada, excepto por una marca. Si deseas hacer que la columna filtrada destaque en una tabla, un método en este artículo puede ayudarte.

Resaltar el encabezado de columna o toda la columna si está filtrada con código VBA

Resaltar el encabezado de columna o toda la columna si está filtrada con código VBA

Como se muestra en la captura de pantalla a continuación, necesitas resaltar toda la columna o solo el encabezado de la columna si esta está filtrada en un rango de tabla. Por favor, aplica los siguientes códigos VBA.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia el siguiente código VBA en la ventana del Módulo.

Código VBA: Resaltar el encabezado de columna si la columna está filtrada

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

Para resaltar toda la columna si está filtrada en una tabla, copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Resaltar toda la columna si está filtrada

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. Presiona la tecla F5 para ejecutar el código. En el cuadro de diálogo Kutools para Excel que aparece, selecciona la primera celda de la tabla donde necesitas resaltar el encabezado de la columna filtrada o toda la columna filtrada, y luego haz clic en el botón Aceptar.

Luego, el encabezado de la columna o toda la columna se resaltará inmediatamente si la columna está filtrada en una tabla determinada. Ver capturas de pantalla:

Resaltar el encabezado de columna si la columna está filtrada en la tabla:

Resaltar toda la columna si está filtrada en la tabla:

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!