excel - 如何根据表格中的选项卡名称隐藏 Excel 工作簿中的工作表

Question

我有一个名为“HideSheets”(单列)的表，可以向其中添加或有时删除工作表。如何引用

中的表格

Sub HideSheets()
    Dim cell As Range
    On Error Resume Next
    For Each cell In Sheets("Index").Range("HideSheets")
        ' Hide sheets
        Sheets(cell.Value).Visible = False

End Sub

Answer 1

For Each 还必须有一个 Next 命令

Sub HideSheets()
    Dim r As Range
    On Error Resume Next
    For Each r In Sheets("Index").Range("HideSheets")
        ' Hide sheets
        Sheets(r.Value).Visible = xlSheetHidden
    Next r
End Sub

不要使用On Error Resume Next，而是检查可能导致错误的情况并进行适当的处​​理。例如，向用户返回一个错误，说明发生了以下错误:

1. 用户尝试隐藏工作簿中的所有个工作表
2. r.Value 不是有效的工作表名称。