処理状況をラベルに表示させる方法

質問

お世話になります。
ユーザーフォームから起動するマクロで、処理の途中経過をフォーム内
のラベルに表示させようとしました。
Ａ列に支店名が入っていて、支店名順にソートされています。
現在どの支店の処理を行っているかラベルに表示させようと以下のような
コードを書きました。

Sub CommandButton1_Click()
Dim rIdx As Long
rIdx = 1
Do Until Cells(rIdx + 1, 1).Value = ""
rIdx = rIdx + 1
If Cells(rIdx, 1).Value <> Cells(rIdx - 1, 1).Value Then
Label1.Caption = Cells(rIdx, 1).Value
End If
'※以下、更新処理
Loop
End Sub

しかし、処理中は表示されず、処理終了後に最後の行の支店名が表示
されるだけです。
ラベルのCaptionを変更した後、強制的にフォームを更新表示させるよ
うな方法はありますか。

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

回答No.1

zap35 · ベストアンサー

キャプションの値をセットした後でRepaintしては？

UserForm1.Label1.Caption = Cells(rIdx, 1).Value
UserForm1.Repaint

お礼

ご回答ありがとうございます。
Repaintを使えばよいのですね。
解決しました。助かりました。

回答No.2

mshr1962

ラベルでなくテキストボックスかステータスバーでは駄目なのですか？
表示用の別フォームでもかまわないと思うのですが．．．

お礼

ご回答ありがとうございました。
参考になりました。