VBA怎么编程序：[6]给EXCEL表格添加状态栏

1、 新建一个表格，现要在工作表名下侧添加状态栏来显示今天是几月几号，当前位置在哪个表，及其它备注信息。

2、 打开VBA编辑器，插入一个模块。

3、 输入以下代码：

Option ExplicitSub 状态栏()Application.StatusBar = "今天是:" & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日" & _ "    当前位置:" & ActiveSheet.Name & "   【备注】 """End Sub

4、 这样，在表格上就显示状态栏了。