VBA定时器重复执行程序：Excel自动秒级打卡

==标题==

VBA定时器重复执行程序：方法1-Application.OnTime

==回顾==

VBA实现定时器重复执行sub代码的方法汇总

==正文==

解决问题

VBA定时器重复执行某个程序

打工人必备技能！今天教你在Excel里用VBA实现「每秒自动记录时间」的神操作✨ 告别手动点按钮，让Excel化身智能打卡机/数据记录仪！（文末送完整代码）

▍能干啥？（适用场景）▍
✅ 实验数据自动采集 ✅ 考勤时间轴生成
✅ 报表周期刷新 ✅ 抢单倒计时脚本
举个栗子🌰：点击开始后，A列会像这样自动刷时间👇

---

使用Application.OnTime重复执行程序
2025-03-23 09:00:01
2025-03-23 09:00:02
2025-03-23 09:00:03

▍我们先睹为愉快▍

▍知识点▍

在 VBA 里，Application.OnTime 这个方法能够让你在指定的时间点或者经过一段指定的时间之后运行宏。下面为你详细介绍其用法：

语法

Application.OnTime EarliestTime, Procedure, [LatestTime], [Schedule]

参数解释

• EarliestTime：这是必选参数，代表你期望宏运行的时间。它可以是 Date 类型的值，也能是一个代表时间的字符串。

• Procedure：同样是必选参数，指的是要运行的宏的名称，需要用字符串来表示。

• LatestTime：此为可选参数，规定了宏运行的最晚时间。若到了这个时间宏还没开始运行，就不会再运行了。

• Schedule：也是可选参数，是一个布尔值。若为 True（默认值），则安排宏在指定时间运行；若为 False，则取消之前安排的宏。

▍手把手教学（含代码）▍

' 定义全局变量Dim NextTime As Double   ' 存储下一次执行时间Dim IsRunning As Boolean ' 控制任务启停' ======================' 【开始按钮触发的宏】' ======================Sub StartRecording()If IsRunning Then Exit Sub  ' 避免重复启动' 初始化状态IsRunning = TrueRange("A:A").ClearContents  ' 清空 A 列内容Range("A1").Value = "使用Application.OnTime重复执行程序"  ' 标题' 设置首次执行时间（立即执行）NextTime = NowCall RecordTimeEnd Sub' ======================' 【定时任务核心逻辑】' ======================Sub RecordTime()If Not IsRunning Then Exit Sub  ' 检查是否已停止' 写入当前时间（格式：yyyy-mm-dd hh:mm:ss）Dim lastRow As LonglastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1Dim rng As RangeSet rng = Cells(lastRow, 1)rng.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"rng.Value = Format(Now, "yyyy-mm-dd hh:mm:ss")' 设置下一次执行时间（间隔 1 秒）NextTime = Now + TimeValue("00:00:01")Application.OnTime NextTime, "RecordTime"End Sub' ======================' 【停止按钮触发的宏】' ======================Sub StopRecording()IsRunning = FalseOn Error Resume Next  ' 防止未启动时取消报错Application.OnTime NextTime, "RecordTime", , FalseEnd Sub

▍使用说明▍

1. 插入按钮：

• 在工作表中插入两个按钮（开发工具 → 插入 → 按钮）。

• 右键按钮分别指定宏：

1.开始按钮 → StartRecording

2.停止按钮 → StopRecording

• 运行效果：

1.点击 开始 后，A 列从第 2 行开始每秒写入当前时间（格式 2023-10-25 14:30:15）。

2.点击 停止 后立即终止记录。

▍注意事项▍

1.最小间隔限制：

Application.OnTime 实际最小间隔约为 1 秒，更短时间（如 0.5 秒）可能无法稳定触发。

2.Excel 必须保持打开：

关闭工作簿或 Excel 会终止定时任务。

3.时间精度误差：

因系统负载和 VBA 执行耗时，实际间隔可能有 ±0.1 秒误差。

==正文结束==

==更多合集==

===***===

关注		转发
点赞		在看