－ちょっと使えるネタを紹介－
Excel VBAを使って、テーブルを作成したり、範囲に変換したり、スタイルを設定するには、「.ListObjects.Add」や、「.Unlist」、「.TableStyle」について、解説していきます。VBAを使って、テーブルの操作を自動化していきましょう。
この記事では、テーブルを作成する方法、範囲に変換する方法、スタイルの設定方法について、ご紹介します。
テーブルを作成するには、「.ListObjects.Add」を使います。
範囲に変換したい場合は、「.ListObjects.UnList」です。
スタイルを設定するしたい場合は、「.ListObjects.TableStyle」を使います。
VBAでテーブルの操作を自動化していきましょう。
では、テーブルを作成する方法、範囲に変換する方法、スタイルの設定方法について、解説していきます。
この記事を読むメリット
目次から見たい項目へ移動すると便利ですよ。
目次
VBAを使って、テーブルを作成してみます。
テーブルを作成するVBAコードは、次のようになります。
Sub TEST1()
'テーブルに変換
ActiveSheet.ListObjects.Add 1, Range("B2").CurrentRegion
End Sub
次の表を用意しておきます。
「ListObjects.Add」を使って、テーブルを作成できます。
「ListObjects.Add」を使って、テーブルを作成できました。
テーブルを作成するときに、「見出し」を追加してテーブルを作成するVBAコードは、次のようになります。
Sub TEST2()
'見出しを追加して、テーブルに変換
ActiveSheet.ListObjects.Add 1, Range("B2").CurrentRegion, , xlNo
End Sub
表を用意しておきます。
「見出し」を追加して、テーブルを作成できます。
「見出し」を追加して、テーブルを作成できました。
テーブルのスタイルを設定してみます。
テーブルのスタイルを設定するには、「.TableStyle」を使います。
スタイルには、次の種類があります。
それぞれ、VBAコードをみてみます。
「淡色」のテーブルスタイルのVBAコードは、「"TableStyleLight1"」～「"TableStyleLight21"」まであります。
'淡色
With ActiveSheet.ListObjects(1)
.TableStyle = "TableStyleLight1"
.TableStyle = "TableStyleLight2"
.TableStyle = "TableStyleLight3"
.TableStyle = "TableStyleLight4"
.TableStyle = "TableStyleLight5"
.TableStyle = "TableStyleLight6"
.TableStyle = "TableStyleLight7"
.TableStyle = "TableStyleLight8"
.TableStyle = "TableStyleLight9"
.TableStyle = "TableStyleLight10"
.TableStyle = "TableStyleLight11"
.TableStyle = "TableStyleLight12"
.TableStyle = "TableStyleLight13"
.TableStyle = "TableStyleLight14"
.TableStyle = "TableStyleLight15"
.TableStyle = "TableStyleLight16"
.TableStyle = "TableStyleLight17"
.TableStyle = "TableStyleLight18"
.TableStyle = "TableStyleLight19"
.TableStyle = "TableStyleLight20"
.TableStyle = "TableStyleLight21"
End With
左から順番に、連番となっています。
といった感じです。
次は、「中間」のテーブルスタイルをみてみます。
「中間」のテーブルスタイルのVBAコードは、「"TableStyleMedium1"」～「"TableStyleMedium28"」まであります。
'中間
With ActiveSheet.ListObjects(1)
.TableStyle = "TableStyleMedium1"
.TableStyle = "TableStyleMedium2"
.TableStyle = "TableStyleMedium3"
.TableStyle = "TableStyleMedium4"
.TableStyle = "TableStyleMedium5"
.TableStyle = "TableStyleMedium6"
.TableStyle = "TableStyleMedium7"
.TableStyle = "TableStyleMedium8"
.TableStyle = "TableStyleMedium9"
.TableStyle = "TableStyleMedium10"
.TableStyle = "TableStyleMedium11"
.TableStyle = "TableStyleMedium12"
.TableStyle = "TableStyleMedium13"
.TableStyle = "TableStyleMedium14"
.TableStyle = "TableStyleMedium15"
.TableStyle = "TableStyleMedium16"
.TableStyle = "TableStyleMedium17"
.TableStyle = "TableStyleMedium18"
.TableStyle = "TableStyleMedium19"
.TableStyle = "TableStyleMedium20"
.TableStyle = "TableStyleMedium21"
.TableStyle = "TableStyleMedium22"
.TableStyle = "TableStyleMedium23"
.TableStyle = "TableStyleMedium24"
.TableStyle = "TableStyleMedium25"
.TableStyle = "TableStyleMedium26"
.TableStyle = "TableStyleMedium27"
.TableStyle = "TableStyleMedium28"
End With
イメージでみてみると次のような感じです。
左から順番に、連番になってます。
次は、「濃色」のテーブルスタイルをみてみます。
「濃色」のテーブルスタイルのVBAコードは、「"TableStyleDark1"」～「"TableStyleDark11"」まであります。
'濃色
With ActiveSheet.ListObjects(1)
.TableStyle = "TableStyleDark1"
.TableStyle = "TableStyleDark2"
.TableStyle = "TableStyleDark3"
.TableStyle = "TableStyleDark4"
.TableStyle = "TableStyleDark5"
.TableStyle = "TableStyleDark6"
.TableStyle = "TableStyleDark7"
.TableStyle = "TableStyleDark8"
.TableStyle = "TableStyleDark9"
.TableStyle = "TableStyleDark10"
.TableStyle = "TableStyleDark11"
End With
「濃色」のテーブルスタイルです。
こちらも、左から順番に、連番となっています。
テーブルのスタイルを削除してみます。
スタイルを削除したい場合は、「.TableStyle = ""」とします。
Sub TEST3()
'スタイルを削除
ActiveSheet.ListObjects(1).TableStyle = ""
End Sub
テーブルを用意しておきます。
テーブルのスタイルを削除できます。
テーブルのスタイルを削除できました。
テーブル名を設定してみます。
テーブル名を設定したい場合は、「.Name」を使います。
Sub TEST4()
'名前を設定
ActiveSheet.ListObjects(1).Name = "テーブル100"
End Sub
元のテーブル名は、「テーブル1」です。
実行すると、テーブル名を変更して、「テーブル100」に設定できます。
テーブル名を変更して、「テーブル100」に設定できました。
テーブルを範囲に変換してみます。
テーブルから元の表形式に戻します。
テーブルを範囲に変換するには、「.Unlist」を使います。
Sub TEST5()
'範囲に変換
ActiveSheet.ListObjects(1).Unlist
End Sub
テーブルを用意しておきます。
テーブルを範囲に変換できます。
テーブルを範囲に変換できました。
ただ、スタイルが残ったままだと、見た目がよろしくないので、書式を削除して、範囲に変換してみます。
スタイルを削除して範囲に変換するには、範囲に変換する前に、スタイルを削除します。
Sub TEST6()
'スタイルを削除
ActiveSheet.ListObjects(1).TableStyle = ""
'範囲に変換
ActiveSheet.ListObjects(1).Unlist
End Sub
テーブルを用意しておきます。
これで、テーブルのスタイルを削除して、範囲に変換できます。
テーブルのスタイルを削除して、範囲に変換できました。
この記事では、テーブルを作成する方法、範囲に変換する方法、スタイルの設定方法について、ご紹介しました。
テーブルを作成するには、「.ListObjects.Add」を使います。
範囲に変換したい場合は、「.ListObjects.UnList」です。
スタイルを設定するしたい場合は、「.ListObjects.TableStyle」を使います。
VBAでテーブルの操作を自動化していきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する