将工作表\u更改代码应用于原始选择

正如Vacip所指出的 Target 提供已更改的单元格,然后您可以使用 OffSet 参数将注释放置在需要注释的位置。

例如 Target.Offset(1, 0).Value = "Foo" 将“Foo”从更改的单元格向下放置一行 Target.Offset(0, 1).Value = "Bar" 将“Bar”列置于右侧。

确保添加 Application.EnableEvents = False 在程序顶部,以及 Application.EnableEvents = True 在底部。这将防止过程再次激活代码(这可能会导致几乎无限的循环,直到它用完列为止)。

类似以下的操作应该可以做到这一点:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    'enable events to false to restrict the code to one row below and not an infinite loop
    Target.Offset(1, 0).Value = "Edited/Deleted on " & Now()
    'add the Edited/Deleted text and date and time
    Application.EnableEvents = True
    're-enable events after doing what you wanted.
End Sub