Как вставить текущую метку времени при изменении данных в другой ячейке в Excel?

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

Вставить текущую метку времени, когда данные в другой ячейке изменяются с кодом VBA

Вставить текущую метку времени, когда данные в другой ячейке изменяются с кодом VBA

Как показано на скриншоте ниже, вам необходимо указать временную метку в столбце E, если соответствующие ячейки в столбце C изменены. Пожалуйста, сделайте следующее.

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

2. Затем скопируйте и вставьте приведенный ниже код VBA в Code окно Microsoft Visual Basic для приложений окно. Смотрите скриншот:

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

Внимание: В коде номер 3 означает, что вы собираетесь изменить данные в столбце C, а 5 указывает, что метка времени будет заполнена в столбце E. Измените их в соответствии с вашими потребностями.

3. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

С этого момента при изменении данных в столбце C временная метка будет подставлена ​​в соответствующие ячейки в столбце E, как показано на скриншоте ниже.

Статьи по теме:

• Как вставить или отобразить последнюю сохраненную метку времени на листе в Excel?
• Как вставить метку времени в определенную ячейку при запуске макроса в Excel?