[ExcelVBA] セルの書式設定[配置]

本記事はエクセル２０１９で動作確認を行っています。

困ってます

エクセルの書式設定で配置はVBAであつかえますか？

具体的なコードを教えてほしい。

本記事ではこのような疑問にお答えします。

サイト運営者であるロンピー（@ronpeee0809)はExcelVBAを使用して10年以上会社部内の業務改善を行っています。

これからVBAを学ぶ方がスムーズに学習を進められる手助けをしていきます。

ロンピー

[ExcelVBA] セルの書式設定[配置の操作方法]

エクセルにはセルの書式設定で配置の操作が可能です。

１つずつVBAコードの記述方法を見ていきます。

文字の配置

文字の配置には横位置と縦位置の設定ができます。

横位置

Sub 文字の横位置()

 Range("A1").HorizontalAlignment = xlGeneral '標準
 Range("A2").HorizontalAlignment = xlLeft '左詰め(インデント)
 Range("A3").HorizontalAlignment = xlCenter '中央揃え
 Range("A4").HorizontalAlignment = xlRight '右詰め(インデント)
 Range("A5").HorizontalAlignment = xlFill '繰り返し
 Range("A6").HorizontalAlignment = xlJustify '両端揃え
 Range("A7").HorizontalAlignment = xlCenterAcrossSelection '選択範囲内で中央
 Range("A8").HorizontalAlignment = xlDistributed '均等割り付け

End Sub

（実行結果）

縦位置

Sub 文字の縦位置()

 Range("A1").VerticalAlignment = xlTop '上詰め
 Range("A2").VerticalAlignment = xlCenter '中央揃え
 Range("A3").VerticalAlignment = xlBottom '下詰め
 Range("A4").VerticalAlignment = xlJustify '両端揃え
 Range("A5").VerticalAlignment = xlDistributed '均等割り付け

End Sub

（実行結果）

文字の制御

文字の制御には３種類の設定ができます

折り返して全体を表示する

Trueを設定した場合、文字を折り返します。

Falseを設定した場合、文字を折り返しません。

縮小して全体を表示する

Trueを設定した場合、 縮小します。

False を設定した場合、縮小しません。

セルの結合と解除

(例)Range("A1:C4")を結合させる。

→Range("A1:C4").Merge

引数にTrueを使用すれば、行ごとの結合もできます。

(例)Range("A1:C4")を行ごとに結合させる。

→Range("A1:C4").Merge  True

セル範囲は結合されている１つのセル番地を指定すれば、解除可能。

(例)Range("A1:C4")が結合されている場合

→Range("A1").UnMerge

方向

セルデータの表示を縦にしたり、横にしたり、角度を設定したりできます。

まとめ

今回はセルデータの配置に関するVBA操作を見てきました。

エクセルのセルの書式設定には他にも、

もVBAで操作可能ですので、あわせて知っておきましょう。

最後まで目を通していただきありがとうございます。