Excel VBA質問箱 IV

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

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


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

【44705】マクロを毎日指定時刻に実行 ジプ太郎 06/11/29(水) 16:23 質問[未読]
【44714】Re:マクロを毎日指定時刻に実行 Kein 06/11/29(水) 17:50 回答[未読]

【44705】マクロを毎日指定時刻に実行
質問  ジプ太郎  - 06/11/29(水) 16:23 -

引用なし
パスワード
   皆様、初めまして。私は、VBA超素人です。仕事上の関係で急遽、題名で掲げるマクロを作らなければならない事になりました。いろいろ本などを調べましたが、よく解らず困っています。詳しい方、大変すいませんが、私が作ったマクロを、毎日指定時刻(AM6時)に実行できるマクロ教えて頂ければ幸いです。
※ パソコン(エクセル)24時間365日立ち上がっています。

【44714】Re:マクロを毎日指定時刻に実行
回答  Kein  - 06/11/29(水) 17:50 -

引用なし
パスワード
   >パソコン(エクセル)24時間365日立ち上がっています。
ということなら、OnTimeメソッドを使ったコードで出来ます。
今からAM6:00にセットしたのでは、動作をチェックできませんから、
テスト用のコードを提示します。

Sub Sc_MyMacro()
  Application.OnTime TimeValue("17:55:00"), "Test1"
End Sub

Sub Test1()
  MsgBox Format(Time, "hh:mm:ss")
End Sub

これを標準モジュールに入れ、OnTime の引数の時刻を
「24時間表現で現在から2〜3分後」に書き直して、Sc_MyMacroを
実行して下さい。指定した時刻に、その時刻をメッセージできたら
成功です。本番では時刻設定の引数を TimeValue("06:00:00") に
変更し、次の引数"Test1"を、実行したいマクロのタイトルに変更
してSc_MyMacroを実行するだけです。スケジュールを破棄したいときは

Sub Sc_Stop()
  Application.OnTime TimeValue("06:00:00"), "マクロ名", , False
End Sub

を実行します。もちろんマクロ名は、そちらで設定した実際のマクロタイトル
に変更します。

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