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的區彆