¿Cómo ocultar filas según la fecha de hoy en Excel?
Supongamos que tiene una tabla de frutas en una hoja de trabajo como se muestra en la siguiente captura de pantalla, y necesita ocultar todas las filas antes o después de la fecha actual (6/14/2016) en la tabla. Este artículo le proporciona tres métodos.
Ocultar filas según la fecha de hoy con la función de filtro
Ocultar filas según la fecha de hoy con código VBA
Ocultar filas según la fecha de hoy con Kutools para Excel
Ocultar filas según la fecha de hoy con la función de filtro
Con la función de filtro en Excel, puede filtrar fácilmente todas las filas necesarias y ocultar todas las filas no deseadas según la fecha de hoy.
1. En la tabla, haga clic en el botón desplegable de la columna Fecha y luego haga clic en Filtros de fecha > Antes or Después. Ver captura de pantalla:
Notas:
2. En el Autofiltro personalizado cuadro de diálogo, haga clic en Selector de fechas junto al cuadro es después, y luego haga clic en el Hoy botón en el calendario. Y luego haga clic en el OK del botón.
Entonces, todas las filas anteriores a la fecha de hoy se ocultan inmediatamente.
Ocultar filas según la fecha de hoy con código VBA
También puede aplicar el código VBA para ocultar filas según la fecha de hoy en Excel. Haz lo siguiente.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana.
Código de VBA: oculte filas según la fecha de hoy en Excel
Private Sub Hidebtn_Click()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Value < Now Then
xCell.EntireRow.Hidden = True
End If
Next
End Sub
3. presione el F5 clave, en el apareciendo Kutools for Excel cuadro de diálogo, seleccione la columna del rango de fechas y luego haga clic en el OK del botón.
Ahora todas las filas anteriores a la fecha de hoy se ocultan inmediatamente.
Notas:
Código de VBA: mostrar todas las filas ocultas en Excel
Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End Sub
Ocultar filas según la fecha de hoy con Kutools para Excel
Con la Seleccionar celdas específicas utilidad de Kutools for Excel, puede seleccionar fácilmente todas las filas antes o después de la fecha de hoy y luego ocultarlas manualmente.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Seleccione la lista de fechas en su tabla y luego haga clic en Kutools > Seleccione > Seleccionar celdas específicas.
2. En el Seleccionar celdas específicas cuadro de diálogo, seleccione el Fila completa opción en el Tipo de selección sección, y seleccione Menos que or Más que opción (aquí selecciono la opción Menos que) en la primera Tipo específico lista desplegable, luego ingrese la fecha de hoy en el siguiente cuadro de texto. Finalmente haga clic en el OK botón. Ver captura de pantalla:
3. A continuación, aparece un cuadro de diálogo que le indica cuántas filas se seleccionaron, haga clic en el OK botón. Y puede ver que todas las filas antes de la fecha de hoy están seleccionadas como se muestra a continuación.
4. Haga clic derecho en la selección, luego haga clic en Esconder en el menú contextual para ocultar todas las filas seleccionadas antes de la fecha de hoy.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Artículos relacionados:
- ¿Cómo ocultar la casilla de verificación cuando la fila está oculta en Excel?
- ¿Cómo ocultar / mostrar filas o columnas con signo más o menos en Excel?
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!