excel - 基于矩阵隐藏/取消隐藏Excel工作表

Question

我有一个可以工作的宏，但它不是很有效，可以做得更好。
我只是在一行中有一个包含所有工作表名称的列表(它们可以更改，因此它需要是动态的)，在下一行中我有一个“是/否”的答案，显示是否应该隐藏工作表。
例子:
表 1、表 2、表 3、表 4、
是的，是的，不是的，是的
到目前为止我的代码:

Sub HidingSheets()

'Checking the first sheet
'-------------------------------------------------------------------------------------------
Sheets(Worksheets("Sheet1").Range("E9").Value).Visible = True
Sheets(Worksheets("Sheet1").Range("E9").Value).Activate

If ActiveSheet.Range("A1") = "NO" Then
    ActiveSheet.Visible = False
End If
'-------------------------------------------------------------------------------------------

'Checking the second sheet
'-------------------------------------------------------------------------------------------
Sheets(Worksheets("Sheet1").Range("F9").Value).Visible = True
Sheets(Worksheets("Sheet1").Range("F9").Value).Activate

If ActiveSheet.Range("A1") = "NO" Then
    ActiveSheet.Visible = False
End If
'-------------------------------------------------------------------------------------------

End Sub

我基本上是在每张纸上手动而不是在循环中进行操作，这也要求我需要在每张纸上显示“是/否”(“如果”公式检查 A1 = “否”)。单元格 A1 中显示的“是/否”取自我之前解释过的矩阵。
注意:矩阵可以“转置”，它的方向无关紧要。
如果您能帮助我，请提前感谢您。
我的第二次尝试是这样的:

Sub Hiding2()

Dim i As interger

For i = 1 To 10

    a = ActiveSheet.Range("E9").Value

    If Offset(a(1, 0)) = YES Then
        Sheets(a).Visible = True
    Else
       Sheets(a).Visible = False
    End If

Next i

End Sub

但我不知道如何引用我需要的单元格，然后让它们为每个“i”移动。

Answer 1

Sub HideWorksheets()
    Dim Cell As Range
    Dim Data As Range: Set Data = Worksheets("Sheet1").Range("E9:N9")
    On Error Resume Next
    For Each Cell In Data
        Worksheets(Cell.value).Visible = IIf(Cell.Offset(1, 0) = "YES", xlSheetHidden, xlSheetVisible)
    Next Cell
End Sub