返回列表 上一主題 發帖

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

蝕光迴狼
　暱稱: 蝕光迴狼

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2014-10-17 16:46 | 顯示全部帖子
回復 1# t8899

是這個意思嗎?
讓你知道程式有沒有在跑
  1. Sub timestock()

  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

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

TOP

蝕光迴狼
　暱稱: 蝕光迴狼

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2014-10-17 22:58 | 顯示全部帖子
回復 11# t8899


1. 是否可以說明這個程式的用意為何?
　如此才能真正幫你達到，你想要追求的效果。

2. 大部份時間有2種呈現方式【時間計時】與【倒數計時】。

3. 建議你可以設立2個按鈕【程式開始啟動】與【程式停止】會比較好。
　因為有關於時間，程式的寫法都是要即時更近的，就會發生你這種”程式停不下來”的窘境。
我很笨,所以我很用心
　我學藝不精,但我渴求知識

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題