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
这里还是建议大家使用完之后,及时的关闭状态栏,因为状态栏常规是不会自动更新状态的,历史遗留的状态会影响到你的。
怎么样,是不是很完美。
联系客服