VBA Excel中的进度栏

Question

我正在做一个Excel应用程序，需要从数据库中更新大量数据，因此需要时间。我想在用户窗体中创建一个进度条，并在数据更新时弹出。我要的条形图只是一个蓝色的小条形图，它左右左右移动，重复直到更新完成，不需要任何百分比。我知道我应该使用该progressbar控件，但是我尝试了一段时间但无法成功。编辑：我的问题是与progressbar控件，我看不到栏'进度'。窗体弹出时，它就完成了。我使用了一个循环，DoEvent但是没有用。另外，我希望该过程可以重复运行，而不仅仅是一次。

Answer 1

有时，状态栏中的一条简单消息就足够了：

使用VBA在Excel状态栏中的消息

这很容易实现：

Dim x               As Integer 

Dim MyTimer         As Double 

'Change this loop as needed.

For x = 1 To 50

    ' Do stuff

    Application.StatusBar = "Progress: " & x & " of 50: " & Format(x / 50, "0%")

Next x 

Application.StatusBar = False