excel - 隐藏不在数组中的工作表

Question

我用我要选择的工作表的名称制作了数组。
我想隐藏的所有其他工作表。
它需要通过动态。
列表说我的数组是
工作表(数组(“Sheets1”，“sheet2”))。选择
我有 4 张床单
我如何隐藏不在数组中的所有其他工作表？

Answer 1

隐藏表格

Sheets集合包括工作表、图表等。

Here是 的类似解决方案工作表 .

Option Explicit

Sub HideSheets()
    
    ' Do NOT hide:
    Dim Exceptions As Variant: Exceptions = Array("Sheet1", "Sheet2")
    
    Dim sh As Object
    
    For Each sh In ThisWorkbook.Sheets
        If IsError(Application.Match(sh.Name, Exceptions, 0)) Then
            On Error Resume Next ' when trying to hide last visible sheet
                If Not sh.Visible = xlSheetHidden Then
                    sh.Visible = xlSheetHidden
                End If
            On Error GoTo 0
        End If
    Next sh
    
End Sub