VBA で Excel テーブルを使用する方法 (考えられる 9 つの方法)

表 VBA で作業する際に使用する、最も重要で広く使用されているオブジェクトの 1 つです。 エクセルで。この記事では、Excel の表を使用する方法を紹介します。 VBA で .

VBA で Excel テーブルを使用する 9 つの方法

テーブルは、最初の行にヘッダーが含まれる Excel の特別な種類のデータ セットです。

VBA で 、カテゴリ ListObject に分類されます . Excel の表を使用する方法は次のとおりです。 VBA で .

1. Excel で VBA を使用してテーブルを作成する

まず、テーブルの作成方法を学びます VBA で

テーブルを作成するには VBA で Excel では、最初に Table を宣言する必要があります ListObject として .

次に、表を挿入する必要があります

Dim Table1 as ListObject

Set Table1 = ActiveSheet.ListObjects.Add(xlSrcRange, Range("B4:D13"), , xlYes)

[ここ Table1 テーブルの名前です VBA で と B4:D13 テーブルが必要なアクティブなワークシートの範囲です。好きなものを使ってください。]

このコードを実行します。 テーブル を作成します 範囲 B4:D13

必要に応じて、テーブルの名前を好きな名前に変更できます。

Table1.Name = "MyTable"

テーブルの名前が MyTable に変更されます。

続きを読む: ショートカットを使用して Excel でテーブルを作成

2. VBA で Excel テーブルを参照

テーブルの作成を学びました VBA で

テーブルを参照する 既に Excel で作成されている場合、最初に Table を宣言する必要があります ListObject として .

表を参照してください 名前は Excel で使用できます。

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

<強い>

テーブル “MyTable” を参照します Table1 という名前の Excel で .

続きを読む: Excel テーブル リファレンスの使用方法

3. Excel で VBA を使用して表に値を入力する

表に値を入力するには 、まず、表を参照する必要があります .

次に、Range.Cells を使用してセルに値を入力する必要があります。 VBA のプロパティ .

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

Table1.Range.Cells(2, 1) = "A Tale of Two Cities"

<強い>

このコードを実行します。文字列 「A Tale of Two Cities」 を入力します 2番目 行と1番目 テーブル MyTable の列

4. Excel で VBA を使用してテーブルに行と列を挿入する

行または列を 表 に挿入するには VBA で 、まず 表 を参照してください .

次に行を追加するには、ListRows.Add を挿入します

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

Table1.ListRows.Add

<強い>

テーブル MyTable の最後に新しい行を追加します .

または、列を追加するには、ListColumns.Add を挿入します

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

Table1.ListColumns.Add

<強い>

テーブル MyTable の右側に新しい列が追加されます .

繰り返しますが、行または列を 表 の特定の位置に追加するには 、ListRows.Add 内の位置を指定します または ListColumns.Add

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

Table1.ListRows.Add (4)

4番目として新しい行を追加します テーブル MyTable の行 .

新しい列を追加する場合も同じです。

続きを読む: Excel テーブルから行と列を挿入または削除する方法

5. VBA を使用してテーブルからデータを読み取る

VBA を使用してテーブルからデータを読み取るには 、Range.Cells を使用します VBA のプロパティ .

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

MsgBox Table1.Range.Cells(3, 1)

コードを実行すると、3 番目の値が表示されます 行と1番目 テーブル MyTable の列 . 愛の 40 のルール .

類似の読み物

• Excel でピボット テーブルを更新する VBA (5 つの例)
• VBA ですべてのピボット テーブルを更新する方法 (4 つの方法)
• Excel でピボット テーブルを編集する (5 つの方法)
• ピボット テーブルの範囲を更新する方法 (5 つの適切な方法)

6. VBA を使用してテーブルの行または列をループする

VBA を使用してテーブルの各行をループするには 、ListRows.Count を使用します

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")


For i = 1 To Table1.ListRows.Count

    Table1.ListRows(i).Range.Select

Next i

テーブル Table1 の各行を反復処理します

同様に、テーブルの各列を反復するには、ListColumns.Count を使用します

7.テーブル内の特定の値を探す

VBA を使用してテーブルの行または列で特定の値を検索するには 、DataBodyRange.Rows.Find を使用します または DataBodyRange.Columns.Find VBA のプロパティ .

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

Set Value = Table1.DataBodyRange.Columns(1).Find("Mother", LookAt:=xlWhole)

MsgBox Value

「Mother」という値を探します MyTable テーブルの 1 列目に 、見つかった場合はその値を返します。

8. Excel で VBA を使用してテーブルのサイズを変更する

表のサイズを変更して新しい形状にするには、まず Range を設定します テーブル サイズが変更されます。

表のサイズを変更します その範囲まで .

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

 
Dim Rng As Range

Set Rng = Range("B4:C8")

 
Table1.Resize Rng

最初に Range を設定します B4:C8 として 、テーブル MyTable のサイズを変更します その新しい範囲に .

9. Excel で VBA を使用してテーブルを削除する

VBA でテーブルを削除するには 、削除を使用 VBA のプロパティ .

Dim Table1 As ListObject

Set Table1 = ActiveSheet.ListObjects("MyTable")

Table1.Delete

テーブル MyTable を削除します

覚えておくべきこと

テーブルは ListObject です VBA で .しかし、単純な Range としてアクセスしたい場合 オブジェクト、Table.Range を使用 VBA のプロパティ .テーブルを Range として返します Range のすべてのプロパティにアクセスできます VBA のオブジェクト .

結論

これらのメソッドを使用すると、VBA でテーブルを使用できます .何か質問がありますか？お気軽にお問い合わせください。

参考文献

• Excel でピボット テーブルを自動更新する方法 (2 つの方法)
• Excel のピボット テーブルで列をグループ化する (2 つの方法)
• ピボット テーブルのカスタム グループ化:3 つの基準を使用
• Excel テーブルで数式を効果的に使用する (4 つの例を使用)