ExcelVBAで「選択範囲内で中央」にする方法

ExcelVBAで「選択範囲内で中央」をコードで書く方法について、紹介します。

0. この記事のまとめ

選択セルの中で「選択範囲内で中央」をやる場合、

Selection.HorizontalAlignment = xlCenterAcrossSelection

このように、HorizontalAlignmentプロパティにxlCenterAcrossSelectionをセットすることで実現できます。

「選択範囲内で中央」とは?

「選択範囲内で中央」にすると、セルを結合していなくても、複数セルの間で中央に配置することができます。

  • 「選択範囲内で中央」設定前

  • 「選択範囲内で中央」設定後

HorizontalAlignmentプロパティ

HorizontalAlignmentは、Rangeオブジェクトのプロパティです。

これにxlCenterAcrossSelectionをセットすることで、「選択範囲内で中央」が実現できます。

公式ドキュメントはこちら↓

https://docs.microsoft.com/en-us/office/vba/api/Excel.Range.HorizontalAlignment

選択したセルで中央にするには、以下のコードになります。

Selection.HorizontalAlignment = xlCenterAcrossSelection

補足:元に戻す(左寄せ)にするには?

元に戻す(左寄せ)にするには、xlLeftをセットします。

Selection.HorizontalAlignment = xlLeft

補足2:1つのセルの中で中央にするには?

1つのセルの中で中央にするには、xlCenterをセットします。

Selection.HorizontalAlignment = xlCenter

補足3:セルを結合するには?

RangeオブジェクトのMergeCellsプロパティにTrueをセットします。

Selection.MergeCells = True

速攻でメモできる QuickNote リリースしました!

QuickNoteは動作が超軽量でサクサクかけるノートアプリです。一瞬の閃きを逃さずにノートを開き書き始めることができます。 アカウント登録も不要です。お試しあれ!

Excel操作をコマンドで! proBoarderExcel

Excelはマウスで操作するのが基本ですが、マウス操作に疲れてはいませんか? キーボードでExcel操作ができるようになるアプリです。オープンソースで無料です。

積み上げ! Daily Stack リリースしました!

Daily Stack は日々の積み上げを管理するToDoアプリです。過去の積み上げの振り返りだけでなく、ツイート機能もあります。 アカウント登録不要ですぐに使い始めることができます。

ExecNote.app リリースしました!

ExecNoteは、コードが実行できるMarkdownアプリケーションです。Markdownドキュメント内に記載したコードをクリックすると実行ができます。わざわざターミナルを 起動させる必要がありません!無料ですのでもしよければダウンロードをお願いします。

About Me

11年目のシステムエンジニアです。アプリで生活や仕事を改善したい🐱仕事効率化、自動化のアプリ開発が得意です、ご相談ください。 🚀エンタメ系アプリの開発も模索中🐬社内SEや個人アプリ開発者、システムエンジニアになりたい人と繋がりたい🐱