我已将一些用于时间戳和用户名的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
我只想在单元格值更改时添加时间戳和用户名,例如从“打开”到“完成”。我真的很感谢您的帮助:)
答案 0 :(得分:0)
只需结束这个问题即可:您想要Worksheet_Change
事件而不是Worksheet_SelectionChange
。
要解决此问题,只需删除Selection
中的Worksheet_SelectionChange
。