下方這個例子是9:00執行clear_sub
Private Sub Workbook_Open()
'特定時間執行clear_sub
Application.OnTime TimeValue("09:00:00"), "clear_sub"
End Sub
clear_sub內容
Sub clear_sub()
Range("B12:BQ459").Select
Selection.ClearContents
Range("A6").Select
End Sub
不建議在 excel 入面做,因為你要長開這個 excel file. 最好做法是把這個放在 open 內,打開便自動運行,另外在 windows 排程做定時開啓這個檔案便可.又或做個 windows 排程自己給自己 send e-mail, 在 outlook 內做打開該 file 的動作便可