Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


65548 / 76734 ←次へ | 前へ→

【15760】Re:タイマーがうまく作動しない?
回答  くま  - 04/7/6(火) 8:36 -

引用なし
パスワード
   ▼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

2 hits

【15743】タイマーがうまく作動しない? くま 04/7/5(月) 16:34 質問
【15744】Re:タイマーがうまく作動しない? IROC 04/7/5(月) 17:26 回答
【15760】Re:タイマーがうまく作動しない? くま 04/7/6(火) 8:36 回答
【15761】Re:タイマーがうまく作動しない? IROC 04/7/6(火) 9:09 回答
【15762】Re:タイマーがうまく作動しない? くま 04/7/6(火) 10:33 お礼
【15763】Re:タイマーがうまく作動しない? IROC 04/7/6(火) 11:07 回答
【15765】Re:タイマーがうまく作動しない? くま 04/7/6(火) 12:12 お礼

65548 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free