Excel在日常工作生活中应用的很普遍，VBA的出现大大的方便了大家的工作，可以有效的提高工作效率，所以，今天给大家介绍另外一种很好用的工具--进度条。
进度条，顾名思义就是一种显示进度的状态条，能够非常清晰明了的告诉我们程序执行到哪里了，下面先介绍一下Excel自身带有的一种进度条--Progressbar.
详细步骤就不讲了，新建xlsb格式文件，插入窗体，在工具箱里找到progressbar，添加到新建的窗体里。这里要注意的一点是，如果有的同学在toolbox里没有找到progressbar控件，请按照如下方法添加：
代码如下：
Private Sub CommandButton1_Click()
Dim i, n As Long
Dim t, x
n = 50000
With UserForm1.ProgressBar1
.Max = n
.Min = 0
For i = 0 To n
.Value = i
t = CStr(Int(i / n * 100)) + "% Completed!"
x = (i - 1) Mod 8 + 1
Label2.Caption = "系统正运行中 " & Application.Rept("．", x)
DoEvents
Label1.Caption = t
Next
End With
Unload Me
MsgBox "恭喜你,更新完成", 16 + 48, "Message"
End Sub
