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