如何顯示進度條？

Question

網上有很多關於如何制作進度條的建議。

我制作了一個帶有標簽和框架的用戶表單，並向按鈕添加了代碼：

Private Sub CommandButton1_Click()

For i = 1 To 192
    Cells(i, 1) = "a"
    Label1.Width = i
Next i

End Sub

進度條只有在循環執行結束后才會刷新。

如何刷新用戶表單？

Answer 1

DoEvents將控制權交給操作系統。 在操作系統處理完其隊列中的事件（如屏幕更新）后，控制權將返回。 如果您使用進度條，這就是您所需要的。

所以在你的循環中放一個DoEvents 。 它會減慢它的速度，但進度條應該會起作用。

Private Sub CommandButton1_Click()
  For i = 1 To 192
    Cells(i, 1) = "a"
    Label1.Width = i
    DoEvents
  Next i
End Sub

Microsoft 的 VBA DoEvents 文檔