如何停掉Application.onTime程序? (已解決)
- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
建立停止機制
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 |
|
|
|
|
|
|
|
發表於 2011-3-30 21:08
| 