如何基于表中的选项卡名称隐藏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不是有效的表名称。