如何根据表

Question

我有一张名为＆＃34; HideSheets＆＃34; （单列）添加或有时删除的工作表。我如何参考

中的表格

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不是有效的工作表名称。