Excel VBA質問箱 IV

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

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


10986 / 13644 ツリー ←次へ | 前へ→

【18749】ONTIME コマンドを一括してクリアするには? SATO 04/10/8(金) 16:19 質問[未読]
【18754】Re:ONTIME コマンドを一括してクリアするに... [名前なし] 04/10/9(土) 9:32 発言[未読]
【18797】Re:ONTIME コマンドを一括してクリアするに... Jaka 04/10/12(火) 11:14 回答[未読]

【18749】ONTIME コマンドを一括してクリアするに...
質問  SATO  - 04/10/8(金) 16:19 -

引用なし
パスワード
   いま、ONTIMEコマンドを使用して、10個程度のモジュールを時間差で
自動実行するシステムを作っています。

そこで、一度セットしたONTIMEコマンドを、全て一括してクリアしたいのですが、
どうすればいいでしょうか?

どなたかアドバイスよろしくお願い致します。

【18754】Re:ONTIME コマンドを一括してクリアする...
発言  [名前なし]  - 04/10/9(土) 9:32 -

引用なし
パスワード
   ▼SATO さん:
OnTimeを使ってる部分のコードを教えてください。

【18797】Re:ONTIME コマンドを一括してクリアする...
回答  Jaka  - 04/10/12(火) 11:14 -

引用なし
パスワード
   こんにちは。
よく解ってませんけど。

Public WWTime As Variant

Sub オンタイム()
  If IsEmpty(WWTime) = False Then
    On Error Resume Next
    Application.OnTime EarliestTime:=TimeValue(WWTime), Procedure:="オンタイム" _
            , Schedule:=False
    On Error GoTo 0
  End If
  WWTime = Now() + TimeValue("0:00:05")
  Range("A65536").End(xlUp).Offset(1).Value = Format(WWTime, "hh.mm.ss")
  DoEvents
  Application.OnTime EarliestTime:=WWTime, Procedure:="オンタイム"
End Sub

Sub リセット()
  On Error Resume Next
  Application.OnTime EarliestTime:=TimeValue(WWTime), Procedure:="オンタイム" _
            , Schedule:=False
  Err.Clear
  On Error GoTo 0
End Sub

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