如何修复Excel VBA代码？实现I3单元格每10秒自动更新日期

你的代码存在3个关键问题： #

• 工作表名称不匹配：你需要更新的是Sheet1，但代码里写的是Worksheets("Display")，指向了错误的工作表。
• 单元格引用错误：Range(I3)缺少引号，VBA会把I3识别为变量而非单元格地址，正确写法是Range("I3")。
• 仅调用Calculate无效：如果I3单元格没有设置=NOW()这类自动更新的公式，Calculate方法无法触发日期更新。

修正后的完整实现步骤： #

1. 设置目标单元格公式
   先手动在Sheet1的I3单元格输入公式：=NOW()，这个公式会返回当前日期时间，后续由VBA触发刷新。

2. 替换为正确的VBA代码
   按Alt+F11打开VBA编辑器，右键工作簿→插入→模块，粘贴以下代码：

   ' 启动自动更新的触发宏
   Sub StartAutoUpdate()
       UpdateDateTime
   End Sub
   
   ' 核心更新函数
   Sub UpdateDateTime()
       ' 指定Sheet1的I3单元格重新计算
       Worksheets("Sheet1").Range("I3").Calculate
       ' 10秒后再次调用自身，形成循环
       Application.OnTime DateAdd("s", 10, Now), "UpdateDateTime"
   End Sub
   
   ' 可选：停止自动更新的宏（避免后台残留任务）
   Sub StopAutoUpdate()
       On Error Resume Next
       Application.OnTime DateAdd("s", 10, Now), "UpdateDateTime", , False
   End Sub
   

3. 实现打开文件自动启动（可选）
   若希望打开文件就自动更新，双击VBA编辑器中的ThisWorkbook对象，粘贴以下代码：

   Private Sub Workbook_Open()
       StartAutoUpdate
   End Sub
   
   Private Sub Workbook_BeforeClose(Cancel As Boolean)
       StopAutoUpdate
   End Sub
   

关键注意事项： #

• 保存文件时需选择.xlsm格式（启用宏的工作簿），否则宏会丢失。
• 打开文件时必须启用宏，自动更新功能才会生效。

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