Excel中定时执行任务或代码的几种方法

一、使用Excel自带的OnTime函数

1）打开Excel 进入vbe编辑器 (可使用Alt+F11组合快捷键)，插入一个新的模块（Module)，并在模块中输入以下代码：

Public Sub TestSub()
   MsgBox ("Office交流网定时执行任务") '显示一个提示对话框
End Sub

Application.OnTime Now + TimeValue("00:00:10"), "TestSub"

运行效果：

二、用API函数来实现（可实现毫秒级的计时器）

要借用两个Windows 的API函数：SetTimer和KillTimer

前者用于设置定时器，后者用于删除定时器

Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Public lngTimerID As Long

Sub StartTimer(lDuration As Long)
' 如果定时器不存在，则设置定时器，定时器触发的时间为IDuration，定时器触发后执行OnTime
If lngTimerID = 0 Then
 lngTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
 ' 否则停止定时器，并设置一个新的定时器
Else
  Call StopTimer
  lngTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
End If
End Sub

停止定时器的函数

Sub StopTimer()
   KillTimer 0&, lngTimerID 
End Sub

OnTime函数
Sub OnTime()
' 计时器触发后运行的代码放在这
Debug.Print "计时器定时执行了！"
End Sub

三、相关知识：

Application的OnTime函数

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

Application.OnTime TimeValue("17:00:00"), "my_Procedure"

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ 
 Procedure:="my_Procedure", Schedule:=False

相关文章：

VBA系列讲座(7):如何在Excel里使用定时器

Access计时器Timer与VB计时器Timer的区别