office交流網(wǎng)--QQ交流群號及微信交流群

Access培訓(xùn)群：792054000         Excel免費交流群群：686050929          Outlook交流群：221378704    

Word交流群：218156588             PPT交流群：324131555

微信交流群（請用微信掃碼)

        

Excel中定時執(zhí)行任務(wù)或代碼的幾種方法

2017-08-09 13:54:00
zstmtony
翻譯
31836



一、使用Excel自帶的OnTime函數(shù)


1）打開Excel 進(jìn)入vbe編輯器 (可使用Alt+F11組合快捷鍵)，插入一個新的模塊（Module)，并在模塊中輸入以下代碼：


 

Public Sub TestSub()
   MsgBox ("Office交流網(wǎng)定時執(zhí)行任務(wù)") '顯示一個提示對話框
End Sub


2）然后給它配上一個計時器，就能讓它在指定的時間自動運(yùn)行。
Application.OnTime Now + TimeValue("00:00:10"), "TestSub"

這句代碼可以放在Wordbook的 打開Open事件中來觸發(fā)

ontime是一個excel函數(shù)，所以必須指定application這個對象。now函數(shù)是指定當(dāng)前時間，配合上+號這是運(yùn)算符，與后面timevalue的值相加。逗號后是調(diào)用過程的名稱，使用雙引號引用起來。


運(yùn)行效果：



二、用API函數(shù)來實現(xiàn)（可實現(xiàn)毫秒級的計時器）

要借用兩個Windows 的API函數(shù)：SetTimer和KillTimer

前者用于設(shè)置定時器，后者用于刪除定時器


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


聲明lTimerID用于存放定時器的ID
Public lngTimerID As Long

啟動定時器，IDuration是定時器觸發(fā)的時間，單位為毫秒
Sub StartTimer(lDuration As Long)
' 如果定時器不存在，則設(shè)置定時器，定時器觸發(fā)的時間為IDuration，定時器觸發(fā)后執(zhí)行OnTime
If lngTimerID = 0 Then
 lngTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
 ' 否則停止定時器，并設(shè)置一個新的定時器
Else
  Call StopTimer
  lngTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
End If
End Sub



停止定時器的函數(shù)

Sub StopTimer()
   KillTimer 0&, lngTimerID 
End Sub



OnTime函數(shù)
Sub OnTime()
' 計時器觸發(fā)后運(yùn)行的代碼放在這
Debug.Print "計時器定時執(zhí)行了！"
End Sub



三、相關(guān)知識：


Application的OnTime函數(shù)



安排一個過程在將來的特定時間運(yùn)行（既可以是具體指定的某個時間，也可以是指定的一段時間之后）。

語法

表達(dá)式.OnTime(EarliestTime, Procedure, LatestTime, Schedule)

表達(dá)式 一個代表 Application 對象的變量。

參數(shù)

名稱

必需/可選

數(shù)據(jù)類型

說明

EarliestTime

必需

Variant

希望此過程運(yùn)行的時間。

Procedure

必需

String

要運(yùn)行的過程名。

LatestTime

可選

Variant

過程開始運(yùn)行的最晚時間。例如，如果 LatestTime 參數(shù)設(shè)置為 EarliestTime + 30，且當(dāng)?shù)竭_(dá)EarliestTime 時間時，由于其他過程處于運(yùn)行狀態(tài)而導(dǎo)致 Microsoft Excel 不能處于“就緒”、“復(fù)制”、“剪切”或“查找”模式，則 Microsoft Excel 將等待 30 秒讓第一個過程先完成。如果 Microsoft Excel 不能在 30 秒內(nèi)回到“就緒”模式，則不運(yùn)行此過程。如果省略該參數(shù)，Microsoft Excel 將一直等待到可以運(yùn)行該過程為止。

Schedule

可選

Variant

如果為 True，則預(yù)定一個新的 OnTime 過程。如果為 False，則清除先前設(shè)置的過程。默認(rèn)值為True。

注解

使用 Now + TimeValue(time) 可安排經(jīng)過一段時間（從現(xiàn)在開始計時）之后運(yùn)行某個過程。使用 TimeValue(time) 可安排某個過程只運(yùn)行指定的時間。

將 EarliestTime 值四舍五入到最接近的下一個值。

將 Schedule 設(shè)置為 false，以清除以前設(shè)置的具有相同 Procedure 和 EarliestTime 值的程序。

示例

本示例設(shè)置從現(xiàn)在開始 15 秒后運(yùn)行 my_Procedure。

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

本示例設(shè)置 my_Procedure 在下午 5 點開始運(yùn)行。

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

本示例撤消前一個示例對 OnTime 的設(shè)置。

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


相關(guān)文章：


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

Access計時器Timer與VB計時器Timer的區(qū)別


    分享
    文章分類
    聯(lián)系我們
    聯(lián)系人： 王先生
    Email： 18449932@qq.com
    QQ： 18449932
    微博： officecn01
    移動訪問