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

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

Author: Siluvia Last Modified: 2025-06-05

Иногда, при обновлении ячейки в определенном столбце, вы можете захотеть отметить последнюю дату обновления. В этой статье мы рекомендуем метод 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
Популярные функции: Найти, выделить или отметить дубликаты | Удалить пустые строки | Объединить столбцы или ячейки без потери данных |   Округлить без формулы ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP с несколькими значениями | Многолистовой поиск | Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Избранные функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгами и листами | Библиотека автотекста | Выбор даты | Объединить данные | Шифрование/расшифровка ячеек | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр ячеек с жирным/курсивом/зачёркнутым...) ...
Топ-15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ практических формул (Расчет возраста на основе даты рождения, ...) |19 инструментов вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов для объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое

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


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

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