怎样使用VBA自定义状态栏进度条

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Sub状态栏进度条() Static BB As 幞洼踉残Byte Application.StatusBar租涫疼迟=WorksheetFunction.Rept("执行中：" & "☆", 20) '设定初始状态文字 BB=0 While BB < 20 '当变量小于20时停止运行 BB=BB+1 '累计变量 '以下一句产生进度条形式的效果，用★来替换☆显示 Application.StatusBar="执行中：" & WorksheetFunction.Rept("★", BB)& WorksheetFunction.Rept("☆", 20-BB) VBA.DoEvents '转让控制权 Application.Wait Now+TimeValue("00:00:01") '程序停止一秒钟再执行下一段代码 Wend '停止循环 Application.StatusBar=False '恢复状态栏文字End Sub

5、用快捷键F5运行程序代码，则状态栏显示动态的进度条，如图