VBA进度条-ProgressForm3

Sub Demo_ProgressForm3() ' ' 通过动态改变Label标签控件填充字符的个数来模拟进度条，执行过程请不要关闭窗体，否则会出错。 ' ' 调用方法：ProgressForm3.UpdateProgress(MaxValue, CurrentValue) ' MaxValue 表示最大步数，CurrentValue 表示当前步数。 Application.ScreenUpdating = False ' 禁用屏幕更新 ' 创建并显示进度条窗体 Dim progForm As New ProgressForm3 progForm.Show vbModeless ' 非模态显示 Dim i As Long For i = 0 To 100 Step 10 ' 设置最大步数为100，每10步更新一次进度 ' 这里执行你的任务代码... Application.Wait (Now + TimeValue("0:00:01")) ' 模拟耗时 progForm.UpdateProgress 100, i Next i Application.Wait (Now + TimeValue("0:00:01")) ' 延时以显示完整进度 Application.ScreenUpdating = True ' 启用屏幕更新 ' 关闭进度条窗体 Unload progForm Set progForm = Nothing MsgBox "处理完成！", vbInformation, "提示" End Sub