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

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

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 masz Kutools dla programu Excel, możesz zastosować jego Wybierz określone komórki aby szybko obsłużyć to zadanie. Jest to pełna funkcja bez ograniczeń w 30 dni, pobierz i wypróbuj teraz bezpłatną wersję próbną.
przeskocz do aktualnej daty 6


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (4)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
To nie działa z kodem VBA, po prostu wyświetla okno o nazwie „Przejdź do”. Czy mieliśmy w jakiś sposób edytować kod VBA?
Ten komentarz został zminimalizowany przez moderatora na stronie
Takie same wyniki jak Peter... F5 przywołuje GoTo. Próbowaliśmy również Ctrl-F5 i Alt-F5. Czy istnieje jakaś inna sekwencja klawiszy lub dodatek do kodu? Dzięki.
Ten komentarz został zminimalizowany przez moderatora na stronie
Jestem nowicjuszem w Microsoft Office i Excelu, ale z natury jestem programistą. Jeśli celem jest zlokalizowanie komórki z dzisiejszą datą - i umieszczenie na niej kursora, nie widzę potrzeby stosowania całego tego kodu. Prosty kod (wymieniony poniżej) utworzony w makrze i przypisanie makra do litery powiedz "T", a opcjonalnie możesz nawet utworzyć przycisk i przypisać do niego makro, więc po kliknięciu przycisku przejdziesz bezpośrednio do tej komórki. Linie komentarzy (te, które zaczynają się od ') są opcjonalne. Możesz ich nie wpisywać. Użyłem ich do rozwiązywania problemów z kodem. "Msgbox" to fajne narzędzie do komunikacji z Tobą.Oto mój kod:--------------------------------- Sub IdźDoDzisiaj()
'
' IdźToDziś makro
'
' Skrót klawiaturowy: Ctrl+t
'
Dim DateRange, DateCell jako zakres
Dim i jako bajt
Wym x jako ciąg
On Error Resume Next

MójArkusz = Aktywny Arkusz.Nazwa

' Skrzynka wiad. (data)
Dla i = 12 To 130
x = „A” i i
' Skrzynka wiadomości (x)
' MsgBox (Arkusze(MySheet).Range(x))

Jeśli Worksheets(MySheet).Range(x).Value = Data Then
Skrzynka wiadomości (i)
' Skrzynka wiadomości (x)
' MsgBox (Arkusze(MySheet).Range(x))
x = „D” i i
Zakres(x).Wybierz
Exit Sub
End If
Dalej:
End Sub

Ten komentarz został zminimalizowany przez moderatora na stronie
Ten przykład jest strasznie powolny. Prawdopodobnie mógłbyś przyciąć niektóre parametry wyszukiwania, więc przetestuj, jeśli chcesz.
Kod:

'Znajdź dzisiejszą datę w arkuszu i aktywuj komórkę
Cells.Find(What:=Data, After:=ActiveCell, LookIn:=xlFormules, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SzukajFormat:=Fałsz).Aktywuj
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'przewiń widok do zaznaczonej komórki
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL