「第2辑」Excel VBA知识分享——进度条

Excel在日常工作生活中应用的很普遍，VBA的出现大大的方便了大家的工作，可以有效的提高工作效率，所以，今天给大家介绍另外一种很好用的工具--进度条，高手请绕道，谢谢。

进度条，顾名思义就是一种显示进度的状态条，能够非常清晰明了的告诉我们程序执行到哪里了，下面先介绍一下Excel自身带有的一种进度条--Progressbar.

以下是一个简单的示例，纯手打，非网上copy哦。

详细步骤就不讲了，新建xlsb格式文件，插入窗体，在工具箱里找到progressbar，添加到新建的窗体里。这里要注意的一点是，如果有的同学在toolbox里没有找到progressbar控件，请按照如下方法添加：

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

好啦，大家按照以上方法试试吧，有什么问题，欢迎提问!

谢谢