OFFICE VBA 实现 进度条

秋之寂静

运行示例：

进度条运行示例

附件中是对应WORD和EXCEL中的实现代码，主要代码是类模块 ProcessBar。两个文档中类模块代码是一致的。
下面是调用的方式，有兴趣的可以自己再在这个基础之上进行扩展。

使用条件：
1、在WORD中启用了宏。
2、新人对VBA工程对象模型的访问。

上代码：

1. 
   
2. Sub StartProcessBar()
   
3.     Dim c       As Double
   
4.     Dim cnt     As Double
   
5.     Dim msg     As String
   
6.     Dim pbar    As New ProcessBar
   
7.    
   
8. On Error GoTo Err_StartProcessBar
   
9.    
   
10.     '创建进度条
    
11.     pbar.ShowBar
    
12.    
    
13.     cnt = 100      '循环次数控制
    
14.     For c = 1 To cnt
    
15.         '可以在这里使用sleep函数，来控制延时
    
16.         pbar.SleepBar 50
    
17.         '修改进度条的进度
    
18.         pbar.ChangeProcessBarValue c / cnt, Format(c / cnt, "已经完成总进度的 0.00%")
    
19.     Next
    
20.     '销毁进度条
    
21.     pbar.DestroyBar
    
22.     Set pbar = Nothing
    
23.    
    
24.     Exit Sub
    
25. Err_StartProcessBar:
    
26.     Set pbar = Nothing
    
27.     MsgBox Err.Description, vbExclamation
    
28. End Sub
    

复制代码

源程序：
创建进度条.zip (89.93 KB, 下载次数: 3767)

2014-11-11 08:54 上传

点击文件名下载附件
进度条VBA

秋之寂静

o(︶︿︶)o 唉，没有人。
简单说明一下吧。
一共有两个模块：
一个标准模块，里面是简单的调用方式，修改进度条的值，传入一个百分比，和对应的内容就行了。
另一个是类模块是进度条的实现。创建出一个对象来就可以使用了。
两个模块在Excel和Word中不用修改，可以直接使用。


程序： 创建进度条(NEW).zip (48.16 KB, 下载次数: 1566)

2014-11-12 14:23 上传

点击文件名下载附件
程序

修改了一下样式，上效果图。

执行中

倒计时3S

下面是代码：

1. Sub StartProcessBar()
   
2.     Dim c       As Double
   
3.     Dim cnt     As Double
   
4.     Dim msg     As String
   
5.     Dim pbar    As New ProcessBar
   
6.    
   
7. On Error GoTo Err_StartProcessBar
   
8.    
   
9.     pbar.ShowBar '创建进度条
   
10.    
    
11.     cnt = 100
    
12.     For c = 1 To cnt
    
13.         pbar.SleepBar 2
    
14.         pbar.ChangeProcessBarValue c / cnt, Format(c / cnt, " 正在执行 0.0%")
    
15.     Next
    
16.     '销毁进度条
    
17.     pbar.ChangeProcessBarValue 1, Format(c / cnt, " 执行完成，3 秒后程序自动关闭！")
    
18.     pbar.SleepBar 1000
    
19.     pbar.ChangeProcessBarValue 1, Format(c / cnt, " 执行完成，2 秒后程序自动关闭！")
    
20.     pbar.SleepBar 1000
    
21.     pbar.ChangeProcessBarValue 1, Format(c / cnt, " 执行完成，1 秒后程序自动关闭！")
    
22.     pbar.SleepBar 1000
    
23.     pbar.DestroyBar
    
24.     Set pbar = Nothing
    
25.    
    
26.     Exit Sub
    
27. Err_StartProcessBar:
    
28.     Set pbar = Nothing
    
29.     MsgBox Err.Description, vbExclamation
    
30. End Sub
    

复制代码

---

===<END>===

引子玄

“进度条”概念，应该有“时间进度条”和“路程进度条”之分。后面的会做。

张雄友

秋之寂静 发表于 2014-11-12 14:25
o(︶︿︶)o 唉，没有人。
简单说明一下吧。
一共有两个模块：

最好结合一些例子。

foreverfall

非常感谢，学习了

冰殤

請問是任意加入宏都可幫計算進度到哪嗎?

sqt199199

dear, i can't find processbar, it shows user defined type not defined

gmts

秋之寂静 发表于 2014-11-12 14:25
o(︶︿︶)o 唉，没有人。
简单说明一下吧。
一共有两个模块：

WIN 10系统下不能实行

danielth001

下载了，要留个好评

yzpgz

收藏了，慢慢学习