🎨
MergeCellsFormatting
書式設定選択範囲のセルを結合し、中央揃えで書式設定します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 結合したいセル範囲を選択してから MergeCellsFormatting を実行します
💻 VBAコード
' MergeCellsFormatting
' -----------------
' Macro Name: MergeCellsFormatting
' Description: 選択範囲のセルを結合し、中央揃えで書式設定します
' Parameters: なし
' Returns: なし
' Usage: 結合したいセル範囲を選択してから MergeCellsFormatting を実行します
' -----------------
Sub MergeCellsFormatting()
On Error GoTo ErrorHandler
Dim rng As Range
If TypeName(Selection) <> "Range" Then
MsgBox "セル範囲を選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set rng = Selection
If rng.Cells.Count < 2 Then
MsgBox "2つ以上のセルを選択してください", vbCritical, "エラー"
Exit Sub
End If
Application.DisplayAlerts = False
With rng
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Application.DisplayAlerts = True
MsgBox "セルを結合しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
Application.DisplayAlerts = True
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub