リストオブジェクトへの追加、削除する方法

テーブルの作り方

上の画像のようにリストを作成し、ショートカットキー「Ctrl ＋ T」を押しテーブル化する。
画像の蛍光線部「デザイン　→　テーブル名を｛柱DB｝とする」。

これでテーブルが完成。

Enumを使ってイミディエイトウィンドウに表示する。

Option Explicit

Enum 柱
    氏名 = 1
    所属
    性別
End Enum

Sub test1()

Dim DB1 As ListObject   '柱テーブル用
Dim i As Long

Set DB1 = Sheet1.ListObjects("柱DB")

'イミディエイトウィンドウに表示
For i = 2 To DB1.ListRows.Count + 1
    Debug.Print DB1.Range(i, 柱.氏名), DB1.Range(i, 柱.所属), DB1.Range(i, 柱.性別)
Next

End Sub

以下の画像の通り、リストデータが表示される。

本題のリストへの追加、削除の方法

結論

'テーブルの最終行に追加
DB1.ListRows.Add.Range.Value = Array("かずやん", "エクセル", "男")

'テーブルの最終行を削除
DB1.ListRows.Item(DB1.ListRows.Count).Delete

Add、Deleteで追加、削除をする。

一瞬だけ柱になってみる。

Option Explicit

Enum 柱
    氏名 = 1
    所属
    性別
End Enum

Sub test1()

Dim DB1 As ListObject   '柱テーブル用
Dim i As Long

Set DB1 = Sheet1.ListObjects("柱DB")


'テーブルの最終行に追加
DB1.ListRows.Add.Range.Value = Array("かずやん", "エクセル", "男")


'テーブルの最終行を削除
DB1.ListRows.Item(DB1.ListRows.Count).Delete


'イミディエイトウィンドウに表示
For i = 2 To DB1.ListRows.Count + 1
    Debug.Print DB1.Range(i, 柱.氏名), DB1.Range(i, 柱.所属), DB1.Range(i, 柱.性別)
Next

End Sub

上記のコードを動かすと、Addしたとき一瞬だけ柱になれますｗ。即削除しますがｗ。

リストオブジェクトの追加、削除の方法備忘録でした。

ではでは、この辺で(^^)/~~~