userfomが処理を停止しています

Question

ロードプロセスが正常に動作します。私はそれをプログレスバーに接続しようとしています。

以下は、進行状況バーを含むコードの小さなサンプルです。

n = the corrent row that is being processed 
TotalRecords = total number of rows that needs to be processed 

UserForm1.Show 

    .Fields(FieldNames(k)) = TableLoc.Offset(n, k - 1).Value 

    With UserForm1 
     pctCompl = (n/TotalRecords) 
     UserForm1.Text.Caption = pctCompl & "% Completed" 
     UserForm1.Bar.Width = pctCompl 
    End With 

    .Update 

私は(Displaying A Progress Indicator)から基本的な考えを得ました。

フォームが開き、0.04％になり、すべてが停止します。

Answer 1

このようなフォームを表示すると、プログラムのフローが閉じられるまでブロックされます。 このように開く：UserForm1.Show vbModeless 最後にエラーが発生した場合は、Unload UserForm1