Board logo

標題: ontime schedule:=false 有問題 [打印本頁]
作者: t8899    時間: 2014-3-10 21:42     標題: ontime schedule:=false 有問題

執行 timestop 沒有問題，但放在 Worksheet_Calculate()
時間到執行為何錯在
Application.OnTime EarliestTime:=tbme, _
        Procedure:="showtime", Schedule:=False



Public abf As Date
Public tbme As Date
Sub showtime()
abf = TimeValue("00:00:01")
tbme = Time + abf
    Application.OnTime tbme, "showtime"
Sheets("Sheet3").Range("t1").Value = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
End Sub


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



Private Sub Worksheet_Calculate()
If Format(Now, "hh:mm:ss") = "13:30:34" Then
timestop
End If
end sub
作者: huijuang    時間: 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在第三段的程式
就可以順利執行了
作者: t8899    時間: 2014-3-14 18:43

看起來好像是tbme沒資料
增加showtime在第三段的程式
就可以順利執行了
huijuang 發表於 2014-3-14 13:48

showtime 已經手動執行...........這樣會重覆執行???變成跑兩個程序
作者: huijuang    時間: 2014-3-17 08:05

回復 3# t8899

showtima手動執行應該不會把tbme資料帶出來
建議你用逐行執行
然後把區域變數視窗打開
應該可以看看tbme是否有資料帶出來
作者: t8899    時間: 2014-3-17 09:45

回復  t8899

showtima手動執行應該不會把tbme資料帶出來
建議你用逐行執行
然後把區域變數視窗打開
...
huijuang 發表於 2014-3-17 08:05


區域變數視窗如何打開 ???
作者: huijuang    時間: 2014-3-17 16:22

回復 5# t8899

區域變數視窗如下：
在debug時滿好用的
    [attach]17786[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)