excel - Application.StatusBar 在 VBA 中卡住

Question

最近我一直在编写需要大量时间来执行的宏。 (最多 5 分钟，但有些更长)。我发现在这种情况下有用的一件事(除了等待)是让 Application.StatusBar 告诉我它是在移动还是挂起。

但是，很多时候，当程序继续运行时，Application.Statusbar 会卡住在某个值。如何纠正这个问题？无论如何，我们是否可以阻止这种情况，以便只要程序在移动，状态栏就会不断移动？提前致谢。

Answer 1

我发现当循环中有很多项目时，我的代码会发生卡住。我通过使用以下代码解决了这个问题:

For RowNum = 1 To TotalRows
  For ColNum = 1 To TotalCols
    'code
      If ColNum = 1 Then
        If RowNum Mod 50 = 0 And ColNum = 1 Then
          Application.StatusBar = Format(RowNum / TotalRows, "0%")& " Completed." 
        End If
      Else: Exit For
      End If
  Next ColNum
Next RowNum

循环每 50 行更新一次状态栏。这有助于代码运行得更快并消除了屏幕卡住