🎨
SetFontStyle
書式設定選択範囲のフォント名・サイズ・太字・色を一括設定します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 対象範囲を選択してから SetFontStyle を実行します
💻 VBAコード
' SetFontStyle
' -----------------
' Macro Name: SetFontStyle
' Description: 選択範囲のフォント名・サイズ・太字・色を一括設定します
' Parameters: なし
' Returns: なし
' Usage: 対象範囲を選択してから SetFontStyle を実行します
' -----------------
Sub SetFontStyle()
On Error GoTo ErrorHandler
Dim rng As Range
Dim fontName As String
Dim fontSize As String
If TypeName(Selection) <> "Range" Then
MsgBox "セル範囲を選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set rng = Selection
fontName = InputBox("フォント名を入力してください", "フォント名", "游ゴシック")
If fontName = "" Then Exit Sub
fontSize = InputBox("フォントサイズを入力してください", "フォントサイズ", "11")
If fontSize = "" Then Exit Sub
If Not IsNumeric(fontSize) Then
MsgBox "数値を入力してください", vbCritical, "エラー"
Exit Sub
End If
With rng.Font
.Name = fontName
.Size = CDbl(fontSize)
.Bold = (MsgBox("太字にしますか？", vbYesNo, "太字") = vbYes)
.Color = RGB(0, 0, 0)
End With
MsgBox "フォントスタイルを設定しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub