猿问

VBA Excel中的进度栏

我正在做一个Excel应用程序,需要从数据库中更新大量数据,因此需要时间。我想在用户窗体中创建一个进度条,并在数据更新时弹出。我要的条形图只是一个蓝色的小条形图,它左右左右移动,重复直到更新完成,不需要任何百分比。我知道我应该使用该progressbar控件,但是我尝试了一段时间但无法成功。


编辑:我的问题是与progressbar控件,我看不到栏'进度'。窗体弹出时,它就完成了。我使用了一个循环,DoEvent但是没有用。另外,我希望该过程可以重复运行,而不仅仅是一次。


紫衣仙女
浏览 691回答 3
3回答

慕桂英546537

有时,状态栏中的一条简单消息就足够了:使用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
随时随地看视频慕课网APP
我要回答