vba 语句执行的可视化操作 ——进度条

dnjgyp

牛，学习了

dotaerwujie

看起来很不错，学习了

gaolzhen

留下以后用

hhxq001

看着不错，小白不会应用啊

临时用用的

效果很不错，不足的就是步骤太多，对于处理大数据时明明只要一个按钮解决的事，非要写这么多代码，楼主看下能不能简化一下,比如下面这张这么简单的，换成窗体显示

SUB JD()
dim a As Integer,b As Integer
b=30000
for a = 1 to b
Application.StatusBar = String(a / b / 10), "■") & String(b / (b / 10) - a / (b / 10), "□") & " " & Int((a / b) * 100) & "%"
Next a
Application.StatusBar = False '关闭进度条显示
End Sub

virarcher

厉害啊，学到了，谢谢楼主

jiangwenjian

感谢楼主分享，学习中

幽蓝果丁

学习一下，感谢分享

goots

临时用用的 发表于 2021-1-29 11:52
效果很不错，不足的就是步骤太多，对于处理大数据时明明只要一个按钮解决的事，非要写这么多代码，楼主看下 ...

可搜索前版主ldhyob 的 进度条

HANERBABA

感谢分享。