VBA セルの操作　セル内文字の配置

水平位置と垂直位置

Sub test()

    Range("A2:C2").Value = 1000
    Range("A3:C5").Value = "文字配置設定"

   ’ セルA2:C2左揃えにする
    Range("A2:C2").HorizontalAlignment = xlLeft
   ’ セルA3:C3中央揃えにする
    Range("A3:C3").HorizontalAlignment = xlCenter
   ’ セルA4:C4右揃えにする
    Range("A4:C4").HorizontalAlignment = xlRight
   ’ セルA5:C5均等割り付けにする
    Range("A5:C5").HorizontalAlignment = xlDistributed

   ’ セルA2:A5中央揃えにする
    Range("A2:A5").VerticalAlignment = xlCenter
   ’ セルB2:B5上詰めにする
    Range("B2:B5").VerticalAlignment = xlTop
   ’ セルC2:C5下詰めにする
    Range("C2:C5").VerticalAlignment = xlBottom

End Sub

実行結果

HorizontalAlignmentの設定値

定数	値	水平（よこ）位置の設定
xlRight	-4152	右揃え（インデント）
xlLeft	-4131	左揃え（インデント）
xlCenter	-4108	中央揃え
xlJustify	-4130	両端揃え
xlDistributed	-4117	均等割り付け（インデント）
xlGeneral	1	標準（既定値）
xlFill	5	繰り返し
xlCenterAcrossSelection	7	選択範囲内での中央揃え

VerticalAlignmentの設定値

定数	値	垂直（たて）位置の設定
xlTop	-4160	上詰め
xlBottom	-4107	下詰め
xlJustify	-4130	両端揃え
xlDistributed	-4117	均等割り付け
xlCenter	-4108	中央揃え（既定値）

文字の配置

Sub test2()

’セルA2を折り返して全体表示にする

Range("A2").WrapText = True

’セルA3を縮小して全体表示にする
Range("A3").ShrinkToFit = True

’セルB3をインデント４にする

Range("B3").IndentLevel = 4

’セルC1:C4をインデント４にする
Range("C1:C4").MergeCells = True

’セルC1の文字方向を縦にする
Range("C1").Orientation = xlVertical

End Sub

プロパティ名	設定値の内容
WrapText	折り返して全体を表示するかどうかをTrue/Falseで表す
ShrinkToFit	縮小して全体を表示するかどうかをTrue/Falseで表す
Addlndent	横位置が均等割り付けの場合、前後スペースを入れるかどうかをTrue/Falseで表す
IndentLevel	横位置が左揃え又は右揃えの時、インデントする値を表す
Orientation	文字の方向を、角度を意味する数値で表します。 xlVerticalは縦書き、xlHorizontalは横書き　（-90～90、角度を任意で設定可能）
MergeCells	対象のセル範囲の結合するかどうかをTrue/Falseで表す

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る

VBA セルの操作 セル内文字の配置

VBA セルの操作　セル内文字の配置