论坛中这类问题很多,有做在工作表的,也有做在窗体上的……
参考:http://club.excelhome.net/thread-165981-1-1.html
使用道具 举报
'看状态栏
Sub ff()Dim i, jFor i = 1 To 60For j = 1 To 6000000NextApplication.StatusBar = String(i / 5, "■") & String(60 / 5 - i / 5, "□") & " " & Int((i / 60) * 100) & "%"NextApplication.StatusBar = FalseEnd Sub
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-6-3 17:59 , Processed in 0.234757 second(s), 8 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.