セルの文字の横位置・縦位置を指定する【HorizontalAlignment/VerticalAlignmentプロパティ】【ExcelVBA】

構文
セルの文字の横位置・縦位置を指定するコードサンプル
注意点
関連記事

構文

Object.HorizontalAlignment
Object.VerticalAlignment

HorizontalAlignment・・・・セルの文字位置(横)を指定
VerticalAlignment・・・・・セルの文字位置(縦)を指定

HorizontalAlignmentプロパティ/VerticalAlignmentプロパティでセルの文字位置を指定します。
指定する定数は以下を参照してください。

HorizontalAlignmentで指定する定数

定数	値	説明
xlLeft	-4131	左詰め
xlCenter	-4108	中央
xlRight	-4152	右詰め
xlJustify	-4130	両端揃え
xlDistributed	-4117	均等割り付け
xlCenterAcrossSelection	7	選択範囲内で中央
xlGeneral	1	標準設定(既定値)
xlFill	5	繰り返し

VerticalAlignmentで指定する定数

定数	値	説明
xlTop	-4160	上詰め
xlCenter	-4108	中央揃え(既定値)
xlBottom	-4107	下詰め
xlJustify	-4130	両端揃え
xlDistributed	-4117	均等割り付け

セルの文字の横位置・縦位置を指定するコードサンプル

Public Sub sample()

    '■セルA1を左詰め、上詰めにする
    Range("A1").HorizontalAlignment = xlLeft
    Range("A1").VerticalAlignment = xlTop

    '■セルB1～C1を中央揃えにする
    Range("B1:C1").HorizontalAlignment = xlCenter
    Range("B1:C1").VerticalAlignment = xlCenter

    '■セルD1～E5を右詰、下揃えにする(Withを使用して)
    With Range("D1:E5")
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
    End With
End Sub