¿Cómo mostrar los criterios de filtro automático en Excel?

El Filtro Automático es una función útil para los usuarios de Excel. A veces, aplicamos el Filtro Automático para filtrar datos según varios criterios y enviamos el archivo a otros. En esta situación, si otros usuarios quieren saber cuáles son tus criterios de filtrado, ¿cómo pueden hacerlo?

Mostrar los criterios de filtro automático en la hoja de cálculo con una Función Definida por el Usuario

Mostrar los criterios de filtro automático en la hoja de cálculo con código VBA

Mostrar los criterios de filtro automático en la hoja de cálculo con Kutools para Excel

Mostrar los criterios de filtro automático en la hoja de cálculo con una Función Definida por el Usuario

Supongamos que tienes los siguientes datos que han sido filtrados por algunos criterios, ver captura de pantalla:

Y ahora puedo crear una Función Definida por el Usuario para mostrar los criterios del filtro en las celdas; sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la Ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega la siguiente macro en la Ventana del Módulo:

Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = .Criteria1
        If .Operator = xlAnd Then
            str2 = " AND " & .Criteria2
        ElseIf .Operator = xlOr Then
            str2 = " OR " & .Criteria2
        End If
    End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function

3. Luego guarda y cierra este código. En una celda en blanco de una fila vacía, por ejemplo, la celda A1, introduce esta fórmula =AutoFilter_Criteria(A4) (A4 es la celda de encabezado de los datos filtrados), ver captura de pantalla:

4. Luego presiona la tecla Enter, selecciona la celda A1, arrastra el controlador de relleno sobre las celdas necesarias que deben contener esta fórmula, y todos los criterios se habrán mostrado en las celdas, ver captura de pantalla:

Nota: Si hay más de dos criterios en una columna, esta Función Definida por el Usuario no dará el resultado correcto.

Mostrar los criterios de filtro automático en la hoja de cálculo con código VBA

Aquí también puedo hablar de un interesante código VBA que puede ayudarte a mostrar los criterios de filtro en una celda del libro.

1. Mantén presionadas las teclas ALT + F11 para abrir la Ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega la siguiente macro en la Ventana del Módulo:

Código VBA: Mostrar los criterios de filtro automático en la hoja de cálculo

Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
    Application.StatusBar = False
    Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
   TargetField = xFilter.Range.Cells(1, i).Value
   Set TargetFilter = xFilter.Filters(i)
   If TargetFilter.On Then
        On Error GoTo OutNext
        xOut = xOut & TargetField & TargetFilter.Criteria1
        Select Case TargetFilter.Operator
            Case xlAnd
            xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
            Case xlOr
            xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
            Case xlBottom10Items
            xOut = xOut & " (bottom 10 items)"
            Case xlBottom10Percent
            xOut = xOut & " (bottom 10%)"
            Case xlTop10Items
            xOut = xOut & " (top 10 items)"
            Case xlTop10Percent
            xOut = xOut & " (top 10%)"
        End Select
    End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, aparecerá un cuadro de diálogo para que selecciones una celda en blanco donde colocar los criterios, ver captura de pantalla:

4. Y luego haz clic en Aceptar, todos los criterios se mostrarán en la celda seleccionada como sigue:

Nota:

Con este código VBA, si hay más de dos criterios en una columna, no se mostrarán los criterios detallados del filtro, sino que se mostrarán de la siguiente manera:

Mostrar los criterios de filtro automático en la hoja de cálculo con Kutools para Excel

Si tienes instalado Kutools para Excel, puedes aplicar su función Super Filtro para filtrar datos y, al mismo tiempo, puedes ver los criterios de filtro en cualquier momento.

1. Haz clic en Kutools Plus > Super Filtro para mostrar la función Super Filtro. Ver captura de pantalla: Ver captura de pantalla:

2. En el panel Super Filtro haz clic en para seleccionar el rango de datos que deseas filtrar y luego marca la casilla Especificado para fijar el rango del filtro. Ver captura de pantalla:

3. En el panel Super Filtro haz clic en una línea en un grupo de filtros, luego especifica los criterios de filtro en las listas desplegables según sea necesario, y haz clic en Aceptar para finalizar la configuración de los criterios. Ver captura de pantalla:

4. Haz clic en Filtrar, y los datos seleccionados se habrán filtrado según los criterios, y al mismo tiempo, puedes ver que los criterios de filtro se muestran en el panel Super Filtro Ver captura de pantalla:

Nota: Puedes guardar los criterios de filtro como un escenario para usarlos la próxima vez con la utilidad Super Filtro.

1. Haz clic en el botón Guardar el escenario actual de configuración de filtro En el cuadro de diálogo emergente, escribe un nombre de filtro.

2. Cuando quieras usar esta configuración de filtro la próxima vez, haz clic en el botón del menú, luego selecciona el escenario en el submenú de Cargar Escenario.

Demostración: Mostrar Criterios de Filtro Mientras Filtras Usando Kutools para Excel