Table of contents
本教程介绍了如何在Excel 2016、2013、2010及以下版本中取消工作表的隐藏。 你将学习如何通过右键快速取消工作表的隐藏,以及如何通过VBA代码一次取消所有工作表的隐藏。
想象一下:你打开一个工作表,发现有些公式参考了另一个工作表。 你看了看工作表标签,但被参考的电子表不在那里!你试图用同样的名字创建一个新的工作表,但Excel告诉你它已经存在了。 这一切意味着什么? 很简单,工作表被隐藏了。 如何查看Excel中隐藏的工作表? 很明显,你必须取消隐藏它们。 这可以是通过使用Excel的 解除隐藏 本教程将教你这两种方法。
如何在Excel中取消隐藏工作表
如果你只想看一或两张隐藏的床单,这里有一个快速解除隐藏的方法。
- 在你的Excel工作簿中,右键单击任何工作表标签并选择 解除隐藏 ...从上下文菜单中。
- 在 解除隐藏 框,选择你要显示的隐藏工作表,然后点击 认可 (或双击工作表的名称)。 完成了!
除了右键上下文菜单,还有 解除隐藏 对话框可以从功能区进入。
- 在Excel 2003和更早的版本中,点击 格式 菜单,然后点击 钣金 > 解除隐藏 .
- 在Excel 2016、Excel 2013、Excel 2010和Excel 2007中,进入 首页 标签> 细胞 组,并点击 格式 隶属 可见性 , 指向 隐藏 & 取消隐藏 ,然后点击 揭开床单 ...
注意:Excel的 解除隐藏 要取消多个工作表的隐藏,你必须对每个工作表单独重复上述步骤,或者你可以通过使用下面的宏来一次性取消所有工作表的隐藏。
如何用VBA在Excel中取消隐藏工作表
在你有多个隐藏的工作表的情况下,逐个解除隐藏可能非常耗时,特别是如果你想解除工作簿中所有工作表的隐藏。 幸运的是,你可以用下面的一个宏来自动完成这个过程。
如何在Excel中取消隐藏所有工作表
这个小宏使活动的工作簿中所有隐藏的工作表立即可见,而不会用任何通知来干扰你。
Sub Unhide_All_Sheets() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Visible = xlSheetVisible Next wks End Sub显示所有隐藏的床单并显示其数量
和上面的宏一样,这个宏也是显示工作簿中所有隐藏的工作表。 不同的是,在完成后,它会显示一个对话框,告知用户有多少工作表被解除隐藏。
解除你选择的多个工作表的隐藏
如果你不希望一次解除所有工作表的隐藏,而是只解除那些用户明确同意可见的工作表,那么让宏单独询问每个隐藏的工作表,像这样。
Sub Unhide_Selected_Sheets() Dim wks As Worksheet Dim MsgResult As VbMsgBoxResult For Each wks In ActiveWorkbook.Worksheets If wks.Visible = xlSheetHidden Then MsgResult = MsgBox( "Unhide sheet " & wks.Name & " ?" , vbYesNo, " Unhiding worksheets" ) If MsgResult = vbYes Then wks.Visible = xlSheetVisible End If Next End Sub取消隐藏工作表,工作表名称中包含一个特定的词
如果你只想取消包含某些文本的工作表的名称,可以在宏中添加一个IF语句,该语句将检查每个隐藏的工作表的名称,并只取消那些包含你指定文本的工作表。
在这个例子中,我们取消了带有""字样的表单。 报告 "该宏将显示诸如以下表格 报告 , 报告1 , 七月报告 ,以及类似的情况。
要取消隐藏名称中包含其他单词的工作表,请替换" 报告 ",在下面的代码中加入你自己的文字。
Sub Unhide_Sheets_Contain() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If (wks.Visible xlSheetVisible) And (InStr(wks.Name, "report" )> 0) Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " worksheets have been unhidden. " , vbOKOnly, " Unhiding worksheets" Else MsgBox " No hidden已找到具有指定名称的工作表。" , vbOKOnly, "取消隐藏工作表" End If End Sub如何使用宏来解除Excel中工作表的隐藏状态
要在你的工作表中使用宏,你可以在Visual Basic编辑器中复制/粘贴代码,或者下载带有宏的工作簿并从那里运行它们。
如何在你的工作簿中插入宏
你可以通过这种方式将上述任何一个宏添加到你的工作簿中。
- 打开带有隐藏工作表的工作簿。
- 按Alt + F11打开Visual Basic编辑器。
- 在左侧窗格中,右键单击 这本工作手册 并选择 插入 > 模块 从上下文菜单中选择。
- 将代码粘贴在代码窗口中。
- 按F5来运行宏。
关于详细的步骤说明,请看如何在Excel中插入和运行VBA代码。
下载带有宏的工作簿
或者,你可以下载我们的样本工作簿,在Excel中取消隐藏工作表,其中包含本教程中讨论的所有宏。
- 隐藏所有表格 - 解除活动工作簿中所有工作表的隐藏,并保持沉默。
- 未隐藏所有表的数量 - 显示所有隐藏的床单和它们的数量。
- 未显示_选定的表格 - 显示你选择取消隐藏的纸张。
- 隐藏表的内容 - 取消隐藏名称包含特定单词或文字的工作表。
要在你的Excel中运行宏,你要做以下工作。
- 打开下载的工作簿,如果有提示,请启用宏。
- 打开你自己的工作簿,你想在其中看到隐藏的工作表。
- 在你的工作簿中,按Alt + F8,选择所需的宏,并点击 运行 .
例如,如果要解除Excel文件中所有工作表的隐藏,并显示隐藏工作表的数量,你可以运行这个宏。
如何通过创建自定义视图来显示Excel中的隐藏工作表
除了宏之外,通过创建自定义视图,可以克服一次次显示隐藏工作表的乏味。 如果你不熟悉这个Excel功能,你可以把自定义视图看作是工作簿设置的一个快照,可以在任何时候通过鼠标点击来应用。 这个方法最好在你工作的最开始使用,此时还没有一个工作表被隐藏。
所以,我们现在要做的是创建 显示所有表 自定义视图。 下面是方法。
- 确保你的工作簿中的所有电子表格都是 可见 这个提示显示了如何快速检查工作簿中的隐藏工作表。
- 转到 查看 标签> 工作簿视图 组,并点击 自定义视图 按钮。
现在你可以根据你的需要隐藏任意多的工作表,当你想让它们再次可见时,你可以点击 自定义视图 按钮,选择 显示所有表格 查看并点击 显示 ,或者直接双击该视图。
就这样!所有隐藏的床单将立即显示出来。
如何检查一个工作簿是否包含任何隐藏的工作表
检测Excel中隐藏的工作表的最快方法是这样的:右键单击任何工作表标签,看看是否有 隐藏... 如果它被激活,点击它,看看哪些工作表被隐藏了。 如果它被禁用(灰色),工作簿不包含隐藏的工作表。
注意:这个方法不能显示非常隐藏的工作表,查看这些工作表的唯一方法是用VBA解除隐藏。
无法在Excel中取消隐藏工作表--问题与解决方案
如果你无法在Excel中取消隐藏某些工作表,下面的故障排除提示可能会说明一些原因。
1.工作簿受到保护
如果在以下情况下,不可能隐藏或取消隐藏纸张。 工作簿结构 已被保护(不应与工作簿级别的密码加密或工作表保护相混淆)。 要检查这一点,请到 评论 标签> 变化 组,并看一下 保护工作手册 如果该按钮以绿色高亮显示,说明该工作簿受到保护。 要解除保护,请点击 保护工作手册 更多信息,请看如何解锁Excel中受保护的工作簿。
2.工作表非常隐蔽
如果你的工作表被VBA代码隐藏了,使它们变得非常隐蔽(指定了 xlSheetVeryHidden 属性),这种工作表不能通过使用 解除隐藏 要取消隐藏的工作表,你需要将属性从 xlSheetVeryHidden 至 xlSheetVisible 从Visual Basic编辑器内或运行此VBA代码。
3.工作簿中没有隐藏的工作表
如果 解除隐藏 命令在功能区和右键菜单中都是灰色的,这意味着你的工作簿中没有一个隐藏的工作表 :)
这就是在Excel中取消隐藏工作表的方法。 如果你想知道如何隐藏或取消隐藏其他对象,如行、列或公式,你可以在下面的文章中找到完整的细节。 我感谢你的阅读,希望下周在我们的博客上看到你的文章!
可用的下载
在Excel中取消隐藏工作表的宏程序