怎样利用ExcelVBA实现进度条效果

进度条应用极为广泛，它能实时显示任务完成状况，还可以更直观地展示信息处理的进度。

1、 打开Excel2007办公软件，按快捷键Alt+F11进入VBA编辑环境。右键单击Microsoft Excel对象，接着选择插入中的用户窗体来新建一个用户窗体，把这个用户窗体命名为网络经验测试用进度条，同时将其名称设定为prgramBarShow。

2、 在新建的窗体里，拖放三个Label标签，将它们分别命名为lblBack、lblprogress和percert。

3、 设置进度条外观：把lblBack的背景色设为淡蓝，lblProgress背景设成深蓝，percert前景色设为红色。将这三个标签重叠放置，lblBack置于最底层，lblProgress在中间层，percert处于最上层。最后调整窗口大小，使之适配进度条。

4、 温馨提示：要把lblBack与lblProgress的高度和宽度设置为相同。

5、 右键点击Microsoft Excel对象，接着选择插入中的模块，新建一个模块，然后在这个模块里创建一个函数，内容所示。

6、 要让进度条在文档打开时自动运行，可双击ThisWorkbook，于弹出窗口输入图中内容，完成后保存并退出文档。

7、 再次打开文档，若之前未开启宏运行权限，提示宏运行时选启用宏，就能看到进度条开始运行的效果。