Excel vbaでテーブルを参照するにはどうすればよいですか？

Question

Excel VBAで名前付きテーブルを参照することは可能ですか？

仮にこれが...

Sheets("Sheet1").Table("A_Table").Select 

可能性が...たぶん

Answer 1

これを私は、リストの対象となるテーブルのいくつかの言及を見てきましたが、それは同じことである場合、私はわからないんだけどテーブルの範囲の変換テーブル

を作成するあなたの

を助けることができる（this answerで説明したように）Excel 2003の同じコードで始まります：

Sub CreateTable() 
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$1:$D$16"), , xlYes).Name = _ 
     "Table1" 
     'No go in 2003 
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight2" 
End Sub 

Answer 2

さらに、オブジェクトを参照する変数を定義すると便利です。たとえば、

Sub CreateTable() 
    Dim lo as ListObject 
    Set lo = ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$1:$D$16"), , xlYes) 
    lo.Name = "Table1" 
    lo.TableStyle = "TableStyleLight2" 
    ... 
End Sub 

あなたはおそらくそれをすぐに見つけるでしょう。上記に加えて

Answer 3

、あなたがこの（「YourListObjectNameは」あなたのテーブルの名前です）行うことができます。

Dim LO As ListObject 
Set LO = ActiveSheet.ListObjects("YourListObjectName") 

をしかし、私はあなたが上だリストオブジェクトを参照する場合にのみ動作することを考えますアクティブシート。

異なるワークシートのピボット・テーブルが参照する1つのワークシートのリスト・オブジェクト（表）を参照したいので、私はあなたの質問を見つけました。リスト・オブジェクトはワークシート・コレクションの一部であるため、リスト・オブジェクトが参照するためにリスト・オブジェクトが存在するワークシートの名前を知る必要があります。したがって、リストオブジェクトがあるワークシートの名前を取得するには、ピボットテーブルのソースリストオブジェクト（再びテーブル）の名前を取得し、リストを含むワークシートが見つかるまで、ワークシートとリストオブジェクトをループします私が探していたオブジェクト。

Public Sub GetListObjectWorksheet() 
' Get the name of the worksheet that contains the data 
' that is the pivot table's source data. 

    Dim WB As Workbook 
    Set WB = ActiveWorkbook 

    ' Create a PivotTable object and set it to be 
    ' the pivot table in the active cell: 
    Dim PT As PivotTable 
    Set PT = ActiveCell.PivotTable 

    Dim LO As ListObject 
    Dim LOWS As Worksheet 

    ' Loop through the worksheets and each worksheet's list objects 
    ' to find the name of the worksheet that contains the list object 
    ' that the pivot table uses as its source data: 
    Dim WS As Worksheet 
    For Each WS In WB.Worksheets 
     ' Loop through the ListObjects in each workshet: 
     For Each LO In WS.ListObjects 
      ' If the ListObject's name is the name of the pivot table's soure data, 
      ' set the LOWS to be the worksheet that contains the list object: 
      If LO.Name = PT.SourceData Then 
       Set LOWS = WB.Worksheets(LO.Parent.Name) 
      End If 
     Next LO 
    Next WS 

    Debug.Print LOWS.Name 

End Sub 

誰かがもっと直接的な方法を知っているかもしれません。

Answer 4

質問は、テーブルを参照することが可能ですが、テーブルを追加する方法ではありません。あなたは、部品の

Dim LO As ListObject 
Set LO = Sheets("Sheet1").ListObjects("A_Table") 
LO.HeaderRowRange.Select  ' Select just header row 
LO.DataBodyRange.Select   ' Select just data cells 
LO.TotalsRowRange.Select  ' Select just totals row 

：

Sheets("Sheet1").ListObjects("A_Table").Range.Select 

か（のみテーブル内のデータなど）の部分を選択する：だから

Sheets("Sheet1").Table("A_Table").Select 

の作業と同等はこの文になりますそれらを選択する前にヘッダー行と合計行が存在するかどうかをテストしたい場合があります。

真剣に、これはSOのVBAでテーブルを参照する上で唯一の質問ですか？ Excelのテーブルは非常に意味がありますが、VBAで作業するのはとても難しいです！

Answer 5

テーブルを参照する「適切な」方法は、ワークシートからリストオブジェクトを取得することです。つまり、SheetObject.ListObjects(ListObjectName)です。

シートを使用せずにテーブルを参照する場合は、ハックApplication.Range(ListObjectName).ListObjectを使用できます。

注：このハックは、Excelは、常にテーブルと同じ名前を持つテーブルのDataBodyRangeの名前付き範囲を作成しているという事実に依存しています。ただし、この範囲の名前はに変更できます。テーブル名を編集すると名前がリセットされるため、何かしたくないはずです。また、ListObjectが関連付けられていない名前付き範囲を取得することもできます。あなたは間違った名前は、あなたがラッパーを作成したい場合があり得るとき、Excelのない、非常に便利 - 1004のエラーメッセージが与えられた

...

Public Function GetListObject(ByVal ListObjectName As String, Optional ParentWorksheet As Worksheet = Nothing) As Excel.ListObject 
On Error Resume Next 

    If (Not ParentWorksheet Is Nothing) Then 
     Set GetListObject = ParentWorksheet.ListObjects(ListObjectName) 
    Else 
     Set GetListObject = Application.Range(ListObjectName).ListObject 
    End If 

On Error GoTo 0 'Or your error handler 

    If (Not GetListObject Is Nothing) Then 
     'Success 
    ElseIf (Not ParentWorksheet Is Nothing) Then 
     Call Err.Raise(1004, ThisWorkBook.Name, "ListObject '" & ListObjectName & "' not found on sheet '" & ParentWorksheet.Name & "'!") 
    Else 
     Call Err.Raise(1004, ThisWorkBook.Name, "ListObject '" & ListObjectName & "' not found!") 
    End If 

End Function 

また、いくつかの良いListObject情報here。