仅当单击但未编辑单元格时，如何禁用通过宏添加时间戳？

Question

我已将一些用于时间戳和用户名的VBA代码添加到任务跟踪文件中。当我为此找到的代码可以工作并在需要的地方添加信息时，宏会对单击做出反应，并输入单击时间而不是值更改的时间。

我尝试了各种代码，这是我最终得到的代码。任务状态在“ I”列中，我希望时间戳显示在“ K”列中，而“用户名”显示在“ L”列中。代码位于工作表内。

Public Function UserName()
    UserName = Environ$("UserName")
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
Application.EnableEvents = False
Cells(Target.Row, 11).Value = Date + Time
Cells(Target.Row, 12).Value = UserName
Application.EnableEvents = True
End If

End Sub

我只想在单元格值更改时添加时间戳和用户名，例如从“打开”到“完成”。我真的很感谢您的帮助：）

Answer 1

只需结束这个问题即可：您想要Worksheet_Change事件而不是Worksheet_SelectionChange。

要解决此问题，只需删除Selection中的Worksheet_SelectionChange。