「VBA」如何在指定時間，執行指定程式?

by Unknown 06:48:00 0 comments excel vba on time

Application.OnTime 指定時間, "指定子程式"

上段程式碼是在Office VBA中，如果要在指定的時間點上，執行指定的子程式時所使用的key code及其使用的引數代表的意思。

而在接下來的文章中將step-by-step說明如何在早上九點執行在Excel的某個工作表裡某個儲存格裡輸入文字的子程式。



1. 開啟Excel新活頁簿，按下快速鍵Alt+F11，開啟Visual Basic開發視窗。

2. 左上角的專案視窗按下滑鼠右鍵，選擇『插入』→『模組』，此時會新增一個新模組，預設會將其模組打開（正常為整面空白）並命名為『Module1』。

3. 在空白的模組中，key入下列程式碼。

Sub exec()
    Application.OnTime TimeValue("09:00:00"), "inputTextInCell"
End Sub

Sub inputTextInCell()
    Sheets(1).Range("A1").Value = "現在日期" & Date
End Sub

* TimeValue 函數: 將我們看得懂的時間字串，轉換成電腦懂的時間型態並讓電腦可以使用。
* 欲執行的指定子程式，其名稱一定要用兩個雙引號包起來。
* Date 函數: VBA中取得今天日期的函數。預設顯示格式為yyyy/m/d