Come passare rapidamente alla cella con la data corrente in Excel?
Ecco un foglio con un elenco di date, vuoi saltare rapidamente alla cella che è con la data corrente, come risolvere questo problema?
Passa alla data corrente con VBA
Passa alla data corrente con Trova e sostituisci
Passa alla data corrente con VBA
Ecco un codice VBA che può aiutarti a saltare rapidamente alla cella con la data corrente.
1. Abilitare la cartella di lavoro che si desidera utilizzare e premere Alt + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli, incolla sotto il codice nel file Moduli.
VBA: passa alla data corrente
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. Stampa F5 , quindi il cursore salta alla cella con la data corrente ovunque ti trovi nella cartella di lavoro.
Passa alla data corrente con Trova e sostituisci
Se non hai familiarità con il codice VBA, puoi anche applicare il Trova e sostituisci utilità per passare alla data corrente.
1. Abilitare il foglio che contiene l'elenco delle date e selezionare una cella vuota, digitare questa formula = OGGI (), stampa entrare chiave, ora ottieni la data odierna.
2. Stampa Ctrl + C per copiare la data odierna e andare a selezionare l'elenco delle date, quindi premere Ctrl + F per abilitare il Trova e sostituisci dialogo, nel file Trova quello che casella di testo, premere Ctrl + V per incollare la data odierna in. Vedi screenshot:
3. Clic Trova tutto. Ora il cursore salta alla cella con oggi nell'elenco selezionato.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!