Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何設定定時執行模組

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 聲明事項 ~

如各位想把以下本文章轉貼 , 請記得要注明出處.

本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.

由於圖片製作需時, 所以更新會比較慢.

存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.

這個問題可能很多人都有問過或者想過 , 因為當你能夠使你的程式能夠自動定時執行 , 哦 ~ 多麼的帥氣哦 ~ 哈哈哈哈 ~ 對嗎 ~ 哈哈哈哈 ~

好 ~ 要做到這樣的效果 , 我們先要準備一點東西 , 否則你很難想像得到 , 這個實驗的結果會是怎樣的 .

首先 , 開一個新的 EXCEL 檔出來 , 打開 VBA 編程工具 , 替你的檔案增加一個模組 , 模組內加入一點程式碼 :

==================

Sub abcd()

MsgBox ("abcd")

End Sub

==================

然後 , 回到你的 EXCEL 檔的 SHEET 1 頁面 , 加上一個按照 , 雙擊 ( 國內好像用這個字眼吧 ~ )

再一次來到 VBA 編程畫面 , 你看到的應該是這樣的 :

==================

Private Sub CommandButton1_Click()

End Sub

==================

現在加入下面的程式碼 :

==================

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

==================

這句程式碼的意思是 , 當你按下剛才設定的按鈕之後 15 秒 , 就執行模組 “ MODULE 1 ” 內的 “ ABCD ” 這個東西 . 程式碼中的 ("00:00:15") 分別代表了時分秒 ~ 就是這樣簡單 ~ 呵呵呵 ~

:
:
:

稍等一下 ~~~~~~ 呵呵呵呵 ~~

這個只是其中一個方法呢 ~ 還有第二種 ~ 哈哈 ~

第二種方法是 :

==================

Application.OnTime TimeValue("20:00:00"), "Module1.abcd"

==================

這句程式碼可能你會覺得跟之前提到的一樣 , 不過我要告訴你 , 其實是不同的 , 因為第一個方法是 “ 現在開始的什麼什麼時分秒之後執行 ” , 而這個方法是 “ 當系統時間跟設定的一樣就執行 ” , 所以 , 程式碼當中 , 第一個方法是有 NOW 而第二個方法是沒有的 .

要特別注意一件事 , 第二個方法中所指的系統時間 , 是指你的視窗主畫面右下角的時鐘時間 , 只要跟程式碼中的一樣才會執行 ~ 記得要注意哦 ~ 這個時間不是你手錶的時間哦 ~ 是電腦的那個 !!