エクセルVBA

質問

どうしても解らないため，ご教授ください．

いま，ユーザーフォームAとBがありAで主にプログラムを走らせます．BはAで
処理している内容（ファイル名）を表示させるだけです．

そこで以下のようなプログラムを組んだのですが，リアルタイムに更新されず真っ白な
ままになってしまいます．フォームBに変数を渡して行おうとしましたがこれもうまく
行かず，今はフォームAからBを操作しています．
ラベルを使用していますがテキストボックスでもリストボックスでも
同様なことが起こってしまいます．何が悪いのかさっぱり解りません

よろしくお願いいたします．

buf = openfilename & "処理中"
If ic > 1 Then
buf = UserForm2.Label1.Caption & vbCr & buf
End If
UserForm2.Label1.Caption = buf

回答No.1

end-u · ベストアンサー

簡単な例を書くと
Private Sub CommandButton1_Click()
　　Dim i As Long
　　With UserForm2
　　　　For i = 1 To 5
　　　　　　Application.Wait Now + TimeValue("00:00:01")
　　　　　　.Label1.Caption = i
　　　　　　.Repaint
　　　　Next
　　End With
End Sub
こんな感じで UserForm2.Repaint による再描画が必要ではないでしょうか。

回答No.2

nda23

Windowsのアーキテクチャを理解すると、そういう
現象になるのは当然であることが分かります。
Windowsではウィンドウに何かしらの変化が発生
するとメッセージを発生させ、ウィンドウに送り
ます。例えば、「上に乗っていたウィンドウが消え
たから、その部分を描画し直せ」という具合です。
ウィンドウプロシージャはメッセージに応じた動作を
実施します。
「ボタンがクリックされた」というのも同じです。
そこから先はOnClickイベントプロシージャとして
利用者プログラムに制御が渡ります。
但し、メッセージは順繰りに処理されるので、前の
メッセージの処理が終わるまで、次のメッセージは
送られません。
つまり、ボタンクリックから一連の動作を開始すると、
このスレッドでいくら画面の表示を変えたとしても、
「描画」メッセージは画面に送られず、キューに溜まる
だけです。つまり、画面の表示に変化がありません。
ボタンクリックのスレッドがOSに制御を返すと、初めて
次のメッセージが送られ、再描画されます。従って、
最後の場面しか映りません。
実際のVBAでは微妙に違いますが、大体の流れはこの
ようになっています。Cプログラムでは実行ボタンに
よる処理は別スレッドを起動して処理し、メッセージの
処理は直ぐに制御をOSに戻すようにしています。
VBではマルチスレッドができないので、替わりに、
溜まったメッセージを先に処理させるステートメントを
使います。これがDoEventsステートメントです。
テキストボックスやラベルの内容を変更したら、この
ステートメントを実行します。
但し、このステートメントはボタンのクリックなども
拾うので、OnClickイベントプロシージャの処理を
抜けないうちに、発生したスレッドにより、同プロ
シージャが呼び出される可能性があります。また、
画面の表示を変えたことに伴って色々なイベントが
発生し、堂々巡りになったりする危険もあります。
こういった状態にならないよう制御します。

サンプル
UserForm2.Label1.Caption = buf
DoEvents 'ここでメッセージを処理させる