可在Excel中通过VBA实现静态时间写入：一、用Worksheet_Change事件在A列录入时自动于B列填入不可变当前时间；二、用按钮宏在活动单元格右侧插入格式化静态时间；三、用快捷键宏直接向活动单元格写入带格式静态时间。
如果您在Excel中录入数据时希望在特定单元格中自动插入当前时间，并且该时间在录入后保持不变，可以使用VBA脚本实现静态时间写入。以下是实现此功能的多种方法：
一、使用Worksheet_Change事件自动写入静态时间
该方法通过监听目标列（如A列）的数据变更，在同一行的指定列（如B列）自动填入当前时间戳，且该时间不会随公式重算而更新，属于静态值。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中，双击对应工作表名称（例如 Sheet1）。
3、将以下代码粘贴到右侧代码窗口中：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
Application.EnableEvents = False
Dim cell As Range
For Each cell In Intersect(Target, Me.Range("A:A"))
If cell.Value "" And Me.Cells(cell.Row, "B").Value = "" Then
Me.Cells(cell.Row, "B").Value = Now
End If
Next cell
Application.EnableEvents = True
End If
End Sub
4、关闭VBA编辑器，返回Excel，当在A列输入任意内容时，B列对应行将自动填入不可变的当前时间。
二、使用按钮触发式VBA宏写入静态时间
该方法通过插入一个表单控件按钮，点击后在活动单元格右侧或指定位置写入一次性的当前时间值，适用于需要手动控制时间写入时机的场景。
1、在“开发工具”选项卡中点击 插入 → 按钮（窗体控件），在工作表中绘制按钮。
2、绘制完成后弹出“指定宏”对话框，点击 新建。
3、在新打开的VBA编辑器窗口中，输入以下代码并保存：
Sub InsertStaticTime()
If ActiveCell.Value "" Then
ActiveCell.Offset(0, 1).Value = Now
ActiveCell.Offset(0, 1).NumberFormat = "yyyy-mm-dd hh:mm:ss"
End If
End Sub
4、关闭编辑器，右键按钮选择 编辑文字，将其命名为“插入时间”。此后每次点击该按钮，即在当前选中单元格右侧填入格式化后的静态时间。
三、使用快捷键绑定宏快速写入静态时间
该方法将时间写入宏绑定至自定义快捷键，无需鼠标操作，提升高频录入场景下的效率，时间值直接写入当前活动单元格。
1、按 Alt + F11 打开VBA编辑器，插入一个新模块（右键“正常”→插入→模块）。
2、在模块中粘贴如下代码：
Sub WriteTimeToActiveCell()
With ActiveCell
.Value = Now
.NumberFormat = "yyyy-mm-dd hh:mm:ss"
End With
End Sub
3、返回Excel，进入 文件 → 选项 → 自定义功能区 → 键盘快捷方式：自定义快捷键。
4、在“类别”中选择 宏，在“宏”列表中找到 WriteTimeToActiveCell，将光标置于“请按新快捷键”框内，按下组合键（如 Ctrl + Shift + T），点击“指定”。
5、此后在任意单元格中按下该快捷键，即可立即填入带格式的静态当前时间。
