Application.OnTime 是否在執行中的語法?

開始==> Application.OnTime The_Time, "timestock"
停止==> Application.OnTime The_Time, "timestock", Schedule:=False

請教 timestock 是否在執行中的語法 ???
if ........then

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-8-5 15:47 | 只看該作者

回復 1# t8899
試試看

Option Explicit
Dim The_Time As Date, Msg As Boolean
Sub EX()
MsgBox "timestock " & IIf(Msg, "執行中", "已停止")
End Sub
Sub Ex_開始()
Msg = True
The_Time = Time + #12:01:00 AM#
Application.OnTime The_Time, "timestock"
End Sub
Sub Ex_停止()
Msg = False
Application.OnTime The_Time, "timestock", False
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-30

3^#

發表於 2014-8-5 20:30 | 只看該作者

本帖最後由 t8899 於 2014-8-5 20:40 編輯

回復 t8899
試試看
GBKEE 發表於 2014-8-5 15:47

謝謝
我的問題是
Application.OnTime The_Time, "timestock", Schedule:=False
有時這行停止無效,也沒有出現訊息,....然後再重跑，變成兩個timestock同時在跑
不知如何解決?有無特殊處理方法讓它停止?我都關檔再重開!
如果在 "timestock" 執行之前做一個開關 Msg As Boolean
timestock 的真正執行狀態應不受msg 的影響 ??(不會傳給msg)
所以我要的應是
if timestock 正在執行中則跳出否則執行

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-8-6 06:04 | 只看該作者

回復 3# t8899
VBA沒有函數可傳回程式中有幾個Application.OnTime在執行中.

我的問題是
Application.OnTime The_Time, "timestock", Schedule:=False
有時這行停止無效,也沒有出現訊息,....然後再重跑，變成兩個timestock同時在跑

Application.OnTime The_Time, "timestock"
有時這行停止無效 Application.OnTime The_Time, "timestock", Schedule:=False
會是因為你The_Time變數給的時間不一樣所致.
請試將 timestock變數在一般模組頂端,設為公用的變數,

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899