|考虑一种情况，您需要一次隐藏和取消隐藏多张纸。如果有人手动隐藏和取消隐藏，则将花费大量时间。

在本文中，您将学习如何使用VBA代码动态隐藏或取消隐藏多个选项卡。

问）：我想要一个宏，它可以在某个时间点隐藏或取消隐藏多个选项卡。

以下是工作表Sheet1的快照，其中将有两个动态列表，即“隐藏”选项卡和“取消隐藏”选项卡

img1

  • 想法是，当我们单击“隐藏”或“取消隐藏”按钮时，列出的工作表应被隐藏或取消隐藏。我们需要执行以下步骤：

为了获得结果，我们需要启动VB编辑器。单击“开发人员”选项卡*从“代码”组中选择Visual Basic

img2

  • 单击插入，然后单击模块

img3

这将创建新的模块。

在Module Sub HideTabs（）Dim TabNo中将以下代码输入为DoubleDim LastTab作为Double LastTab = Range（“ Hide_TabsDNR”）。对TabNo = 2的错误继续恢复计数到LastTab Sheets（Range（“ Hide_TabsDNR”）（TabNo）） .Visible = False下一个选项卡上的错误转到0张纸（1）。选择End Sub

===

Sub UnHideTabs（）

昏暗TabNo为双

昏暗LastTab为双

LastTab = Range（“ Hide_TabsDNR”）。Count

关于错误继续Next

对于TabNo = 2到LastTab

Sheets（Range（“ UnHide_TabsDNR”）（TabNo））。可见=真

下一个TabNo

发生错误时转到0

Sheets（1）。选择||​​

||| ===结束子

  • 我们都可以运行宏，如果单击“隐藏”按钮，则所有列出的工作表都将被隐藏，请参见快照

img4

  • 如果我们单击取消隐藏按钮，则以同样的方式取消隐藏D列中提到的所有隐藏工作表。

img5

通过这种方式，我们可以一次动态隐藏或取消隐藏多个标签。