Excel中如何使用VBA批量取消隐藏工作表

风晓 2024-01-02 07:37:22  55410

分类专栏：资讯

隐藏工作表和取消隐藏工作表是经常使用到的操作。在进行隐藏的时候，可以按住Ctrl键同时隐藏多个工作表，但是如果需要显示的话，只能一个一个进行设置。今天就来介绍一下如何使用VBA来批量取消隐藏工作表。

现在有一个工作簿，里面有10个工作表Sheet1-Sheet10，现在将奇数项的工作表隐藏起来。

全部取消隐藏

VBA代码如下：

Sub UnhideWorksheets()

Dim i As Worksheet

For Each i In Worksheets

i.Visible = xlSheetVisible

End Sub

点击运行之后，全部隐藏的工作表就会显示出来了。

取消部分隐藏

如果需要取消部分工作表的隐藏，上面那个方法就不奏效了。下面来介绍一下新的方法。在VBA中建了一个用户窗体，插入十个复选框，分别命名为十个工作表名称，另外还插入了一个按钮。

按钮代码如下：

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10

If Controls("CheckBox" & i).Value = True Then

Sheets(i).Visible = xlSheetVisible

End If

Next i

End Sub

点击运行以后，会弹出窗体。在这里勾选上需要显示的工作表，点击按钮，工作表就会显示了。

在实际使用的时候需要将复选框与工作表名称进行一一对应，然后才能关联起来，有兴趣的小伙伴可以自行进行扩展使用。

网站声明：如果转载，请联系本站管理员。否则一切后果自行承担。

赞同 0

评论 0 条