Excel VBA質問箱 IV

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

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


65565 / 76734 ←次へ | 前へ→

【15743】タイマーがうまく作動しない?
質問  くま  - 04/7/5(月) 16:34 -

引用なし
パスワード
   はじめまして。

下記のようにタイマーを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

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 お礼

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