VBA进度条ProgressForm1

        上一章《VBA如何使用ProgressBar进度条控件》介绍了ProgressBar控件的使用方法，今天我给大家介绍ProgressForm1进度条的使用方法，ProgressForm1是集成ProgressBar控件和Label控件的窗体，可以同时显示进度条和百分比，如下图：

一、使用方法

     ProgressForm1.UpdateProgress(MaxValue, CurrentValue)
     MaxValue 表示最大步数，CurrentValue 表示当前步数。

二、使用演示

    ProgressForm1进度条使用演示，代码如下：

Sub Demo_ProgressForm1()
'
' ProgressForm1进度条使用演示
'
' 通过动态调节ProgressBar控件和Label控件的值显示进度条和百分比，仅适用于32位版本的Office。
'
' 调用方法：ProgressForm1.UpdateProgress(MaxValue, CurrentValue)
' MaxValue 表示最大步数，CurrentValue 表示当前步数。
'
    Application.ScreenUpdating = False    ' 禁用屏幕更新
    
    ' 创建并显示进度条窗体
    Dim progForm As New ProgressForm1
    progForm.Show 0     '打开窗体（不暂停）
    
    Dim MaxValue As Long
    Dim CurrentValue As Long
    MaxValue = 100 ' 设置最大步数为100
    
    Dim i As Long
    For i = 1 To 10
        ' 这里执行你的任务代码...
        Application.Wait (Now + TimeValue("0:00:01"))   ' 模拟执行延时
        CurrentValue = CurrentValue + 10
        progForm.UpdateProgress MaxValue, CurrentValue    ' 更新进度条
    Next i

    Application.Wait (Now + TimeValue("0:00:01"))   ' 延时1秒以显示完整进度
    
    Application.ScreenUpdating = True    ' 启用屏幕更新
    
    Unload progForm   '关闭窗体
    
    MsgBox "执行完毕！", vbInformation, "提示"

End Sub

三、下载地址

      点击下方地址可下载ProgressForm1窗体文件，在VBA编辑窗中导入即可直接使用，内附使用方法。

      下载地址：https://download.csdn.net/download/bigtoothcat/90946058

四、兼容性问题

       如果你尝试在64位版本的Office中使用ProgressBar控件，很可能会出现下图的错误提示：“无法加载这个对象，因为它不适用于这台计算机。”，这是因为ProgressBar控件只适合在32位的Office中运行，所以对于使用了该控件的程序存在向后兼容的问题。

       下一章， 我将向大家介绍如何在VBA中设计模拟进度条，模拟进度条不存在兼容的问题，在任何版本的Office中都可以运行。