Excel VBA UserForm、プログレスバー

Question

進捗状況ツールバーのように動作し、実際の進捗状況を％で表示するユーザーフォームを作成しました。

ツールバーをforループで表示したいとします。しかし、forループは、私がuserformをクリックした場合にのみ実行されます。私は何を間違っているのですか？

For k = 1 To 300 

    pctcompl = k * 100/300 

    UserForm1.Text.Caption = pctcompl & "% Completed" 
    UserForm1.Bar.Width = pctcompl * 2 

    DoEvents 

    UserForm1.Show 

Next k 

Answer 1

私は疑問にコードをコピー＆ペーストしてください:-)

frmTest.Show vbModeless

http://www.mrexcel.com/forum/excel-questions/41673-userform-stops-macro-how-continue-w-still-visible.html