今年我们来聊点简单的,但是很常见的问题如何批量取消工作薄中,所有隐藏的工作表目前Excel自带的功能,无法实现批量,只能逐个取消,有兴趣的同学可以去WPS看看,听说可以
不过有很多MSOFFICE忠粉,如我,所以我们就来简单实现以下这个功能
先看效果:
点击按钮,显示出了所有隐藏
代码截图:
源码粘贴可用(建议收藏,关键时候可帮大忙):
'作者:Excel办公实战-小易'功能:过程名称很明白'------------------------------------Sub取消全部隐藏工作表()DimwsAsWorksheet'检查没一个工作表ForEachwsInThisWorkbook.Worksheets'取消隐藏-可见ws.Visible=xlSheetVisiblews.Visible=xlSheetVeryHiddenws.Visible=xlSheetHiddenNextEndSub
扩展:如果想通过代码隐藏工作表,
那么可以只要把
ws.Visible=xlSheetVisible修改为ws.Visible=xlSheetHidden或者xlSheetVeryHidden
xlSheetVeryHidden相对于hidden更加安全,普通方法无法取消隐藏,必学在VBE中操作取消
小结:从实战出发,只是简单的几句代码,如何大量的隐藏工作表需要取消,可以大量节约我们的时间,以上代码可以直接复制粘贴使用!