Перейти к содержимому

Как автоматически заполнять дату в ячейке, когда соседняя ячейка обновляется в Excel?

Author: Siluvia Last Modified: 2025-08-07

Иногда, при обновлении ячейки в определенном столбце, вы можете захотеть отметить последнюю дату обновления. В этой статье мы рекомендуем метод VBA для решения этой проблемы. Когда ячейка обновляется, соседняя ячейка будет автоматически заполнена текущей датой.

Автоматическое заполнение текущей даты в ячейке при обновлении соседней ячейки с помощью кода VBA


Автоматическое заполнение текущей даты в ячейке при обновлении соседней ячейки с помощью кода VBA

Предположим, что данные, которые нужно обновить, находятся в столбце B, и когда ячейка в столбце B обновляется, текущая дата будет заполнена в соседней ячейке столбца A. См. скриншот:

Auto populate current date in cell when adjacent cell is updated

Вы можете выполнить следующий код VBA для решения этой проблемы.

1. Щелкните правой кнопкой мыши вкладку листа, где нужно автоматически заполнять дату на основе обновленной соседней ячейки, а затем выберите Просмотр кода из контекстного меню.

click View Code from the right-clicking menu

2. В окне Microsoft Visual Basic for Applications скопируйте и вставьте приведенный ниже код VBA в окно Код.

Код VBA: автоматическое заполнение текущей даты в ячейке при обновлении соседней ячейки

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

Примечания:

1). В коде B:B означает, что обновленные данные находятся в столбце B.
2). -1 указывает, что текущая дата будет заполнена в столбце слева от столбца B. Если вы хотите, чтобы текущая дата заполнялась в столбце C, измените -1 на 1.

3. Нажмите клавиши Alt + Q одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications.

С этого момента, при обновлении ячеек в столбце B, соседняя ячейка в столбце A будет немедленно заполнена текущей датой. См. скриншот:

when updating cells in column B, the adjacent cell in column A will be populated with current date

a screenshot of kutools for excel ai

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

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

Связанные статьи:

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Переворот в анализе данных на основе: Интеллектуальное выполнение   |  Сгенерировать код  |  Создать Пользовательские Формулы  |  Анализ данных и генерация диаграмм  |  Вызов Kutools Functions
Популярные функции: Найти, выделить или отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячейки без потери данных   |   Округлить...
Супер ПОИСК: VLookup с несколькими критериями    VLookup с несколькими значениями  |   Многолистовой поиск   |   Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскр. список   |  Зависимый раскрывающийся список   |  Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки   |  Дизайн листа   |   Улучшенная строка формулы    Управление книгой и листами   |  Библиотека автотекста (Auto Text)   |  Выбор даты   |  Объединить данные   |  Шифрование/Расшифровка ячеек    Отправить письмо по списку   |  Супер фильтр   |   Специальный фильтр (фильтр по жирному/курсиву/зачеркиванию...) ...
Топ–15 наборов инструментов: 12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...)   |   50+ типов диаграмм (Диаграмма Ганта, ...)   |   40+ практических формул (Расчет возраста на основе даты рождения, ...)   |   19 инструментов вставки (Вставить QR-код, Вставить изображение из пути, ...)   |  12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...)   |  7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...)   |   ... и многое другое
Используйте Kutools на вашем предпочитаемом языке – поддерживаются английский, испанский, немецкий, французский, китайский и более40 других языков!

Повысьте свои навыки работы в Excel с Kutools для Excel и ощутите новую эффективность. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени.  Щелкните здесь, чтобы получить наиболее нужную вам функцию...


Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!