[Excel-VBA] マクロを一定時間（指定時間まで）停止する（Application.wait）

人の作ったエクセルマクロの解析や修正ほど憂鬱なことはないとおもっている、最近からだのむくみが気になるアラフォーです。

ふざけた依頼にはそれなりの対応で

今回、修正を依頼されたマクロは、初期処理と題して20秒間ほど、なにか一生懸命動いています。そのときに「初期処理中」と記述されたシートを表示しているのですが、急に表示されなくなったとのことです。

処理自体は正常に動いているようで、表示だけの問題のようです。処理にパワーを使い過ぎて表示がされないようです。

せめてもの救いです。今回は、楽そうです。（しっかし、作ったやつに頼めっつーの！嫌いだから話したくないって中学生か！）

初期処理にどうせ20秒もかかっているのですから、1秒くらい伸びても問題ないと思いますので、重い処理の前にマクロを停止して表示されればOKとすることにしました。

 

重要なポイント：

「１～２秒初期処理が伸びるけどいい？」などと、いちいち確認すると、漠然とした不安を出してグチャグチャ言ってきますので、確認はとりません。どうせ気づきもしないのに「今より遅くなるのは・・・・」なんて面倒なだけです。これが、重要なポイントです。

 

Application.wait メソッド

これは、実行中のマクロを指定の時刻まで停止することができるメソッドです。他にも、Declare 宣言して Sleep関数を使うこともできますが、煩わしいので個人的には極力避けるようにしています。

使い方の例は次のとおりです。

' 現在時刻から15秒後まで処理を停止する
Application.wait Now + TimeValue("00:00:15")

 

これにて、マクロの修正は一件落着です。

 

[備忘録] ミリ秒（1秒以下）指定の待機処理

今回のマクロは秒単位で問題ありませんでしたが、ミリ秒単位の待機について備忘録を残しておきます。

ググるといろいろなサンプルは出てきますが、まさかのエラーで悩まされました。そのエラーがこちらです。

このダイアログが出力されるスクリプトは次のものです。

' 1550ミリ秒（1.55秒）待機
Application.Wait [Now + "00:00:01.55"]

WHY?

悩むこと30分、エラーが出なくなったスクリプトはこちらです。

' 1550ミリ秒（1.55秒）待機
Application.Wait [Now() + "00:00:01.55"]

ウォッチ式で見ても、全く違いがないようにみえましたが、Now → Now() と括弧をつけると正常にマクロは動作しました。そーゆーもんなの？

関係あるかないかは、わかりませんが動作環境は、Windows10（32ビット）＋ Office Pro 2013 です。