Excel进度条

Excel在日常工作生活中应用的很普遍，VBA的出现大大的方便了大家的工作，可以有效的提高工作效率，所以，今天给大家介绍另外一种很好用的工具--进度条。进度条，顾名思义就是一种显示进度的状态条，能够非常清晰明了的告诉我们程序执行到哪里了，下面先介绍一下Excel自身带有的一种进度条--Progressbar.

1490863749126767.gif

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

1490863768122829.gif

代码如下：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