excel如何批量取消隐藏的工作表
大家都知道,在平时使用过程中批量隐藏工作表的方法是使用键盘CTRL和鼠标选取需要隐藏的工作表标签,让后再使用鼠标右键隐藏功能来达到隐藏工作表的目的,但是要取消,excel就没有这样的功能了,大家就要一个一个的去选择右键[取消隐藏工作表】了,是不是很麻烦呢,下面我们来分享下,用VBA代码来完成批量取消隐藏的方法
操作方法
- 01
首先我们打开有隐藏的工作薄文件.大家会发现只有一个工作表标签SHEETS1,因为SHEETS2和SHEETS3我们以前做了隐藏
- 02
我按ALT+F11键进入以下界面
- 03
选取EXCEL对象,右键会得到图示效果
- 04
双击插入-模块
- 05
进入如图界面
- 06
我们见代码: Sub qxyc() Dim sht As Worksheet For Each sht In Worksheets sht.Visible = xlSheetVisible Next End Sub 写入到如图界面,按F5键,在回到工作薄
- 07
大家会发现,我们以前隐藏的工作表回来了,效果如图:
赞 (0)