上記のサイトに書いてあるようなテクニックを利用して、
ユーザーフォームを
UserForm1.Show vbModeless
UserForm1.label1.Caption = "表示させたい文字"
UserForm1.repaint
とすると、UserForm1に貼り付けたlabel1のテキスト文字を変えることができる。
これをプロセスの進行状況に応用し、例えば変数iが何個目の処理を実行しているかを表す変数だとして
UserForm1.label1.Caption = i & "/200 実行中"
表示したユーザフォーム内の文字を
1/200 実行中…といったように書き換えることが可能。
最終更新:2011年11月16日 22:37