进度条问题

已解决问题

关于VBA的进度条问题?

[ 标签: 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
此段代码为进度条的按钮代码,(不太明白为什么写这样的代码)我现在已经在窗体中做了一个进度条,还有一个按钮,如何在按那个按钮的时候执行我的模块中 比如说叫 “提取本月数据”的宏,然后进度条就会显示宏的运行速度呢,请高手相助。。。。

come back 回答:1 人气:1 解决时间:2010-04-08 19:56
满意答案
好评率: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

 

不知道你明白没有

 

 

评价答案

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值