¿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 código VBA
Mostrar / Mostrar criterios de filtro automático en la hoja de trabajo con Kutools para Excel
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:
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:
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:
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:
4. Y luego haz clic OK, todo el criterio se ha mostrado en la celda seleccionada de la siguiente manera:
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:
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:
2. En el Súper filtro Panel, haga clic 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:
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:
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:
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.
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.
Mostrar Ctriteria de filtro mientras se filtra
Las mejores herramientas de productividad de oficina
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...
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!