[發問] 如何判斷 Application.OnTime 是否在執行??

t8899

如何判斷 Application.OnTime 是否在執行中??
語法為何?
IF ................THEN ........
--------------------------------------------
Sub timestock()
my = #12:01:00 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"

END SUB

蝕光迴狼

回復 1# t8899

是這個意思嗎?
讓你知道程式有沒有在跑

1. Sub timestock()
   
2. 
   
3. my = #12:01:00 AM#
   
4. The_Time = Time + my
   
5. Application.OnTime The_Time, "timestock"
   
6. Application.OnTime Now + TimeValue("00:00:01"), "timestock"
   
7. [A1] = Time
   
8. 
   
9. End Sub

複製代碼

t8899

回復  t8899

是這個意思嗎?
讓你知道程式有沒有在跑
蝕光迴狼 發表於 2014-10-17 16:46

您的方式應該會佔資源.....??
我是要知道timestock 是否正在跑 ?用 if ....then 的語句 .........
不要用類似  if [a1]=1 then true
Sub timestock()
[a1]=1
my = #12:01:00 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"
END SUB

sub timestop()
Application.OnTime The_Time, "timestock", Schedule:=False
[a1]=2
end sub

是不是應該用變數給它???變數又要怎麼設??

GBKEE

回復 3# t8899


   

您的方式應該會佔資源.....??
我是要知道timestock 是否正在跑 ?

是這樣嗎?

1. Sub timestock()
   
2.     Application.DisplayStatusBar = True
   
3.     Application.StatusBar = "timestock 正在跑 "
   
4.     '你的程式碼
   
5.     '你的程式碼
   
6.     '你的程式碼
   
7.     '你的程式碼
   
8.     '你的程式碼
   
9.     '你的程式碼
   
10.     Application.StatusBar = "timestock 跑完了"
    
11. End Sub

複製代碼

bobomi

module 丟入一個 Public 變數名

t8899

回復  t8899


   
是這樣嗎?
GBKEE 發表於 2014-10-17 19:24

if ..timestock 正在跑  then............  語法????

bobomi

if ..timestock 正在跑  then............  語法????
t8899 發表於 2014-10-17 19:33

想要攔截就在 module 放一個
Public Sub AAA( 正在跑 )
If  正在跑 Then
Else
End if
End Sub

    Sub timestock()
         Call Sheet1.AAA ( True )
    End Sub

    Sub  timestop()
         Call Sheet1.AAA ( False )
    End Sub

GBKEE

回復 6# t8899


   

if ..timestock 正在跑  then............  語法????

5#bobomi 建議   module 丟入一個 Public 變數名
timestock 正在跑時可執行一個副程式  ->   if 變數名=true  then ....
但你可能會說 "您的方式應該會佔資源.....??" 所以我 @-+/*

t8899

想要攔截就在 module 放一個
Public Sub AAA( 正在跑 )
If  正在跑 Then
Else
End if
End Sub

...
bobomi 發表於 2014-10-17 19:47

謝謝!
有時執行
Application.OnTime The_Time, "timestock", Schedule:=False
timestock 無法停止退出 ..也不知有無退出成功...又重覆執行timestock
變成兩個timestock在跑...
您的方法似乎無法達到我的要求..........??
一定要知道timestock 有無在執行中，才可達到我的要求

bobomi

Sub timestock()
Call  AAA ( True ) ' 放在  Application.OnTime The_Time, "timestock" 之前

my = #12:01:00 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"

END SUB