返回列表 上一主題 發帖

ontime schedule:=false 有問題

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
1# 跳轉到 »
發表於 2014-3-14 13:48 | 顯示全部帖子
看起來好像是tbme沒資料
因為沒執行到Sub showtime()這一段程式
  1. Public abf As Date
  2. Public tbme As Date
  3. Sub showtime()
  4. abf = TimeValue("00:00:01")
  5. tbme = Time + abf
  6.     Application.OnTime tbme, "showtime"
  7. Sheets("Sheet3").Range("t1").Value = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
  8. End Sub


  11. Sub timestop()
  12. Application.OnTime EarliestTime:=tbme, _
  13.         Procedure:="showtime", Schedule:=False
  14.    End Sub



  18. Private Sub Worksheet_Calculate()
  19. If Format(Now, "hh:mm:ss") = "13:30:34" Then
  20. showtime
  21. timestop
  22. End If
  23. End Sub
複製代碼
增加showtime在第三段的程式
就可以順利執行了
動念成因積因成果 by huijuang

TOP

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
2#
發表於 2014-3-17 08:05 | 顯示全部帖子
回復 3# t8899

showtima手動執行應該不會把tbme資料帶出來
建議你用逐行執行
然後把區域變數視窗打開
應該可以看看tbme是否有資料帶出來
動念成因積因成果 by huijuang

TOP

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
3#
發表於 2014-3-17 16:22 | 顯示全部帖子
回復 5# t8899

區域變數視窗如下：
在debug時滿好用的
    v.gif
動念成因積因成果 by huijuang

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題