微软为什么就不给excel添加这个功能？我只能自已做了！

Excel一直到2013版，也没有提供批量取消隐藏工作表的功能，今天兰色教大家用简单的VBA语句来实现超酷炫的取消隐藏功能。

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

操作步骤：

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

代码：

---

Sub 隐藏()
Dim arr
Application.ScreenUpdating = False
表名 = Array('表2', '表4', '表5')

'上句设置要隐藏的表名
Sheets(表名).Visible = 0
Sheets('主界面').Select
Application.ScreenUpdating = True
End Sub

Sub 取消隐藏()
Application.ScreenUpdating = False
Dim arr
For x = 1 To Sheets.Count
Sheets(x).Visible = -1
Next x
Sheets('主界面').Select
Application.ScreenUpdating = True
End Sub

---

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

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

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

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

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

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

设置OK！

兰色说：可能新手看不明白上面VBA代码，不要紧，只要按步骤操作会用就行。不过还是建议有兴趣的同学们系统学习一下VBA语言。VBA不象同学们想象的那么难学，有兴趣的可以试试。

书也买了一大堆，没心思看。教程也下载了好多，越看越迷糊。excel到底该怎么学？其实，通过视频学习才是最好的学习途径，点左下角'阅读原文' 查看兰色幻想+小妖录制的超全的290集excel视频教程。