Home » Excel VBA Rangeオブジェクト » VBAを使って選択範囲内で中央を設定する

VBAを使って選択範囲内で中央を設定する

動作検証バージョン:Windows 11 Home + 64bit Excel バージョン 2407(ビルド17830.20016クイック実行)ベータチャネル

「vba 選択範囲内で中央」
といった検索キーワードでアクセスがありました。

[セルの書式設定]ダイアログボックス-[配置]タブの[文字の配置]-[横位置]に「選択範囲内で中央」があります。

これをVBAから設定するには、どのようなコードを書けばいいのかを調べていらしたのでしょう。

[スポンサードリンク]

選択範囲内で中央を設定するサンプルマクロ

以下のExcelマクロを実行すると、A1セルに文字列「Hello, World!」が入力され、A1:C1セルの中央に「Hello, World!」が表示されるようになります。

Sub 選択範囲内で中央を設定する()
 Range("A1").Value = "Hello, World!"
 Range("A1:C1").HorizontalAlignment = xlHAlignCenterAcrossSelection
End Sub

サンプルマクロで行っている処理

RangeオブジェクトのHorizontalAlignmentプロパティに、

XlHAlign列挙型に定義されている定数xlHAlignCenterAcrossSelectionを指定することで、

選択範囲内で中央が設定されます。

選択は不要

定数xlHAlignCenterAcrossSelectionに「Selection」という語句が入っていることから、選択しておかないと実行時エラーが発生するような気がしなくもありませんが、大丈夫です。選択は不要です。

選択は不要なのですから、定数名に「Selection」という語句を入れて欲しくなかったな、と私は感じます。

[スポンサードリンク]

Home » Excel VBA Rangeオブジェクト » VBAを使って選択範囲内で中央を設定する

「Excel VBA Rangeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.