1」なら「TableStyleDark1」といった文字列を、ListObjects.Addメソッドの引数・TableStyleNameや、ListObject.TableStyleプロパティに指定します。表示されるスタイルの見本と、「TableStyleLight1」「TableStyleMedium1」「TableStyleDark1」といったスタイルを指定するときに利用する文字列の対応関係がわかり辛く感じたので、新規ワークシートにTableStyleのサンプルを作成するマクロを作ってみました。[スポンサードリンク]TableStyleのサンプルを作成するExcelマクロ以下のマクロを実行すると、アクティブなブックの先頭にワークシートが挿入され、[ホーム]タブ-[スタイル]グループ-[テーブルとして書式設定]ボタンをクリックして表示される色見本と同じ配置でサンプルが作られます。行(Row)方向はカウンター変数rを1から9まで、列(Column)方向はカウンター変数cを1から7までという条件でFor~Nextループを回します。7ループの中ではまず、Workbook.TableStylesコレクションオブジェクトから、TableStyleオブジェクトを取得して、その名前を変数stylに格納しておきます。ActiveWorkbook.TableStyles(i).Name次に、4行1列のサンプルテーブルをListObjects.Addメソッドで作成します。styl次のテーブルスタイルを取得するための変数をインクリメントしておきます。2007・2010・2013では、テーブルのスタイルは60個存在しているので、60個のサンプルを作成し終わったら、For~Nextループを抜けるようにしておきます。ForFor~Nextループを抜けた後に、作成したサンプルの列幅を調整しています。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。