设为首页收藏本站

切换到宽版

《新大榭》- 创大榭地方网络社区先锋品牌 新大榭始终专注于地方网络社区平台的建设 关于我们- [大记事]- 留言建议- [新手报道]

发布 .新大榭软件管家（Excel版） V6.0版 财务/仓库/生产/销售/采购/行政/人事/校园 .公告 - 客户 - 打赏 - 职场 - Excel - Python.

新大榭镜像-搜音乐-法律库-图书馆-高中课堂-实验室 广告是为了能更好的发展 [欢迎商家支持本站互利共赢] 广告位招租.首页黄金广告位等您来！联系 13566035181

新大榭论坛»论坛 › 技术服务 › 办公模板 › Excel特训营 › A01028 - 显示/隐藏状态栏 - P16

发新帖

查看: 480|回复: 0

[VBA精品课] A01028 - 显示/隐藏状态栏 - P16

发表于 2019-3-8 11:39:58 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转新大榭论坛！

您需要登录才可以下载或查看，没有账号？注册

x

Public Sub 技巧1_028()8 m6 T* t M! X- S
'隐藏状态栏
9 {8 }, U$ h5 h0 t, y: b* y1 S
Application.DisplayStatusBar = False/ _) m- P! `" Q3 ^+ Z
If MsgBox("状态栏被隐藏!" & vbCrLf & "是否重新显示状态栏?", _
$ V! n, z+ k5 {% P
vbQuestion + vbYesNo) = vbNo Then Exit Sub+ l: x! o2 W6 h
'显示状态栏8 x$ c7 l! S7 [' B
Application.DisplayStatusBar = True4 D* E& ]2 |7 J+ p& D
End Sub

复制代码

新大榭Python学习社区培训、Excel业务指导、办公软件定制、网站建设；新大榭探索实验室欢迎您！http://lab.daxie.net.cn/

Q群推荐大榭本地求职招聘QQ群，欢迎转发分享本地招聘信息资讯! 官方招聘1群（已满）；官方招聘2群：315816937 *

回复

使用道具举报

发新帖

文字版|小黑屋|新大榭 ( 浙ICP备16018253号-1 )||

GMT+8, 2026-2-26 23:06 , Processed in 0.073363 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表