|
▼IROC さん:
>DoEvents を入れてみては如何でしょうか?
下記のようにしてみたけどうまくいかないです。
入れる場所が悪いんでしょうか?
On Error Resume Next
Dim Nowtime
DoEvents
'現在未接続状態の場合、再接続を試みる。
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
' old_time = Format(Now(), "hh:mm:ss")
DoEvents
|
|