VBA经典代码 拿来即用 1.4 在Excel状态栏显示进度

原标题：VBA经典代码 拿来即用 1.4 在Excel状态栏显示进度

Excel的状态栏？

状态栏是哪里？

这里就是Excel的状态栏

这里可以显示进度？这里不是Excel默认的设置嘛？这里我们还可以作出改动吗？

当然可以，比较常用的，就是在这里暂时数据存储，或者写入的进度

直接看代码，this is套路

Sub ds()

Application.DisplayStatusBar = True

Application.StatusBar = "程序开始执行~~"

For i = 1 To 100

Cells(i, 1) = "test"

Application.StatusBar = "正在写入第" & i & "个数据,共100个数据，请稍候..."

Next i

Application.StatusBar = "程序结束~~"

Application.StatusBar = False

End Sub

OK，看看

留意看左下角的状态栏，清楚的展示了每一次的数据变化

那么这个功能是如何实现的呢？

常规情况下，excel是默认关闭这个状态栏的，并不是不可编辑，而是直接关闭的

那么我们要如何开启这个状态栏呢？

看代码第一句话

Application.DisplayStatusBar = True

就这么一句话，就可以开启状态栏，让状态可以变我们编辑

当然这里的编辑并不是手工键盘写入，而是通过VBA

Application.StatusBar = "正在写入第" &i & "个数据,共100个数据，请稍候..."

Application.StatusBar = "*******"

中间的就是我们要写的内容

当然你可以在程序完成之后，选择关闭状态栏。

Application.StatusBar = False

这里还是建议大家使用完之后，及时的关闭状态栏，因为状态栏常规是不会自动更新状态的，历史遗留的状态会影响到你的。

怎么样，是不是很完美。返回搜狐，查看更多

责任编辑：