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

Excelマクロ(VBA)

エクセル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
    
    '*** VBAエラーコード
    Select Case Err
    Case 0                  'エラーなし
            sMsg = sMsg
    Case Else
        sMsg = "予期せぬエラー Err = " & Err
    End Select
    
    MsgBox sMsg, vbOKOnly + vbCritical
    End
    
End Sub



まとめ

いかがでしたでしょうか。

参考になれば幸いです。

その他、エクセルマクロの便利ツールは以下記事を参照ください。

本稿で紹介したマクロのサポートやカスタマイズ、もしくは新規案件については、条件によって、有償にて対応受付しております。

以下、クラウドワークスないしココナラのアカウントよりご依頼いただければ幸いです。

FIRE太郎さん(その他)に依頼・外注する | 簡単ネット発注なら【クラウドワークス】
日本最大のクラウドソーシング「クラウドワークス」にご登録いただいているFIRE太郎さんのプロフィールです。その他のスキルを持つプロフェッショナルに1時間から仕事を気軽に発注!発注者は手数料無料。
FIRE太郎さん(会社員)のプロフィール | ココナラ
Excelマクロ(VBA)による自動化ツールの作成が得意です。|ブログ「FIRE(早期リタイア)研究所」運営中

コメント

タイトルとURLをコピーしました