关于VBA的进度条问题?
Private Sub CommandButton1_Click()
ProgressBar1.Visible = True
ProgressBar1.Max = 10000
ProgressBar1.Min = 0
For i = 1 To 10000
Sheets("总目录").Cells(i, 1) = i
ProgressBar1.Value = i
Next i
MsgBox ""
ProgressBar1.Visible = False
End Sub
此段代码为进度条的按钮代码,(不太明白为什么写这样的代码)我现在已经在窗体中做了一个进度条,还有一个按钮,如何在按那个按钮的时候执行我的模块中 比如说叫 “提取本月数据”的宏,然后进度条就会显示宏的运行速度呢,请高手相助。。。。
满意答案
好评率:100%呵呵,进度条的进度是要用程序来控制的。
宏的运行速度显示
要把进度条对象作为一个参数转给 宏。
在宏中修改进度行的 vlaue就能控制进行条的进度。
提问人的追问 2010-04-07 23:26
谢谢你的回答,我想知道有没有办法可以把进度条与宏连接起来呢
回答人的补充 2010-04-08 08:36
我已经回答了呀。
要把进度条对象作为一个参数传递给 宏。
然后才能在宏中对进度条进行操控。
方法:
例如你的宏叫 Hong1. 进度条对象名为P1
修改宏入口
sub hong1(myP1 as object)
...
myp1.value=??
....
end sub
调用宏时用
hong1 p1
不知道你明白没有