Excel表格中定時(shí)啟動(dòng)宏的操作步驟
1、啟動(dòng)Excel并打開包含宏的工作表,在“開發(fā)工具”選項(xiàng)卡的“代碼”組中單擊"Visual Basic"按鈕打開VBA編輯器,如圖1所示。
圖1 單擊
2、在工程資源管理器中雙擊“模塊1”選項(xiàng)打開宏所在模塊的代碼窗口,在其中輸入代碼新建一個(gè)名為“計(jì)劃運(yùn)行過程”的Sub過程,如圖2所示。具體的程序代碼如下所示:
Sub計(jì)劃運(yùn)行過程(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="計(jì)劃運(yùn)行過程" '保存本過程的名稱
strProcName="創(chuàng)建宏" '保存需運(yùn)行宏或過程的名稱
NextTime=Time+TimeSerial(WaitHour,WaitMin,WaitSec) '設(shè)置下一個(gè)計(jì)劃運(yùn)行時(shí)間
Application.OnTime NextTime,strProcName '開始一個(gè)新過程運(yùn)行計(jì)劃
Application.Run strScheName '計(jì)劃完成后,重新調(diào)用本過程
End Sub
圖2 在“代碼”窗口中創(chuàng)建一個(gè)新過程
提示
上述過程可以接收3個(gè)參數(shù),分別是小時(shí)數(shù)、分鐘數(shù)及秒數(shù)。這3個(gè)參數(shù)決定了定時(shí)運(yùn)行宏或過程的時(shí)間間隔。在過程中,使用TimeSerial函數(shù)來確定該值。TimeSerial函數(shù)根據(jù)接收到的3個(gè)參數(shù)產(chǎn)生Date數(shù)據(jù)。用戶在使用上述過程時(shí),不一定需要輸入?yún)?shù),這3個(gè)參數(shù)都是可選的,并且具有默認(rèn)值。
默認(rèn)情況下,時(shí)間間隔為5分鐘。當(dāng)用戶啟動(dòng)運(yùn)行該過程后,“創(chuàng)建宏”宏過程將每隔5分鐘被執(zhí)行一次。這里要注意的是,該過程并不一定保證“設(shè)置表頭格式”過程兩次執(zhí)行間的時(shí)間差絕對(duì)等于5分鐘,有可能由于用戶意外地進(jìn)入單元格的編輯模式等原因造成該宏過程一次都無法按計(jì)劃執(zhí)行。
繼續(xù)查找其他問題的答案?
-
Excel 2019如何使用復(fù)制、粘貼命令插入Word數(shù)據(jù)?(視頻講解)
2021-01-257次播放
-
Excel 2019如何制作數(shù)據(jù)透視表?(視頻講解)
2021-01-2227次播放
-
Excel 2019如何設(shè)置相對(duì)引用?(視頻講解)
2021-01-2210次播放
-
2021-01-2212次播放
-
Excel 2019如何使用命令復(fù)制公式?(視頻講解)
2021-01-226次播放
-
2021-01-223次播放
-
2021-01-222次播放
-
Excel 2019如何利用開始選項(xiàng)卡進(jìn)入篩選模式?(視頻講解)
2021-01-223次播放
-
Excel 2019如何設(shè)置指定數(shù)據(jù)的篩選?(視頻講解)
2021-01-223次播放
-
Excel 2019如何設(shè)置自定義排序?(視頻講解)
2021-01-222次播放
點(diǎn)擊加載更多評(píng)論>>