🎨
RemoveTableStyle
書式設定アクティブシートのテーブルスタイルをすべて解除します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： RemoveTableStyle を実行すると、シート内のテーブルスタイルが削除されます
💻 VBAコード
' RemoveTableStyle
' -----------------
' Macro Name: RemoveTableStyle
' Description: アクティブシートのテーブルスタイルをすべて解除します
' Parameters: なし
' Returns: なし
' Usage: RemoveTableStyle を実行すると、シート内のテーブルスタイルが削除されます
' -----------------
Sub RemoveTableStyle()
On Error GoTo ErrorHandler
Dim ws As Worksheet
Dim tbl As ListObject
Set ws = ActiveSheet
If ws.ListObjects.Count = 0 Then
MsgBox "テーブルが見つかりません", vbInformation, "情報"
Exit Sub
End If
For Each tbl In ws.ListObjects
tbl.TableStyle = ""
Next tbl
MsgBox ws.ListObjects.Count & " 個のテーブルスタイルを解除しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub