Excel技术问询：指定单元格输入文本时如何自动添加时间戳？

一、公式实现（需启用迭代计算） #

公式可以实现，但需要开启迭代计算避免时间戳随其他操作自动刷新：

• 在D1单元格输入公式：
  =IF(A1<>"", IF(D1="", NOW(), D1), "")
• 启用迭代计算步骤：点击「文件」→「选项」→「公式」，勾选「启用迭代计算」，将迭代次数设为1。
• 效果：A1首次输入文本时，D1自动插入当前时间；后续A1内容不变时，D1时间不会刷新。但手动清空D1后，再次编辑A1会重新生成时间。

二、VBA宏实现（更稳定） #

如果需要时间戳生成后不被意外修改或刷新，推荐用VBA工作表事件：

1. 按Alt+F11打开VBA编辑器；
2. 在左侧「工程资源管理器」中双击目标工作表（如「Sheet1」）；
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监听A1单元格的变化
    If Target.Address = "$A$1" And Target.Value <> "" Then
        ' 关闭事件避免循环触发
        Application.EnableEvents = False
        ' 给D1插入当前时间戳
        Range("D1").Value = Now()
        ' 重新开启事件
        Application.EnableEvents = True
    End If
End Sub

• 效果：只要A1输入非空文本（比如扫码枪录入的IN/OUT），D1会立即插入当前系统时间，且时间戳不会自动更新，适配扫码录入场景。

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