VBAコードを使用してスプレッドシートで複数のタブを選択

Question

3つのタブを持つスプレッドシートがあります。最初の2つのタブを選択するには次のコードが必要です。私はほとんどそれを持っていますが、Sheets(Array(c)).Select部分はエラーを返します。基本的に私はシート（アレイ（「シート1」、「シート2」））として返すために最後のセクションを必要としています。すべてのヘルプは高く評価され

Sub HideUnhide2() 
Dim a As String 
Dim b As Double 
Dim c As String 
Application.Calculation = xlManual 
     For I = 1 To 100 
      If Range("d5") <> "Entity:" Then Exit For 
      'Start 
      c = c & ", " & Chr(34) & ActiveSheet.Name & Chr(34) 


      'End 
      b = b + 1 

      ActiveSheet.Next.Select 
     Next I 
    ' End If 
      c = Right(c, Len(c) - 2) 
      MsgBox c 
      Sheets(Array(c)).Select 

Application.Calculation = xlAutomatic 
MsgBox "Total tabs updated = " & b 

End Sub 

を選択します。

Answer 1

これはいかがですか？

Sub SelectTabs() 

    Dim numSheets As Integer 
    numSheets = 5 
    Dim aSheets() As String 
    ReDim aSheets(numSheets - 1) 

    For i = 0 To numSheets - 1 
     aSheets(i) = ActiveWorkbook.Worksheets(i + 1).Name 
    Next i 

    ActiveWorkbook.Worksheets(aSheets()).Select 

End Sub 

Answer 2

Worksheet.Select Methodは、現在の選択を追加または交換したい場合は、指定できます：

Dim ws as Worksheet, replaceSelection As Boolean 
replaceSelection = True 

For Each ws In ThisWorkbook.Worksheets 
    If ws.Range("d5") = "Entity:" Then 
     ws.Select Replace:=replaceSelection 
     replaceSelection = False 
    End If 
Next 

を現在のシートから始めて選択するには：

Dim ws as Worksheet, replaceSelection As Boolean 
replaceSelection = True 

While Not ws Is Nothing 
    If ws.Range("d5") = "Entity:" Then 
     ws.Select Replace:=replaceSelection 
     replaceSelection = False 
    End If 
    Set ws = ws.Next 
Wend 

あなたがそれらを選択し必要なのですか、なぜ