Saltar al contenido principal

¿Cómo mostrar / mostrar 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 los datos por varios criterios y enviar el archivo a otros. En esta situación, si los demás usuarios quieren conocer su criterio filtrado, ¿cómo podrían hacerlo?

Mostrar / Mostrar criterios de filtro automático en la hoja de trabajo con la función definida por el usuario

Mostrar / Mostrar criterios de filtro automático en la hoja de trabajo con código VBA

Mostrar / Mostrar criterios de filtro automático en la hoja de trabajo con Kutools para Excel buena idea3


Mostrar / Mostrar criterios de filtro automático en la hoja de trabajo con la función definida por el usuario

Suponiendo que tiene los siguientes datos que han sido filtrados por algún criterio, vea la captura de pantalla:

doc-mostrar-filtro-criterios1

Y ahora puedo crear una función definida por el usuario para mostrar el criterio de filtro en las celdas, siga los siguientes pasos:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Ventana de 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 guarde y cierre este código, en una celda en blanco de una fila en blanco, por ejemplo, celda A1, ingrese esta fórmula = AutoFilter_Criteria (A4) (A4 es la celda de encabezado de los datos filtrados), vea la captura de pantalla:

doc-mostrar-filtro-criterios1

4. Entonces presione Participar y luego seleccione la celda A1, arrastre el controlador de relleno a las celdas de la derecha que necesita para contener esta fórmula, y todo el criterio se ha mostrado en las celdas, vea la captura de pantalla:

doc-mostrar-filtro-criterios1

Note: Si hay más de dos criterios en una columna, esta función definida por el usuario no dará el resultado correcto.


Mostrar / Mostrar criterios de filtro automático en la hoja de trabajo con código VBA

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

1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Ventana de módulo:

Código de VBA: muestra los criterios de filtro automático en la hoja de trabajo

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. Entonces presione F5 para ejecutar este código, aparecerá un cuadro emergente que le permitirá seleccionar una celda en blanco para poner el criterio, vea la captura de pantalla:

doc-mostrar-filtro-criterios1

4. Y luego haz clic OK, todo el criterio se ha mostrado en la celda seleccionada de la siguiente manera:

doc-mostrar-filtro-criterios1

Nota:

Con este código VBA, si su criterio tiene más de dos en una columna, no se mostrará el criterio de filtro detallado, sino que se mostrará de la siguiente manera:

doc-mostrar-filtro-criterios1


Mostrar / Mostrar criterios de filtro automático en la hoja de trabajo con Kutools para Excel

Si tiene Kutools for Excel instalado, puede aplicar su Súper filtro función para filtrar datos y, al mismo tiempo, puede ver los criterios de filtrado en cualquier momento.

Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. 

Después instalación gratuita Kutools para Excel, haga lo siguiente:

1. Hacer clic en Kutools Más > Súper filtro para mostrar el Súper filtro función. Ver captura de pantalla:
doc super filtro 1

2. En el Súper filtro Panel, haga clic botón de selección de documento para seleccionar el rango de datos que desea filtrar, luego marque la casilla de verificación Especificado para fijar el rango del filtro. Ver captura de pantalla:
doc super filtro 2

3. En el Súper filtro panel, haga clic en una línea en un grupo de filtros, luego especifique los criterios de filtro en las listas desplegables según lo necesite, luego haga clic en Aceptar para finalizar la configuración de criterios. Ver captura de pantalla:
doc super filtro 2

4. Hacer clic en Filtrar, y los datos seleccionados han sido filtrados por los criterios, y mientras tanto, puede ver que los criterios de filtro se muestran en el Súper filtro cristal. Ver captura de pantalla:
doc super filtro 3

Nota: Puede guardar los criterios de filtrado como un escenario para el próximo uso con la utilidad Superfiltro.

1. haga clic en el Guardar la configuración actual del filtro , en el cuadro de diálogo emergente, escriba un nombre de filtro.
doc kutools super filtro 5

2. Cuando desee utilizar esta configuración de archivador la próxima vez, haga clic en el botón de menú, luego elija el escenario en el submenú de Abrir escenario de configuración de filtro guardada.
doc kutools super filtro 6


Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Sir, Please see here below mentioned query for your easy understanding. I want to see the result in column E7 when i filter data in column A3 (Column E7) Vendor Name: (column A3) Vendor Name Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz for Cont. Est. Arkal Est. for Cont. Danat Al-Rayan Gray Falcon
This comment was minimized by the moderator on the site
Hi, The code for show auto filter criteria in the worksheet works great. As suggested, if there are more than two criteria, I output text saying 'multiple criteria'. However, I'd really like to be able to generate a list of what the multiple criteria are. Is this at all possible? Cheers, Alex
This comment was minimized by the moderator on the site
hi there, thank you for the code, it works like a charm. One thing I have trouble with thouhg - when I select filter criteria the designated cell displays whichever two I had selected. If then I select two different criteria the designated cell content doesn't refresh. It seems stuck at my first filter selection. Is there anythig I can do? Thank you, Wendy
This comment was minimized by the moderator on the site
This code is great and has helped me a lot. I ran into a problem when I tried to select new filter criteria. The cell that displays the filter criteria selected doesnt refresh when I am selecting new criteria. Please help, Thank you, Wendy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations