怎样使用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运行程序代码，则状态栏显示动态的进度条，如图