¿Cómo filtrar todas las celdas de fecha antes o después de hoy en Excel?
En este artículo, hablaré sobre cómo filtrar todas las celdas de fecha antes o después de hoy en la hoja de cálculo de Excel.
Filtrar todas las celdas de fecha antes o después de hoy con la función de filtro
Filtrar todas las celdas de fecha antes o después de hoy con el código VBA
Filtrar todas las celdas de fecha antes o después de hoy con la función de filtro
De hecho, la función Filtro en Excel puede ayudarlo a resolver esta tarea lo más rápido que pueda, haga lo siguiente:
1. Seleccione la columna de fecha que desea filtrar y luego haga clic en Datos > Filtrar, ver captura de pantalla:
2. Luego haga clic en la flecha desplegable y luego elija Filtros de fecha > Antes / Después como lo necesite, vea la captura de pantalla:
3. En la Autofiltro personalizado cuadro de diálogo, haga clic en Selector de fechas
botón, y luego haga clic Hoy botón en el calendario del selector de fechas, consulte screesnhot:
4. Luego haga clic OK para cerrar el diálogo, y todas las fechas anteriores o posteriores a hoy se han filtrado como se muestra en la siguiente captura de pantalla:
Filtrar todas las celdas de fecha antes o después de hoy con el código VBA
Los siguientes códigos de VBA también pueden ayudarlo a filtrar todas las fechas anteriores o posteriores al día actual en una hoja de trabajo. Siga los pasos a continuación:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue uno de los siguientes códigos en el Módulo Ventana.
Código de VBA: filtre todas las celdas de fecha antes de hoy:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, "<" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
Código VBA: filtrar todas las celdas de fecha posteriores a hoy:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, ">" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
3. Después de copiar y pegar uno de los códigos anteriores, presione F5 para ejecutar este código y aparecerá un cuadro emergente para recordarle que seleccionó la columna de fecha que desea filtrar; vea la captura de pantalla:
4. Y luego haz clic OK , todas las celdas de fecha anteriores o posteriores a hoy se filtrarán inmediatamente.
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!
