返回列表 上一主題 發帖

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

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

本帖最後由 t8899 於 2014-10-17 14:54 編輯

如何判斷 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. my = #12:01:00 AM#
  3. The_Time = Time + my
  4. Application.OnTime The_Time, "timestock"
  5. Application.OnTime Now + TimeValue("00:00:01"), "timestock"
  6. [A1] = Time

  7. End Sub
複製代碼
我很笨,所以我很用心
 我學藝不精,但我渴求知識

TOP

本帖最後由 t8899 於 2014-10-17 18:57 編輯
回復  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

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

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

module 丟入一個 Public 變數名

TOP

回復  t8899


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


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

TOP

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

TOP

回復 6# t8899


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

5#bobomi 建議   module 丟入一個 Public 變數名
timestock 正在跑時可執行一個副程式  ->   if 變數名=true  then ....
但你可能會說 "您的方式應該會佔資源.....??" 所以我 @-+/*
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

本帖最後由 t8899 於 2014-10-17 20:06 編輯
想要攔截就在 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 有無在執行中,才可達到我的要求

TOP

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

TOP

        靜思自在 : 好事要提得起,是非要放得下,成就別人即是成就自己。
返回列表 上一主題