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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-10-17 14:52 | 只看該作者

[發問] 如何判斷 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

樓主熱帖

蝕光迴狼

　暱稱: 蝕光迴狼

帖子: 75
主題: 6
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2014-9-22
最後登錄: 2015-3-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-10-17 16:46 | 只看該作者

回復 1# t8899

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

Sub timestock()
my = #12:01:00 AM#
The_Time = Time + my
Application.OnTime The_Time, "timestock"
Application.OnTime Now + TimeValue("00:00:01"), "timestock"
[A1] = Time
End Sub

複製代碼

我很笨,所以我很用心
　我學藝不精,但我渴求知識

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

3^#

發表於 2014-10-17 18:43 | 只看該作者

本帖最後由 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

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

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-10-17 19:24 | 只看該作者

回復 3# t8899

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

是這樣嗎?

Sub timestock()
Application.DisplayStatusBar = True
Application.StatusBar = "timestock 正在跑 "
'你的程式碼
'你的程式碼
'你的程式碼
'你的程式碼
'你的程式碼
'你的程式碼
Application.StatusBar = "timestock 跑完了"
End Sub

複製代碼

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

bobomi

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

5^#

發表於 2014-10-17 19:31 | 只看該作者

module 丟入一個 Public 變數名

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

6^#

發表於 2014-10-17 19:33 | 只看該作者

回復 t8899

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

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

bobomi

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

7^#

發表於 2014-10-17 19:47 | 只看該作者

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

超級版主 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兔年全勤獎章

8^#

發表於 2014-10-17 19:49 | 只看該作者

回復 6# t8899

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

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

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

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

9^#

發表於 2014-10-17 20:03 | 只看該作者

本帖最後由 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 有無在執行中，才可達到我的要求

bobomi

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

10^#

發表於 2014-10-17 20:11 | 只看該作者

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