- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 21# ribbits
對不起,剛才為了測試而忘瞭將它更改回來,請將下列之 Remark 修正回來:- Public Sub ATimer()
- Dim Pos As Long ' 將每隔 "多少時間" 處理時段,移到此處來處理。
-
- On Error Resume Next
- ' If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
複製代碼 正確為 (最後一行):- Public Sub ATimer()
- Dim Pos As Long ' 將每隔 "多少時間" 處理時段,移到此處來處理。
-
- On Error Resume Next
- If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
複製代碼 謝謝! |
|