如何在Excel中实现类似电子表的自动实时计时功能？

没问题！在Excel里实现自动每秒更新时间的电子表效果，其实可以借助Application.OnTime方法来替代手动点击按钮，完美模拟Access里的On Timer事件。下面给你一步步的解决方案：

1. 编写核心时间更新循环代码 #

先创建一个负责更新时间并循环触发的子程序，它会每秒自动调用自己：

Sub UpdateClock()
    ' 将E3单元格更新为当前系统时间（可根据需求改成Sheet2等实际工作表名）
    ThisWorkbook.Sheets("Sheet1").Range("E3").Value = Now()
    ' 安排1秒后再次执行本程序，形成循环更新
    Application.OnTime Now() + TimeValue("00:00:01"), "UpdateClock"
End Sub

2. 设置工作簿打开时自动启动 #

要让工作簿一打开就开始运行定时更新，需要在ThisWorkbook的打开事件里触发上面的子程序：

1. 按Alt + F11打开VBA编辑器
2. 在左侧项目窗格找到ThisWorkbook，双击打开它
3. 在上方的事件下拉菜单中选择Open，然后输入以下代码：

Private Sub Workbook_Open()
    ' 启动时间更新循环
    UpdateClock
End Sub

3. 可选：添加停止更新的防错机制 #

如果直接关闭工作簿，残留的定时任务可能导致下次打开Excel时出错。建议添加停止代码，并在关闭工作簿时触发：
首先在模块中添加停止子程序：

Sub StopClock()
    On Error Resume Next ' 避免任务已取消时抛出错误
    Application.OnTime EarliestTime:=Now() + TimeValue("00:00:01"), Procedure:="UpdateClock", Schedule:=False
End Sub

然后回到ThisWorkbook，添加关闭事件代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 关闭工作簿前停止定时更新
    StopClock
End Sub

关键注意事项 #

• 保存工作簿时要选择.xlsm格式（启用宏的工作簿），否则代码无法运行
• 如果修改了UpdateClock的子程序名称，记得同步修改Application.OnTime和停止代码里的程序名
• 测试时可以先手动运行UpdateClock验证效果，再关闭重新打开工作簿确认自动启动

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