vba - 工作表更改立即添加()而不自动更新

Question

您好，我对 VBA 很陌生，但我希望有人能提供帮助。我正在尝试使用下面的代码创建时间戳。但我不知道如何将其复制到下一行。

 Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Row = 2 Then
    If Target.Value = "" Then
      Cells(2, 4).Value = ""
    Else
      Cells(2, 4).Value = Format(Now, "H:mm:ss AM/PM")
    End If
  End If
End Sub

对于那 1 个单元来说它工作得很好。但是，当我在 A3、A4 等中输入内容时，如何重复此操作。这可能是一个非常基本的问题，但我完全是新手!

Answer 1

删除第 2 行的检查并使用 Target.Row:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1  Then
    If Target.Value = "" Then
      Cells(Target.Row, 4).Value = ""
    Else
      Cells(Target.Row, 4).Value = Format(Now, "H:mm:ss AM/PM")
    End If
  End If
End Sub