显示没有百分比更新的UserForm上的进度

Question

我希望在我的程序执行所有操作时显示进度，知道它正在运行但没有失败。问题是，我没有使用任何索引，For...Next，While或任何我可以用来调用我的进度条更新的内容。

该计划：

• 打开2本书
• 将一堆行从一个复制到另一个
• 刷新许多其他工作表中的所有数据/图形。

由于我没有循环遍历所有行（这是我进度条的主要参考点），我不确定如何显示进度。

很抱歉，如果我不能更具体，但我不确定是否可以共享任何代码。如果您需要更多信息，我可以尝试在这里发布一些信息。

我的进度条代码是：

Public Sub UpdateProgressBar(PctDone As Single)

    With ProgressForm

        ' Update the Caption property of the Frame control.
        .FrameProgress.Caption = Format(PctDone, "0%")

        ' Widen the Label control.
        .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)

    End With

    ' The DoEvents allows the UserForm to update.
    DoEvents
End Sub

Public Sub UpdateProgressText(txt)

    ProgressText.Caption = txt

End Sub