Note: The other languages of the website are Google-translated. Back to English
English English

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


freccia blu freccia destra 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 > Modulo, incolla sotto il codice nel file Modulo.

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

doc salta alla data corrente 1

3. Stampa F5 , quindi il cursore salta alla cella con la data corrente ovunque ti trovi nella cartella di lavoro.
doc salta alla data corrente 2


freccia blu freccia destra 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 Entra chiave, ora ottieni la data odierna.
doc salta alla data corrente 3

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:
doc salta alla data corrente 4

3. Clic Trova tutto. Ora il cursore salta alla cella con oggi nell'elenco selezionato.
doc salta alla data corrente 5

Mancia: Se si dispone di Kutools for Excel, puoi applicarlo Seleziona celle specifiche per gestire rapidamente questo compito. È completamente funzionante senza limitazioni in 30 giorni, si prega di scaricare e avere una prova gratuita ora.
doc salta alla data corrente 6


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (4)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Questo non funziona con il codice VBA, fa semplicemente apparire una finestra chiamata "Vai a". Dovevamo modificare il codice VBA in qualche modo?
Questo commento è stato fatto dal moderatore sul sito
Stessi risultati di Peter... F5 fa apparire GoTo. Abbiamo anche provato Ctrl-F5 e Alt-F5. C'è qualche altra sequenza di tasti o aggiunta al codice? Grazie.
Questo commento è stato fatto dal moderatore sul sito
Sono un principiante con Microsoft Office ed Excel, ma sono un programmatore per natura. Se l'obiettivo è individuare una cella con la data odierna e posizionare il cursore su di essa, non riesco a vedere la necessità di tutto quel codice. Un codice semplice (elencato di seguito) creato in una macro e assegna la macro a una lettera dì "T", e come opzione puoi persino creare un pulsante e assegnargli la macro, quindi quando fai clic sul pulsante ti sposterai direttamente in quella cella. Le righe dei commenti (quelle che iniziano con ') sono facoltative. Puoi scegliere di non digitarli. Li ho usati per la risoluzione dei problemi del codice. "Msgbox" è un ottimo strumento per comunicare con te. Ecco il mio codice:--------------------------------- Sottotitoli GoToToday()
'
' GoToToday Macro
'
' Scorciatoia da tastiera: Ctrl+t
'
Dim DateRange, DateCell come intervallo
Dim i As Byte
Dim x come stringa
On Error Resume Next

MySheet = Foglio attivo.Nome

' MsgBox (data)
Per i = 12 A 130
x = "A" & io
' MsgBox (x)
' MsgBox (Fogli di lavoro(MySheet).Range(x))

Se Fogli di lavoro(MySheet).Range(x).Value = Data Allora
' MsgBox (i)
' MsgBox (x)
' MsgBox (Fogli di lavoro(MySheet).Range(x))
x = "D" & io
Intervallo(x).Seleziona
Exit Sub
End If
Avanti:
End Sub

Questo commento è stato fatto dal moderatore sul sito
Questo esempio è terribilmente lento. Probabilmente potresti tagliare alcuni dei parametri di ricerca, quindi prova se lo desideri.
Codice:

'Trova la data di oggi nel foglio e attiva la cella
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Attiva
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'scorre la visualizzazione fino alla cella selezionata
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite