No.1ベストアンサー
- 回答日時:
Sub 指定時刻にマクロを実行する()
指定時刻 = TimeValue("HH:MM:SS") '指定時刻 ※1
待ち時間 = TimeValue("HH:MM:SS") '指定時刻に他プロシージャが実行中の場合の待ち時間 ※2
Application.OnTime TimeValue(指定時刻), _
"指定時刻に実行するマクロ名", _
TimeValue(待ち時間)
End Sub
Sub 指定時刻に実行するマクロ名()
' 'ここへマクロを記入
End Sub
'---------------------------------------------------------------
Sub 現在より一定時間後にマクロを実行する()
指定時刻 = Now + TimeValue("HH:MM:SS") '現在時刻より何分後 ※2
待ち時間 = TimeValue("HH:MM:SS") '指定時刻に他プロシージャが実行中の場合の待ち時間 ※2
Application.OnTime TimeValue(指定時刻), _
"一定時間後に実行するマクロ名", _
TimeValue(待ち時間)
End Sub
Sub 一定時間後に実行するマクロ名()
' 'ここへマクロを記入
End Sub
'---------------------------------------------------------------
Sub 実行中のマクロを指定時刻まで一時中断して再開する()
指定時刻 = Now + TimeValue("HH:MM:SS") '現在時刻より何分後 ※2
Application.Wait (指定時刻) 'マクロ実行を指定時刻まで中断する
' 'ここへ再開後に処理するマクロを記入
End Sub
'===============================================================
'<コメント>
'※1 HH:MM:SSには任意の時刻を記入する (例) 9時5分なら 09:05:00
'※2 HH:MM:SSには任意の時間を記入する (例) 3分後なら 00:03:00
http://www.happy500z.com/YNxv214.html#8-1
この回答への補足
サンプルまで付けて頂き有難うございます。
質問なのですが、このサンプルだと、Excelが、CPUを独占しませんか?出来れば外部からの割り込みみたいなのが欲しいのですが??
ピントがずれていたら申し訳ありません。
宜しくお願い致します。
No.2
- 回答日時:
> 質問なのですが、このサンプルだと、Excelが、CPUを独占しませんか?
最後の例の、Sub 実行中のマクロを指定時刻まで一時中断して再開する() は、実行すると、終了するまでは他の操作を受け付けなくなりますが、他のはそんなことないですよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- 通信費・水道光熱費 実家の家電なんですが、昨夜20時頃知人から電話があったそうです。母は子機の方でとり電話を切ったつもり 3 2022/09/03 11:13
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) マクロで謎の現象が起きていて困ってます。 エクセルで作ったボタンを押すとマクロが動いて処理をしてくれ 3 2023/06/22 17:28
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Visual Basic(VBA) 転記するVBAコードを教えて下さい。 1 2023/03/31 17:22
- Excel(エクセル) セルを数式で指定する方法 5 2022/04/13 16:55
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
Excel(VBA)でSetTimer関数を使用する時..
Excel(エクセル)
-
Excel(エクセル) VBA プロシージャーをミリ秒で繰り返し実行する方法
Excel(エクセル)
-
Excel VBAにて2つの処理を同時実行可能?
Visual Basic(VBA)
-
-
4
エクセル VBA でのCOMポート認識
その他(プログラミング・Web制作)
-
5
エクセルでエラーが出て困っています。
Excel(エクセル)
-
6
エクセルVBAでタイマーコントロールは使えますか
Excel(エクセル)
-
7
EXCELのマクロの重複起動の禁止
Excel(エクセル)
-
8
DoEvents関数って何?
Visual Basic(VBA)
-
9
アウトルックが起動しているかどうかを取得するには?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
Excelのワークシート上に検索窓...
-
EXCELのセルへ、デジタル時計を...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excel VBA のdebug(F8キー) が...
-
TeraTermのマクロについて
-
Excelを開いた時に表示さ...
-
エクセルのマクロ機能で前のシ...
-
EXCEL 複数のシートの同一の位...
-
Wordのアンケート用紙に通し番...
-
エラーになってないのにVBA...
-
モジュール内のマクロを全て実...
-
エクセル 自動で別シートへ並...
-
秀丸エディタに検索履歴を記憶...
-
マクロボタンを作ってのマクロ...
-
GetAsyncKeyState(32) の動作が...
-
Wordで「原稿用紙○枚」を換算す...
-
ワードで画像を自動で挿入する方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
Excel VBA のdebug(F8キー) が...
-
EXCELのセルへ、デジタル時計を...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
Excelのワークシート上に検索窓...
-
【Excel VBA】エラー番号400
-
ワードからエクセルへ貼り付け...
-
Excelマクロでオプションボタン...
-
エクセルのマクロ機能で前のシ...
-
エクセルで複数のシートをまと...
-
Wordの画面を左右にスクロール...
-
エクセル グラフの軸の最小値最...
-
マクロ ブックをマクロなしでコ...
-
EXCEL 複数のシートの同一の位...
-
モジュール内のマクロを全て実...
-
Wordで「原稿用紙○枚」を換算す...
-
TeraTermのマクロについて
おすすめ情報