Excelでシートのハイパーリンクリストを作成

Question

特定のブックの特定のシートを特定のハイパーリンクで埋め込む方法は知っていますが、特定のシートを除外するにはどうすればよいですか？

私が使用していたVBのリストは以下の通りです。私は、「テスト結果」など

Sub GetHyperlinks() 
    Dim ws As Worksheet 
    Dim i As Integer 

    i = 9 

    For Each ws In ThisWorkbook.Worksheets 
     ActiveWorkbook.Sheets("overview").Hyperlinks.Add _ 
     Anchor:=ActiveWorkbook.Sheets("overview").Cells(i, 1), _ 
     Address:="", _ 
     SubAddress:="'" & ws.NAme & "'!A1", _ 
     TextToDisplay:=ws.NAme 

     i = i + 1 
    Next ws 
End Sub 

Answer 1

Sub GetHyperlinks() 
    Dim arrExclude 
    Dim ws As Worksheet 
    Dim i As Integer 

    'Sheets to be excluded from linking 
    arrExclude = Array("Test Results", "some other sheet", "overview") 

    i = 9 

    For Each ws In ThisWorkbook.Worksheets 
     'test to see if not excluded 
     If IsError(Application.Match(ws.Name, arrExclude, 0)) Then 
      ActiveWorkbook.Sheets("overview").Hyperlinks.Add _ 
       Anchor:=ActiveWorkbook.Sheets("overview").Cells(i, 1), _ 
       Address:="", _ 
       SubAddress:="'" & ws.Name & "'!A1", _ 
       TextToDisplay:=ws.Name 
      i = i + 1 
     End If 'include this sheet 
    Next ws 
End Sub 

などの特定のシートを除外したいと思います