Excel表格中定時啟動宏的操作步驟

1、啟動Excel并打開包含宏的工作表，在“開發(fā)工具”選項卡的“代碼”組中單擊"Visual Basic"按鈕打開VBA編輯器，如圖1所示。

圖1　單擊

2、在工程資源管理器中雙擊“模塊1”選項打開宏所在模塊的代碼窗口，在其中輸入代碼新建一個名為“計劃運行過程”的Sub過程，如圖2所示。具體的程序代碼如下所示：

Sub計劃運行過程(Optional WaitHour As Integer=0,_

Optional WaitMin As Integer=5,Optional WaitSec As Integer=0)

Dim strProcName As String,strScheName As String

Dim NextTime As Variant

strScheName="計劃運行過程" '保存本過程的名稱

strProcName="創(chuàng)建宏" '保存需運行宏或過程的名稱

NextTime=Time+TimeSerial(WaitHour,WaitMin,WaitSec) '設(shè)置下一個計劃運行時間

Application.OnTime NextTime,strProcName '開始一個新過程運行計劃

Application.Run strScheName '計劃完成后，重新調(diào)用本過程

End Sub

圖2　在“代碼”窗口中創(chuàng)建一個新過程

提示

上述過程可以接收3個參數(shù)，分別是小時數(shù)、分鐘數(shù)及秒數(shù)。這3個參數(shù)決定了定時運行宏或過程的時間間隔。在過程中，使用TimeSerial函數(shù)來確定該值。TimeSerial函數(shù)根據(jù)接收到的3個參數(shù)產(chǎn)生Date數(shù)據(jù)。用戶在使用上述過程時，不一定需要輸入?yún)?shù)，這3個參數(shù)都是可選的，并且具有默認(rèn)值。

默認(rèn)情況下，時間間隔為5分鐘。當(dāng)用戶啟動運行該過程后，“創(chuàng)建宏”宏過程將每隔5分鐘被執(zhí)行一次。這里要注意的是，該過程并不一定保證“設(shè)置表頭格式”過程兩次執(zhí)行間的時間差絕對等于5分鐘，有可能由于用戶意外地進入單元格的編輯模式等原因造成該宏過程一次都無法按計劃執(zhí)行。