ExcelVBA「セル/文字の配置/横位置を選択範囲内で中央にする」

エクセルVBAの便利マクロ「セル/文字の配置/横位置を選択範囲内で中央にする」をシェアします。

参考になれば幸いです。

機能紹介
マクロコード紹介
まとめ

機能紹介

対象のセルを選択した上でマクロを実行すると、セル/文字の配置/横位置が、「選択範囲内で中央」になります。

マクロコード紹介

コードは以下の通りです。


Sub 選択範囲中央()
    
On Error GoTo ErrChk
    
    '*** 初期設定
    nErr = 0
    
    '*** 書式の設定
    Select Case Selection.HorizontalAlignment
    
    Case xlCenterAcrossSelection
        Selection.HorizontalAlignment = xlGeneral
        
    Case xlGeneral
        Selection.HorizontalAlignment = xlCenterAcrossSelection
        
    Case Else
        Selection.HorizontalAlignment = xlGeneral
        
    End Select
    
    '*** 終了処理
    Exit Sub
    
ErrChk:
    '*** ユーザーエラーコード
    Select Case nErr
    Case 0                  'エラーなし
            sMsg = sMsg
    Case Else
        sMsg = "予期せぬエラー nErr = " & nErr
    End Select
    
    '*** ＶＢＡエラーコード
    Select Case Err
    Case 0                  'エラーなし
            sMsg = sMsg
    Case Else
        sMsg = "予期せぬエラー Err = " & Err
    End Select
    
    MsgBox sMsg, vbOKOnly + vbCritical
    End
    
End Sub