排除在特定工作表上工作的宏

Question

如何从通过工作簿运行的宏中排除这些工作表？ 无法完成代码，因为我不熟悉排除工作表。

我到目前为止有：

Dim sh As Worksheet 
    If sh.Name <> "Apples" And sh.Name <> "Oranges" And ws.Name <> "Grapes" Then 

Answer 1

首先，创建一个代表所有表的名称，以排除变量：

Const excludeSheets as String = "Apples,Oranges,Grapes,David,Hector,Sheet1" 

然后，你可以做这样的事情：

If IsError(Application.Match(sh.Name, Split(excludeSheets,","))) Then 
    'code will manipulate the sheets which are not found in the array 
    MsgBox sh.Name & " is not excluded!" 
Else: 
    Msgbox sh.Name & " is excluded!" 
End If 

UPDATE

预计你的新代码，我的猜测是你没有分配sh变量。

您可以在一个循环strucutre做到这一点：

Sub ShowMeTheSheets() 

    Dim sh as Worksheet 
    Const excludeSheets as String = "Apples,Oranges,Grapes,David,Hector,Sheet1" 

    For each sh in ThisWorkbook.Worksheets 'Assigns a Worksheet Object to the sh Variable. 
     If IsError(Application.Match(sh.Name, Split(excludeSheets,","))) Then 
      'code will manipulate the sheets which are not found in the array 
      MsgBox sh.Name & " is not excluded!" 
     Else: 
      Msgbox sh.Name & " is excluded!" 
     End If 
    Next 
End Sub