Delay a Macro 延迟执行宏 · Excel

重点内容

桌面版通用（Excel 365 / 2021 / 2019 等）。

Sub reminder()
  MsgBox "Don't forget your meeting at 14:30"
End Sub

在按钮绑定的代码里写：

Application.OnTime Now() + TimeValue("00:00:05"), "reminder"

点击按钮后，程序不会立刻跳出提醒，而是等 5 秒后才执行 reminder。

Application.OnTime TimeValue("14:00:00"), "reminder"

把参数从「现在 + 延迟」换成一个固定的时间点，到了这个时间就会自动跳出提醒。

📌 想要不用手动点按钮就自动提醒，可以把这段代码放进 Workbook Open 事件里，一打开工作簿就排定提醒——但工作簿必须保持打开状态，提醒才会准时触发。

写法	适合场景	备注
`Now() + TimeValue(...)`	从「现在」起算，延迟固定秒数/分钟后执行	常用于「点击后 N 秒提醒」
`TimeValue("固定时刻")`	不管现在几点，都在某个固定时刻执行	常用于「每天到点自动提醒」

Blog / Website：