Excel VBA让状态栏显示自定义内容技巧

1、教程以新建的一个excel文件为例，此时的状态栏如图所示，将文件另存为后缀名为xlsm格式的文档。

2、插入一个ActiveX控件作为控制代码的按钮，具体操作可以参考一下链接。

3、右键单击绘制好的控件，在弹出的菜单中选择查看代码。

4、此时会弹出一个VBA窗口，如图所示。

5、在VBA窗口里面的代码窗口中复制粘贴以下代码：

Private Sub CommandButton1_Click()

 Dim k

 k = InputBox("请在下面输入Excel状态栏需要显示的内容，" & Chr(13) _

 & "输入完毕后，请点击确认键！")

 Application.StatusBar = k

End Sub

6、点击VBA窗口右上角的的关闭按钮，关闭VBA窗口。

7、回到Excel界面，点击按钮，此时会弹出一个提示窗口，在窗口中输入状态栏需要显示的内容，点击确认即可，本教程就以输入“落霞与孤鹜齐飞，秋水共长天一色！”为例，效果如图所示。