Excel 跟踪单元';使用数据时间戳和值进行s值更改

Excel 跟踪单元';使用数据时间戳和值进行s值更改,excel,vba,Excel,Vba,我目前正在Excel VBA上开发一个需求管理工具 在G列中,我有需求的状态(待办、待决、正在进行的工作、已完成),在M列中,我希望在用户更改值时自动跟踪状态的变化 我试图得到的是类似于“状态从”&[State t]&“更改为”&[State t+1]&“on”&[timestamp] 示例:“状态从在建工程更改为2019/09/05-15:30完成” 我是VBA的初学者,所以我不知道从哪里开始这个任务 提前谢谢 您需要将代码附加到图纸更改事件。每次工作表更改时都会调用此选项。代码需要检查更改的

我目前正在Excel VBA上开发一个需求管理工具

在G列中,我有需求的状态(待办、待决、正在进行的工作、已完成),在M列中,我希望在用户更改值时自动跟踪状态的变化

我试图得到的是类似于“状态从”&[State t]&“更改为”&[State t+1]&“on”&[timestamp] 示例:“状态从在建工程更改为2019/09/05-15:30完成”

我是VBA的初学者,所以我不知道从哪里开始这个任务


提前谢谢

您需要将代码附加到图纸更改事件。每次工作表更改时都会调用此选项。代码需要检查更改的单元格是否在目标列(G)中,如果在目标列(G)中,请将适当的值写入列M中的相邻单元格。要将代码附加到事件,它必须位于相应工作表的工作表模块中。按Alt-F11启动VB编辑器。在项目资源管理器中,双击相应的图纸以打开图纸模块。将以下代码粘贴到该模块中

Private Sub Worksheet_Change(ByVal Target As Range)
if target.column = 7 then 'if column G then...
   Application.EnableEvents = false 'stop tracking changes
   Cells(target.row,13) = "State changed on " & format(date(),"yyyy/mm/dd hh:mm")
   Application.EnableEvents = true 
End If
End Sub