工作表隐藏与显示
速写-王者荣耀
前言
今天讲一下工作表的隐藏与显示,批量隐藏非常简单,批量显示需要一点点VBA基础,不过看完今天的文章,相信你已经具备了一点点VBA的知识了。
1工作表隐藏
工作表需要隐藏时,只要选中工作表下方的标签栏,右键,点击隐藏即可。
工作表选择有一下几种方式:
按住CTRL键,用鼠标点击多个工作表,可以实现多选
按住CTRL键,用鼠标点击已选中工作表,可以取消选中。
想取消已选中的全部工作表,可以点击其他任何一个非选中工作表即可。
按住SHIFT,用鼠标选取第一个和最后一个,可以实现连续工作表同时选中。
隐藏时,可以同时选中多个工作表,在任意选中的工作表标签栏上点击右键,选择隐藏即可。
2取消工作表隐藏
取消工作表隐藏时,需要在标签栏上选中一个可见的工作表,右键,点击取消隐藏,此时,会弹出一个取消隐藏的对话框,用鼠标点击要取消的工作表,确定即可。
但是:取消工作表只能一个个取消,不支持多选。
前几天老崔就接到一个同事求助,解决了一个隐藏了100多个工作表的变态文件,几行代码轻松解决,核心代码只有一条。下面为解决方法:
首先ALT+F11,打开VBA编辑器
在工程窗口中,选中当前工作薄,点击“插入”菜单栏,插入“模块”
将下述代码拷贝到新插入的模块1中:
Sub 取消隐藏工作表()
For Each ws In Worksheets
ws.Visible = True
Next
End Sub
将鼠标放在代码内的任何位置,单击工具栏上的运行按钮或F5,取消隐藏瞬间完成。
总结
1、VBA编辑器的打开方式:ALT+F11
2、过程代码:
SUB 名称()
……
END SUB
3、循环代码:
FOR EACH 元素 in 集合
……
NEXT
4、工作表显示代码:
SHEETS("名称”).VISIBLE=TRUE
或
SHEETS(序号) .VISIBLE=TRUE
更多VBA代码请见:
END