时间:2016-04-04 15:59 来源: 我爱IT技术网 作者:佚名
现要在工作表名下侧添加状态栏来显示今天是几月几号,当前位置在哪个表,及其它备注信息,这个功能需要怎么实现呢?
详细的操作方法或具体步骤
新建一个表格,现要在工作表名下侧添加状态栏来显示今天是几月几号,当前位置在哪个表,及其它备注信息。
![VBA怎么编程序:[6]给EXCEL表格添加状态栏](http://www.52ij.com/uploads/allimg/160404/155952A58-0.jpg)
打开VBA编辑器,插入一个模块。
![VBA怎么编程序:[6]给EXCEL表格添加状态栏](http://www.52ij.com/uploads/allimg/160404/155952D30-1.jpg)
输入以下代码:
Option ExplicitSub 状态栏()Application.StatusBar="今天是:" & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日" & _ " 当前位置:" & ActiveSheet.Name & " 【备注】 """End Sub
![VBA怎么编程序:[6]给EXCEL表格添加状态栏](http://www.52ij.com/uploads/allimg/160404/155952D93-2.jpg)
这样,在表格上就显示状态栏了。
![VBA怎么编程序:[6]给EXCEL表格添加状态栏](http://www.52ij.com/uploads/allimg/160404/1559522295-3.jpg)
- 评论列表(网友评论仅供网友表达个人看法,并不表明本站同意其观点或证实其描述)
-
