跳到主要内容

如何在Excel中隐藏除指定工作表或活动工作表以外的所有工作表?

为了保持工作簿整洁并易于浏览,您可能希望在Excel中隐藏除当前活动工作表以外的所有工作表。 在本文中,我们将向您展示两种隐藏所有工作表,但在Excel中已指定或处于活动状态的方法。

使用VBA代码隐藏Excel中除指定工作表以外的所有工作表
使用 Kutools for Excel 隐藏除活动工作表之外的所有工作表(只需单击几下)


使用VBA代码隐藏Excel中除指定工作表以外的所有工作表


您可以使用Excel中的VBA代码隐藏除指定的工作表以外的所有工作表。 请执行以下操作。

1.在当前打开的工作簿中,切换到仅要显示的工作表,然后按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块。 看截图:

3.然后将下面的VBA代码复制并粘贴到代码编辑器中。

VBA代码:隐藏除指定的一张以外的所有图纸

Sub SheetHidden()
	Dim xWs As Worksheet
	Dim xName As String
	xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> xName Then
			xWs.Visible = xlSheetHidden
		End If
	Next
End Sub

4。 按 F5 键来运行代码。

5.运行代码后,将弹出一个对话框,在其中显示活动工作表名称。 范围 框,然后单击 OK 按钮。

然后,除工作簿中的当前工作表外,所有工作表都将立即隐藏。

备注:要显示隐藏的工作表,请复制以下VBA代码并将其粘贴到模块中,然后按F5键运行代码。

VBA代码:显示隐藏的工作表

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

使用 Kutools for Excel 隐藏除活动工作表之外的所有工作表(只需一键点击)

您可以一键隐藏Excel中除指定的或活动的表格以外的所有表格。

申请前 Kutools for Excel首先下载并安装.

1.进入要仅在当前工作簿中显示的指定工作表。

2。 然后点击 库工具 > 显示隐藏 > 隐藏未选中的图纸.

然后,当前工作簿中的所有工作表(活动工作表除外)都将被隐藏。

备注:如果要显示所有隐藏的工作表,请单击 库工具 > 显示/隐藏 > 取消隐藏所有工作表。 看截图:

  如果您想免费试用(30天)此实用程序, 请点击下载,然后按照上述步骤进行操作。

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations