|
はじめまして。
下記のようにタイマーを60秒ごとに発生させる
タイミングでWorksheetにCalculateイベントを発生させていますが
数秒おきにイベントが発生してしまいます。
どこがまずいかご指摘をお願いできますでしょうか?
どうぞよろしくお願いします。
Sub Time_Chk1()
On Error Resume Next
Dim Nowtime
'現在未接続状態の場合、再接続を試みる。
If conect_flg = 0 Then
'Winsock 起動
Call Conect_Rtn
End If
'時間のSAVE
old_time = Format(Now(), "hh:mm:ss")
'時間の表示
Workbooks(Book_1).Worksheets(Sheet_1).Activate
Nowtime = Now()
Workbooks(Book_1).Worksheets(Sheet_1).Cells(6, 3) = Format(Now(), "hh:mm:ss")
'次回起動のセット
Next_time1 = Now() + TimeValue("00:01:00")
Application.OnTime Next_time1, "Time_Chk1", Schedule:=True
End Sub
|
|