標題: 如何停掉Application.onTime程序? (已解決) [打印本頁]

---

作者: FAlonso    時間: 2011-3-30 20:56     標題: 如何停掉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

複製代碼

---

作者: chin15    時間: 2011-3-30 21:08

建立停止機制
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

---

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