230问答网 > 如何在excel VBA运行时添加进度条（在excel内运行的宏），麻烦大侠指点下。。。

如何在excel VBA运行时添加进度条（在excel内运行的宏），麻烦大侠指点下。。。

2024-12-15 09:17:43

推荐回答（2个）

回答1：

新建一个"用户窗体",设置合适大小,添加两个"label标签",其中一个用作进度条的边框,即填充区,另一个用作填充实体.
在VBA程序内部加入控制代码,当程序开始运行时,调出"用户窗体",当程序运行到某处时,进度条的显示状态,若程序处于循环内部时,可以根据循环次数设定进度条变化状态,还需用DoEvents释放控制权给进度条刷新显示.

回答2：

自己先做一个进度条，然后套用这段代码，注，增加进度条一般会降低你的运行速度

UserForm1.Show 0
With UserForm1.ProgressBar1
.Min = 1
.Max = ii
.Scrolling = 0
.Value = i‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘你的循环值
UserForm1.Caption = "正在运行,已完成" & Int(i / ii * 100) & "%,请稍候!"
End With
你先调试一下试试看，不行再联系