Excel中使用简单的VBA语句来实现批量取消隐藏工作表功能(Excel批量取消隐藏)

fangcloud 72 2022-08-14

本文转载自网络公开信息

Excel中使用简单的VBA语句来实现批量取消隐藏工作表功能(Excel批量取消隐藏)

Excel一直到2013版,也没有提供批量取消隐藏工作表的功能,这点确实比较遗憾,今天教大家用简单的VBA语句来实现这超酷炫的取消隐藏工作表功能。

Excel文件中隐藏了N个工作表,要求在主界面表中设置分别设置“隐藏”和“取消隐藏”按钮。并实现隐藏指定工作表的功能。

步骤

1、在工作表标签右键菜单上,点“查看代码”在打开的窗口中,“插入”- “模块" - 把下面的代码粘贴到右侧的窗口中。关闭当前Visual basic窗口。

代码

Sub 隐藏()Dim arrApplication.ScreenUpdating = False表名 = Array("表2", "表4", "表5")

'上句设置要隐藏的表名Sheets(表名).Visible = 0Sheets("主界面").SelectApplication.ScreenUpdating = TrueEnd Sub

Sub 取消隐藏()Application.ScreenUpdating = FalseDim arrFor x = 1 To Sheets.CountSheets(x).Visible = -1Next xSheets("主界面").SelectApplication.ScreenUpdating = TrueEnd Sub

2、在“主界面”表中开发工具 - 插入 - 表单控件 - 拖画两个按钮,并分别指定宏。

添加“开发工具”选项卡方法:

2010版:文件 - 选项 - 自定义功能区

2007版: office按钮- excel选项 - 常用 - 显示"开发工具.."

2003版:视图菜单 - 工具栏 - 选中“窗体”

3、文件另存为“启用宏的工作簿”(excel2003版略过此步)

设置OK!

如果你是新手可能看不明白上面VBA代码,不要紧,只要按步骤操作即可。不过还是建议感兴趣的同学们系统的学习一下VBA语言。VBA语言不像同学们想象的那么难,尝试下便会知道。

本站部分文章、图片属于网络上可搜索到的公开信息,均用于学习和交流用途,不能代表亿方云的观点、立场或意见。我们接受网民的监督,如发现任何违法内容或侵犯了您的权益,请第一时间联系小编邮箱jiasou666@gmail.com 处理。
上一篇:让字体的颜色变淡一些(文字颜色淡)
下一篇:Manager for Mac(企业会计软件) v21.1.17免费版(manager wang什么意思)
相关文章

 发表评论

暂时没有评论,来抢沙发吧~

微信二维码