只要你隐藏过工作表,你就遇到过这种小麻烦:当你想取消隐藏的工作表时,你只能从鼠标右键菜单中一个一个的选择隐藏。这次,我们介绍两个方法,可以一次性取消多个隐藏的工作表
在Excel中,一次隐藏多个工作表非常简单。你只需要按照点击一个工作表标签,然后按住Shift键点击另外一个工作表标签,这两个工作表之间的所有工作表就全部选中了(也可以按住Ctrl键同时一个一个点选工作表),然后点击鼠标右键,在菜单中点击“隐藏”
但是,取消隐藏就没有这么方便了,你只能再一次一次的调出下面的对话框,选取一个,点击确定:
这实在太烦人了!
幸亏还有办法!!!
1 自定义视图首先介绍不用VBA的办法。
我们可以采用自定义视图来解决这个问题。
首先在没有隐藏工作表时,点击“视图”选项卡,然后点击“自定义视图”
在弹出的“视图管理器”中点击“添加”
在弹出的“添加视图”对话框中,输入名称:“无隐藏”(随便起你便于理解的名字),然后点击确定
这里需要注意的是,如果勾选了“打印设置”,“隐藏行列及筛选设置”。那么在你以这个视图显示的时候,你做的隐藏或筛选等操作将被取消。
然后隐藏需要除了Sheet1之外的工作表。再次创建自定义视图
你可以在两个视图之间随意切换,一个是隐藏了工作表的视图,一个是没有隐藏的视图:
这个方法挺好。就是有一个缺陷,如果你拿到的文件已经隐藏了工作表,你得不到全部工作表的视图(除非你你一个一个的取消隐藏)。这时,你可以用下面的VBA代码来一次性取消所有的隐藏的工作表。
不用担心,很简单,你只要按照下面简单步骤操作就可以了。
2 请输入标题首先,在Excel中按Alt F11,打开VBA的编辑窗口。然后双击“ThisWorkbook”
复制下面的代码,粘贴右侧窗口
SubUnhideAllSheets()DimHiddenSheetAsWorksheetForEachHiddenSheetInActiveWorkbook.WorksheetsHiddenSheet.Visible = xlSheetVisibleNextHiddenSheetEndSub
如下图:
然后点击运行(或者按F5键),大功告成!
如果你原来的文件不是.xlsm后缀的,在执行完这个操作后,点击保存会出现下面的对话框
点击“是”,文件就正常保存了(不过VBA代码并没有保存)。
3 总结代码也不难理解。如果对VBA代码有兴趣,我们会在后面详细介绍VBA开发。敬请期待。
好了,今天就分享到这里了。有什么不明白的,欢迎留言讨论。