如何在单元格数据等于某个值时添加时间戳

我正在寻找解决方案，以了解如何根据一个单元格的值输入2个时间戳，而不会在更改时出现空白。如何在单元格数据等于某个值时添加时间戳

示例：列A有一个“完成”和“待定审核”的下拉列表 - 当选择“待处理审核”时，我想在同一行的第17列中显示时间戳。并且一旦它从待审核状态变为COMPLETED状态，那么在第18列中输入一个时间戳。这样两个时间戳就可以从待处理到完成创建，并且可以记录下来分析从待处理到完成需要多少时间。

时间戳格式为 “M：d：YH：M”

来源

2016-01-27 chailof

嗨，你可以请发表你迄今为止尝试过的吗？ –

格式列Q和[R，以满足您的需求，然后进入这个小事件宏：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim A As Range: Set A = Range("A:A") 
    Dim v As String 
    If Intersect(Target, A) Is Nothing Then Exit Sub 

    Application.EnableEvents = False 
     v = Target.Value 
     If v = "PENDING AUDIT" Then Target.Offset(0, 16) = Now() 
     If v = "COMPLETED" Then Target.Offset(0, 17) = Now() 
    Application.EnableEvents = True 
End Sub

因为它是工作表代码，它很容易安装和自动使用：

右键单击选项卡名称附近的Excel窗口
选择查看代码的底部 - 这带来了一个VBE窗口
粘贴的东西并关闭VBE窗口

如果您有任何问题，首先尝试在试用工作表。

如果保存工作簿，宏将与其一起保存。如果您正在使用一个版本的Excel更高然后2003，你必须保存该文件作为.XLSM而非的.xlsx

要删除宏：

弹出窗口VBE如上
清晰的代码进行
关闭VBE窗口

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解更多有关事件宏（工作表的代码），请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

宏必须为此工作启用！

来源

2016-01-27 16:12:40

这工作完美。非常感谢。如果在我发布问题之前它是空白的，我最初得到了它的补偿，并且不知道如何继续做两个不同的值。你的代码是现货！再次感谢！ – chailof

如何在单元格数据等于某个值时添加时间戳

回答

相关问题