🎨
ApplyTableStyle
書式設定A1:D10のデータをExcelテーブルに変換し、TableStyleMedium2スタイルを適用します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： アクティブシートのA1:D10にデータを用意してマクロを実行。データがテーブル形式（TableStyleMedium2）に変換されます。
💻 VBAコード
Sub ApplyTableStyle()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects.Add(xlSrcRange, ws.Range("A1:D10"), , xlYes)
tbl.TableStyle = "TableStyleMedium2"
End Sub