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)获得了基本想法。

表单打开并转到.04％，然后一切都停止。

Answer 1

显示这样的表格会阻止程序的流程，直到您关闭它。像这样打开它：UserForm1.Show vbModeless 最后，如果出现错误，请务必Unload UserForm1

显示userfom停止处理

1 个答案: