Как быстро перейти к ячейке с текущей датой в Excel?

У вас есть лист со списком дат, и вы хотите быстро перейти к ячейке с текущей датой. Как решить эту проблему?

Перейти к текущей дате с помощью VBA

Перейти к текущей дате с помощью функции «Поиск и замена»

Перейти к текущей дате с помощью VBA

Вот код VBA, который поможет вам быстро перейти к ячейке с текущей датой.

1. Откройте нужную книгу и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий код в Модуль.

VBA: Перейти к текущей дате

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. Нажмите F5 , затем курсор переходит к ячейке с текущей датой, где бы вы ни находились в книге.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Перейти к текущей дате с помощью Поиска и замены

Если вы не знакомы с кодом VBA, вы также можете использовать утилиту «Поиск и замена», чтобы перейти к текущей дате.

1. Откройте лист, содержащий список дат, выберите пустую ячейку и введите формулу =СЕГОДНЯ(), нажмите Enter , теперь вы получили сегодняшнюю дату.

2. Нажмите Ctrl + C , чтобы скопировать сегодняшнюю дату, затем выберите список дат и нажмите Ctrl + F , чтобы открыть диалоговое окно Поиск и замена . В поле Найти нажмите Ctrl + V , чтобы вставить сегодняшнюю дату. См. скриншот:

3. Нажмите Найти все. Теперь курсор переходит к ячейке с сегодняшней датой в выбранном списке.

Совет: Если у вас есть Kutools for Excel, вы можете применить его функцию Выбрать определенные ячейки для быстрого выполнения этой задачи. Полная функциональность без ограничений доступна в течение 30 дней, скачайте и попробуйте прямо сейчас бесплатно.