Jak rychle přeskočit na buňku s aktuálním datem v aplikaci Excel?

Zde je list se seznamem dat, chcete rychle přeskočit na buňku, která je s aktuálním datem, jak vyřešit tento problém?

Přejít na aktuální datum pomocí VBA

Přeskočte na aktuální datum pomocí funkce Najít a nahradit

Přejít na aktuální datum pomocí VBA

Zde je kód VBA, který vám pomůže rychle přejít do buňky s aktuálním datem.

1. Povolte sešit, který chcete použít, a stiskněte Alt + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, vložte pod kód do Modul.

VBA: Přejít na aktuální datum

Private Sub Workbook_Open()
'UpdatebyExtendoffice
    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. lis F5 klávesu, pak kurzor přeskočí na buňku s aktuálním datem, kamkoli sešitu najdete.

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Přeskočte na aktuální datum pomocí funkce Najít a nahradit

Pokud nejste obeznámeni s kódem VBA, můžete také použít Najít a nahradit nástroj pro přechod na aktuální datum.

1. Povolte list, který obsahuje seznam dat, a vyberte prázdnou buňku, zadejte tento vzorec = DNES (), lis vstoupit klíč, teď dostanete dnešní datum.

2. lis Ctrl + C zkopírujte datum dneška, vyberte seznam dat a stiskněte Ctrl + F k povolení Najít a nahradit v dialogovém okně Najít to, co textové pole, stiskněte Ctrl + V vložit dnešní datum do. Viz snímek obrazovky:

3. cvaknutí Najít vše. Nyní kurzor přeskočí na buňku s dneškem ve vybraném seznamu.

Tip: Pokud máte Kutools pro Excel, můžete použít jeho Vyberte konkrétní buňky rychle zvládnout tento úkol. Plně funkční bez omezení za 30 dní, prosím stáhněte si a získejte bezplatnou zkušební verzi hned teď.