プログレスバーを使おう

大昔に、UserFormのラベルにFunctionで計算した数値から導き出した個数の図形を入れて更新し…という方法を覚えた”プログレスバー”。

しかし最近医調べるとどうやら公式コントロールが存在するという話。

White Tiger - ユーザーフォームに進行状況を表示する方法

うん、リンク先見れば一目瞭然ですね。

実際に使うときには、行数を取得するなど、処理の最終値を実際のものにする必要がありますが、何がすごいかって、Excel 97でも使えるというのが驚き。１０年もシェイプの描き変え処理と格闘してきたあの日々は一体何だったのかと言うアレです。


それでも、ってんで一つ補足しておきますと、このコントロールを利用する際のキモは「Application.DoEventsメソッド」です。
…正直これもVBAのヘルプ見ればわかるんですけど(笑)、そこから引用すると以下の通り。

「発生したイベントがオペレーティングシステムによって処理されるよう制御を戻します。」

ということで、プログレスバーコントロールの値を再設定する際にDoEventsすることで再描画するわけです。これやらないと、画面が真っ白に固まったような状態が続いた後正常に戻ったときにはもうプログレスバーなんてどこにもなかった！なんてことになります。


あ〜これでやっと延々と行われる処理をいつ終わるかとモニタの前でどら焼き齧りながら待っているような真似をせずとも良いわけです。よかったー。