VBAでUserFormでProgressBarとLabelを同時表示できない理由は？

VBAでUserFormをつかってProgressBarとLabelを同時に表示させる。つもりでしたが、ProgressBarが満たされた後Labelが表示されます。その理由と対策を教えて下さい。そのコードを以下に示します。

Sub a()

With UserForm1
.Show vbModeless
.Label1 = "始めのテキスト"
End With

s = 1
e = 20000

For i = s To e
UserForm1.Label1 = "始めのテキスト"
UserForm1.ProgressBar1.Value = i / e * 1000
Next i

End Sub

お願いします。

No.2 ベストアンサー 回答者： tsukasa-12r 回答日時： 2004/02/23 07:43

理由の説明は面倒なのでやめときますが、

For i = s To e
DoEvents
UserForm1.Label1 = "始めのテキスト"
UserForm1.ProgressBar1.Value = i / e * 1000
Next i

のように DoEvents を入れることで解決できると思います。

ところで、

For i = s To e
UserForm1.Label1 = "始めのテキスト"
UserForm1.ProgressBar1.Value = i / e * 1000
Next i

↑これって
UserForm1.Label1 = i / e * 100 & "% 終了"
のようにしたいんじゃないんですか？
UserForm1.Label1 = "始めのテキスト"
のままでいいんだったらループの中に入れる意味が無いです。

この回答へのお礼

ありがとうございました。できました！

お礼日時：2004/02/23 23:18

No.1 回答者： nishi6 回答日時： 2004/02/23 01:13

Repaintを追加してみました。

（ *1000 は *100 ？）
ExcelVBAでしょうか。

　　With UserForm1
　　　　.Show vbModeless
　　　　.Label1 = "始めのテキスト"
　　　　.Repaint
　　End With
　　
　　S = 1
　　e = 20000
　　
　　For i = S To e
　　　　'UserForm1.Label1 = "始めのテキスト"
　　　　UserForm1.ProgressBar1.Value = i / e * 100
　　Next i
　　

この回答へのお礼

有難う御座います。

お礼日時：2004/02/23 23:18