VBA进度条

工具箱默认情况下没有进度条控件，需在“工具”->“附加控件”里面添加Microsoft ProgressBar Control,version 6.0，即可在工具箱里面看到进度条控件。

创建一个窗体UserForm1，添加一个进度条ProgressBar1和一个标签Label1，即可可以完成VBA进度条设计。

eg：经常在一个循环运算中用到进度条，此时可以将循环运算在窗体UserForm1里面进行，即可将循环变量嵌入到ProgressBar1里面进行精准进度条设计。

Private Sub UserForm_Activate()
Dim n As Integer
n = 3000
ProgressBar1.Min = 1
ProgressBar1.Max = n
Label1.Caption = "0%"
For n = 1 To 3000
ProgressBar1.Value = Str(n)
Label1.Caption = Round(n / ProgressBar1.Max, 2) * 100 & "%"
DoEvents
Next n
'Unload UserForm1
End Sub