Excel E列改为Contacted时如何插入不自动更新的固定时间戳

你之前使用的=IF((E2)="Contacted",NOW(),"")无法实现需求是因为NOW()是易失性函数，每次文件打开、单元格重算都会自动更新值，要生成固定时间戳可选用以下两种方案：

方案1：使用VBA工作表事件（全自动，推荐） #

无需手动操作，修改E列内容时自动触发时间戳写入，写入的为静态数值不会后续变更，操作步骤如下：

• 打开目标Excel文件，按下Alt+F11调出VBA编辑器
• 在左侧工程资源管理器窗口，双击你需要生效的对应工作表（如Sheet1），调出该工作表的代码编辑面板
• 粘贴如下VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监控E列（第5列）的单元格修改操作
    If Target.Column = 5 Then
        ' 自定义时间戳存放列，如需放到F列填6、G列填7，可自行调整
        Const TimeStampColumn As Integer = 6
        ' 判断E列修改后的值为Contacted，且对应行时间戳单元格为空未写入过
        If Target.Value = "Contacted" And Cells(Target.Row, TimeStampColumn).Value = "" Then
            ' 写入当前日期时间为固定静态值
            Cells(Target.Row, TimeStampColumn).Value = Now()
            ' 自定义时间显示格式，可按需修改
            Cells(Target.Row, TimeStampColumn).NumberFormat = "yyyy/mm/dd hh:mm"
        End If
        ' 若需要E列改为其他值时同步清空时间戳，可取消注释下面一行代码
        ' If Target.Value <> "Contacted" Then Cells(Target.Row, TimeStampColumn).Value = ""
    End If
End Sub

• 保存文件时选择「Excel 启用宏的工作簿（*.xlsm）」格式即可，后续使用时只要启用宏就能自动生效。

方案2：迭代公式法（无需启用宏） #

如果不想使用宏，可通过开启迭代计算实现需求：

• 依次点击「文件」→「选项」→「公式」，勾选「启用迭代计算」选项，将「最多迭代次数」设置为1，点击确定保存设置
• 在时间戳所在列的第一行数据单元格（如F2）输入如下公式：
  =IF(E2="Contacted",IF(F2="",NOW(),F2),"")
• 将公式向下填充到所有需要生效的行即可。当E列对应单元格修改为Contacted时，会自动写入当前时间且后续不会更新，若E列改回其他值时间戳会自动清空。

内容的提问来源于stack exchange，提问作者HumMing birD