返回列表 上一主題 發帖

如何停掉Application.onTime程序? (已解決)

如何停掉Application.onTime程序? (已解決)

本帖最後由 FAlonso 於 2011-3-31 21:16 編輯

有若干計時程式
  1. Sub timing()
  2. [a1] = [a1] + 1
  3. Application.OnTime Now + TimeValue("00:00:01"), "timing"  'Counter
  4. End Sub
複製代碼
想停止的話,我寫了這個
  1. Sub A1stop()
  2. Application.OnTime Now + TimeValue("00:00:01"), "timing", , False
  3. End Sub
複製代碼
80 字節以內
不支持自定義 Discuz! 代碼

建立停止機制
Public a As Boolean
Sub timing()
If a = True Then End
[a1] = [a1] + 1
Application.OnTime Now + TimeValue("00:00:01"), "timing"  'Counter
End Sub

Sub A1stop()
a = IIf(a = True, False, True)
End Sub

TOP

        靜思自在 : 滴水成河。粒米成蘿,勿輕己靈,勿以善小而不為。
返回列表 上一主題