? ? ? ? 上一章《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 ProgressForm1progForm.Show 0     '打開窗體（不暫停）Dim MaxValue As LongDim CurrentValue As LongMaxValue = 100 ' 設置最大步數為100Dim i As LongFor i = 1 To 10' 這里執行你的任務代碼...Application.Wait (Now + TimeValue("0:00:01"))   ' 模擬執行延時CurrentValue = CurrentValue + 10progForm.UpdateProgress MaxValue, CurrentValue    ' 更新進度條Next iApplication.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中都可以運行。