変数または配列で名前が定義されたListObject

Question

変数または配列値で名前が定義された一連の新しいListObjectを作成しようとしています。

TblNameArray = Array("Table1", "Table2", "Table3", "Table4",) 

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(R1, C1), Cells(R2, C2)), , xlYes).Name = TblNameArray(w) 

正しい名前の2つの新しいテーブルが取得され、エラーなしで停止します。 私は、変数を使用することを好むが、私はその場所で変数を使用する方法を考え出していない。

ご協力いただければ幸いです！

Answer 1

あなたの質問から、正確に何をしようとしているのかを見るのは難しいです。しかし、以下のコードは機能し、おそらくあなたの道を見つけるのに役立ちます。

Private Sub InsertTables() 

    Dim TblNameArray As Variant 
    Dim TblRangeArray As Variant 
    Dim w As Integer 

    TblNameArray = Array("Table1", "Table2", "Table3", "Table4") 
    TblRangeArray = Array("A2:G8", "A11:G15", "A21:G25", "A31:G35") 

    With Activesheet 
     For w = 0 To UBound(TblNameArray) 
      .ListObjects.Add(SourceType:=xlSrcRange, _ 
          Source:=Range(TblRangeArray(w)), _ 
          XlListObjectHasHeaders:=xlYes).Name = TblNameArray(w) 
     Next w 
    End With 
End Sub 

Private Sub ListTables() 

    Dim Tbl As ListObject 

    For Each Tbl In ActiveSheet.ListObjects 
     Debug.Print Tbl.Name 
    Next Tbl 
End Sub