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

Cum să sari rapid la celula cu data curentă în Excel?

Iată o foaie cu o listă de date, doriți să treceți rapid la celula care are data curentă, cum să rezolvați această problemă?

Salt la data curentă cu VBA

Salt la data curentă cu Găsiți și înlocuiți


săgeată albastru dreapta balon Salt la data curentă cu VBA

Iată un cod VBA care vă poate ajuta să treceți rapid la celulă cu data curentă.

1. Activați registrul de lucru pe care doriți să îl utilizați și apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module, lipiți codul de mai jos în Module.

VBA: Salt la data curentă

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 salt la data curentă 1

3. presa F5 tasta, apoi cursorul sare la celula cu data curentă oriunde vă aflați în registrul de lucru.
doc salt la data curentă 2


săgeată albastru dreapta balon Salt la data curentă cu Găsiți și înlocuiți

Dacă nu sunteți familiarizați cu codul VBA, puteți aplica și fișierul Găsiți și înlocuiți utilitar pentru a trece la data curentă.

1. Activați foaia care conține lista de date și selectați o celulă necompletată, tastați această formulă = AZI (), presa Intrați cheie, acum obțineți data de astăzi.
doc salt la data curentă 3

2. presa Ctrl + C pentru a copia data de azi și accesați lista de date, apoi apăsați Ctrl + F pentru a activa funcția Găsiți și înlocuiți dialog, în Gaseste ce casetă text, apăsați Ctrl + V pentru a lipi data de astăzi în. Vedeți captura de ecran:
doc salt la data curentă 4

3. clic Găsiți toate. Acum, cursorul sare în celulă cu astăzi în lista selectată.
doc salt la data curentă 5

Sfat: Dacă aveţi Kutools pentru Excel, îi puteți aplica Selectați celule specifice pentru a gestiona rapid această sarcină. Este o funcție completă fără limitare în 30 zile, vă rugăm să descărcați și să aveți o încercare gratuită acum.
doc salt la data curentă 6


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (4)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru nu funcționează cu codul VBA, ci doar afișează o fereastră numită „Go To”. Am fost menite să edităm codul VBA într-un fel?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Aceleași rezultate ca și Peter... F5 afișează GoTo. Am încercat și Ctrl-F5 și Alt-F5. Există o altă secvență de taste sau adăugare la cod? Mulțumiri.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sunt un începător cu Microsoft Office și Excel, dar sunt programator din fire. Dacă obiectivul este de a localiza o celulă cu data de astăzi - și de a poziționa cursorul pe ea, nu văd nevoia pentru tot acel cod. Un cod simplu (enumerat mai jos) creat într-o macrocomandă și atribuiți macro unei litere spuneți „T”, și, ca opțiune, puteți chiar să creați un buton și să îi atribuiți macrocomanda, așa că atunci când faceți clic pe butonul veți călători direct la acea celulă. Liniile de comentarii (cele care încep cu ') sunt opționale. Puteți alege să nu le introduceți. Le-am folosit pentru depanarea codului. „Msgbox” este un instrument frumos pentru a comunica cu tine. Iată codul meu:---------------------------------- Sub GoToToday()
'
Macro GoToToday
'
' Comandă rapidă de la tastatură: Ctrl+t
'
Dim DateRange, DateCell As Range
Dim i As Byte
Dim x As String
La data de eroare CV următoare

MySheet = ActiveSheet.Name

' MsgBox (Data)
Pentru i = 12 până la 130
x = „A” și i
' MsgBox (x)
' MsgBox (Foaie de lucru(MySheet).Range(x))

If Worksheets(MySheet).Range(x).Value = Data Then
' MsgBox (i)
' MsgBox (x)
' MsgBox (Foaie de lucru(MySheet).Range(x))
x = „D” și i
Interval(x).Selectați
Ieșiți din Sub
Final, dacă
Următor →:
End Sub

Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest exemplu este îngrozitor de lent. Probabil ați putea tăia unii dintre parametrii de căutare, așa că testați dacă doriți.
Cod:

„Găsiți data de astăzi în foaie și activați celula
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormules, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activare
'-----

ActiveWindow.ScrollRow = Vizualizarea de defilare a ActiveCell.Row la celula selectată
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL