🎨
SetCellStyle
書式設定選択範囲に指定したExcel組み込みスタイルを適用します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 対象範囲を選択してから SetCellStyle を実行し、スタイル名を入力します
💻 VBAコード
' SetCellStyle
' -----------------
' Macro Name: SetCellStyle
' Description: 選択範囲に指定したExcel組み込みスタイルを適用します
' Parameters: なし
' Returns: なし
' Usage: 対象範囲を選択してから SetCellStyle を実行し、スタイル名を入力します
' -----------------
Sub SetCellStyle()
On Error GoTo ErrorHandler
Dim rng As Range
Dim styleName As String
If TypeName(Selection) <> "Range" Then
MsgBox "セル範囲を選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set rng = Selection
styleName = InputBox("適用するスタイル名を入力してください" & vbCrLf & _
"例: Good / Bad / Neutral / Heading 1 / Title", "スタイル名", "Good")
If styleName = "" Then Exit Sub
On Error Resume Next
rng.Style = styleName
If Err.Number <> 0 Then
MsgBox "スタイル「" & styleName & "」が見つかりません", vbCritical, "エラー"
Exit Sub
End If
On Error GoTo ErrorHandler
MsgBox "スタイル「" & styleName & "」を適用しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub