- 帖子
- 3
- 主題
- 0
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-11-11
- 最後登錄
- 2014-6-9
|
Worksheet_Calculate() <==== 問題在這邊, dde 數據一改變就會觸發下面的程式碼
If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:44:00") Then
Range("A2:J50000") = ""
Else
If TimeValue(Format(Now, "hh:mm:ss")) >= TimeValue("08:45:00") And TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("13:45:00") Then
ar = Array([A1], [B1], [C1], [D1], [E1], [F1], [G1], [H1], [I1], [J1])
[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
End If
End If
所以你要的間格時間無效
清空後, 就不會一直跑(或著 你可以 在原代碼中 增加時間判斷 10sec,60sec 要執行的事項) |
|
發表於 2010-12-3 09:41
| 