¿Cómo saltar rápidamente a la celda con la fecha actual en Excel?
Aquí hay una hoja con una lista de fechas, desea saltar rápidamente a la celda que tiene la fecha actual, ¿cómo resolver este problema?
Ir a la fecha actual con Buscar y reemplazar
Ir a la fecha actual con VBA
Aquí hay un código VBA que puede ayudarlo a saltar rápidamente a la celda con la fecha actual.
1. Habilite el libro de trabajo que desea usar y presione Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo, pegue el código siguiente en el Módulo.
VBA: saltar a la fecha actual
Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. Prensa F5 , luego el cursor salta a la celda con la fecha actual donde se encuentre en el libro de trabajo.
Ir a la fecha actual con Buscar y reemplazar
Si no está familiarizado con el código VBA, también puede aplicar el Buscar y reemplazar utilidad para saltar a la fecha actual.
1. Habilite la hoja que contiene la lista de fechas y seleccione una celda en blanco, escriba esta fórmula = HOY (), prensa Participar clave, ahora obtiene la fecha de hoy.
2. Prensa Ctrl + C para copiar la fecha de hoy, ir a seleccionar la lista de fechas y luego presionar Ctrl + F para habilitar el Buscar y reemplazar diálogo, en el Encuentra lo que cuadro de texto, presione Ctrl + V para pegar la fecha de hoy. Ver captura de pantalla:
3. Hacer clic en Encuentra todos. Ahora el cursor salta a la celda con hoy en la lista seleccionada.
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!