如何在背景偵測時間? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何在背景偵測時間?

返回列表下一主題上一主題發帖

[發問] 如何在背景偵測時間?

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

1^# 跳轉到 »

發表於 2015-11-1 13:49 | 顯示全部帖子

本帖最後由 n7822123 於 2015-11-1 13:52 編輯

回復 1# EGBT

先執行一次 T1 程序就行了:D

Sub T1()
Dim 工作時間 As Date
Dim 重啟時間 As Date
工作時間 = Date + TimeSerial(16, 0, 0)
重啟時間 = Date + 1 + TimeSerial(0, 0, 1)
Application.OnTime 工作時間, "工作" '時間到今天16點，觸發工作程序
Application.OnTime 重啟時間, "T1" '明天凌晨1分自動觸發此程序
End Sub
Sub 工作()
If TimeValue(Now) < TimeValue("16:00:00") then exit sub
If TimeValue(Now) > TimeValue("17:00:00") then exit sub
MsgBox "開始工作"
End Sub

複製代碼

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2015-11-1 13:59 | 顯示全部帖子

回復 2# n7822123

補充:

再工作程序最後一行加入 Call 工作，就可以無腦執行到下午5點才停止。

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

返回列表下一主題上一主題