Автоматическое добавление метки времени к каждому столбцу

Question

поэтому у меня есть лист, и всякий раз, когда что-то в диапазоне A10: A23 изменяется / обновляется, предполагается поместить метку времени в соответствующий столбец в строке B, однако это не работает, и я понятия не имею, почему.

Я уже установил код листов на «Рабочий лист» и «Изменить»

Вот мой код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = A And Target.Column >= 10 And Target.Column <= 23 Then
        Cells(Target.Column, B) = Now()
    End If
End Sub

Заранее спасибо!

Answer 1

При условии, что вы будете менять только одну ячейку за раз (что не всегда верно):

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A10:A23")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False

            Target.Offset(0, 1) = Now()

        Application.EnableEvents = True
    End If
End If

End Sub