Przejdź do głównej zawartości

Jak szybko przejść do komórki z aktualną datą w Excelu?

Autor: Sun Ostatnia modyfikacja: 2020-07-21

Oto arkusz z listą dat, chcesz szybko przeskoczyć do komórki z aktualną datą, jak rozwiązać ten problem?

Przejdź do aktualnej daty z VBA

Przejdź do bieżącej daty za pomocą funkcji Znajdź i zamień

strzałka niebieski prawy bąbelek Przejdź do aktualnej daty z VBA

Oto kod VBA, który pomoże Ci szybko przejść do komórki z aktualną datą.

1. Włącz skoroszyt, którego chcesz używać i naciśnij Alt + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł, wklej poniższy kod do pliku Moduł.

VBA: Przejdź do aktualnej daty

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

przeskocz do aktualnej daty 1

3. naciśnij F5 klawisz, kursor przeskakuje do komórki z bieżącą datą w dowolnym miejscu skoroszytu.
przeskocz do aktualnej daty 2

strzałka niebieski prawy bąbelek Przejdź do bieżącej daty za pomocą funkcji Znajdź i zamień

Jeśli nie znasz kodu VBA, możesz również zastosować Znajdowanie i zamienianie narzędzie, aby przejść do aktualnej daty.

1. Włącz arkusz zawierający listę dat i wybierz pustą komórkę, wpisz tę formułę = DZIŚ (), naciśnij Wchodzę klucz, teraz masz dzisiejszą datę.
przeskocz do aktualnej daty 3

2. naciśnij Ctrl + C aby skopiować dzisiejszą datę i przejdź do listy dat, a następnie naciśnij Ctrl + F włączyć Znajdowanie i zamienianie okno dialogowe w Znajdź co pole tekstowe, naciśnij Ctrl + V aby wkleić dzisiejszą datę do. Zobacz zrzut ekranu:
przeskocz do aktualnej daty 4

3. kliknij Znajdź wszystko. Teraz kursor przeskakuje do komórki z dzisiaj na wybranej liście.
przeskocz do aktualnej daty 5

Wskazówka: Jeśli Kutools dla programu Excel, możesz zastosować jego Wybierz określone komórki aby szybko uporać się z tym zadaniem. Pełna funkcjonalność bez ograniczeń w 30 dni, pobierz i wypróbuj teraz bezpłatną wersję próbną.
przeskocz do aktualnej daty 6

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (4)
No ratings yet. Be the first to rate!
mkrmec
mkrmec
This comment was minimized by the moderator on the site
This example is horribly slow. You could probably trim some of the find parameters, so test if you want.
Code:

'Find todays date in the sheet and activate cell
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'scroll view to selected cell
Reply
0
0
Haitham Awwad
Haitham Awwad
This comment was minimized by the moderator on the site
I am a novice with Microsoft Office, and Excel, but I am a programmer by nature. If the objective is to locate a cell with today's date - and position the cursor to it, I can't see the need for all that code.A simple code (listed below) created in a macro, and assign the macro to a letter say "T", and as an option you may even created a button and assign the macro to it, so when you click the button you will travel directly to that cell.The comments lines (those that start with ') are optional. You may choose not to type them. I used them for troubleshooting the code. "Msgbox" is a nice tool to communicate with you.Here is my code:---------------------------------Sub GoToToday()
'
' GoToToday Macro
'
' Keyboard Shortcut: Ctrl+t
'
Dim DateRange, DateCell As Range
Dim i As Byte
Dim x As String
On Error Resume Next

MySheet = ActiveSheet.Name

' MsgBox (Date)
For i = 12 To 130
x = "A" & i
' MsgBox (x)
' MsgBox (Worksheets(MySheet).Range(x))

If Worksheets(MySheet).Range(x).Value = Date Then
' MsgBox (i)
' MsgBox (x)
' MsgBox (Worksheets(MySheet).Range(x))
x = "D" & i
Range(x).Select
Exit Sub
End If
Next:
End Sub

Reply
0
0
Mike
Mike
This comment was minimized by the moderator on the site
Same results as Peter ... F5 brings up GoTo. We also tried Ctrl-F5 and Alt-F5. Is there some other key sequence or addition to the code? Thanks.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
This doesn't work with the VBA code, it just brings up a window called "Go To". Were we meant to edit the VBA code in some way?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations