ExcelのVBAにてセルへのデータの入力、文字入力などを行っていると、文字数が多くて2行にまたがってしまうような時があります。
そのままでは上下の表示が切れてしまうので行の高さを調整したいということがあります。
ということで、今回は、VBAでの行の高さ調整をする方法について内容を書き残しておきます。
目次
1.行の高さ取得
まずはじめに、高さ調整の前に行の高さの取得はということになりますが、ある行の高さの取得は以下のようになります。
HeightまたはRowHeightを使って取得します。
h = Rows(1).Height
h = Rows(1).RowHeight
両方とも1行目の行の高さを取得しています。
もう1つですが、
h = Range("A1").RowHeight
こうすると、A1セルの行の高さを取得しています。
2.行の高さ調整
続いて、行の高さ調整です。
行の高さを設定する場合には、Heightは使えずにRowHeightを使います。
たとえば、1行目の高さを10に設定する場合は以下のようになります。
Rows(1).RowHeight = 10
もう1つ、複数行の高さを設定する場合にはということで、たとえば、1,2行目の高さを20に設定する場合には以下のようになります。
Range("1:2").RowHeight = 20 Range(Rows(1), Rows(2)).RowHeight = 20
どちらで書いても、1,2行目の高さが両方とも20になります。
3.行の高さの自動調整
最後に行の高さの自動調整です。
VBAから行の高さを自動調整する場合には、AutoFitを使います。
たとえば、1行目の高さを自動調整する場合には以下のように記載します。
Rows(1).AutoFit
同様に、複数行の設定として1,2行目の高さを自動調整する場合には以下のような記載になります。
Range("1:2").EntireRow.AutoFit
さらに、シート全体の行の高さを調整する場合には以下のように記載します。
Cells.EntireRow.AutoFit
AuoFitで調整した場合には、それ以降該当セルや行への入力などを行った場合も自動で調整されます。
関連記事:
【Excel VBA 文字列変換】大文字小文字変換方法、全角半角変換方法 - Django Girls and Boys 備忘録
【Excel VBA】文字列比較演算子「like」の使用方法 - Django Girls and Boys 備忘録
【Excel VBA】ファイル一覧やファイル有無確認に使われるDir()の使用方法 - Django Girls and Boys 備忘録
【Excel】プルダウンリストの設定方法 - Django Girls and Boys 備忘録
【Excel VBA】行の高さの取得、調整、自動調整をする方法 - Django Girls and Boys 備忘録
【Excel VBA】改行コード(CR、LF、CRLF)の使用方法 - Django Girls and Boys 備忘録
【Excel VBA】ソースコードの改行方法 - Django Girls and Boys 備忘録
【Excel】の「開発」タブを表示させる方法 - Django Girls and Boys 備忘録
【Excel】ボタンの表示文字を改行する方法 - Django Girls and Boys 備忘録
【Excel】プルダウンリスト 設定方法、元データ追加方法、元データ変更方法 - Django Girls and Boys 備忘録
【Excel VBA】結合セルのコピー方法について - Django Girls and Boys 備忘録
【Excel VBA】あるシートのセル範囲に変更があった時に処理を実行する方法 - Django Girls and Boys 備忘録
【Googleサーチコンソール Googleアナリティクスの登録方法】サイト作成後の分析、活用に欠かせない登録 - Django Girls and Boys 備忘録
【Excel 名前の定義】「名前"○○○"は既に存在します。この名前にする・・・」のメッセージ表示を解決する方法 - Django Girls and Boys 備忘録
【Excel マクロ(VBA) 行削除】条件を満たした行を削除する方法(For~Next文を使用) - Django Girls and Boys 備忘録
【Excel マクロ(VBA)】最大行番号、最大列番号を取得する方法 - Django Girls and Boys 備忘録
【ExcelマクロからのI.E.操作】I.E.のセキュリティに絡むエラー(オートメーションエラー)発生時の対応方法 - Django Girls and Boys 備忘録
【Python Excel】ExcelからのPython実行ファイル(アプリケーションファイル)起動方法 - Django Girls and Boys 備忘録
【Excel VBA】シート削除時などに確認メッセージを表示しない方法 - Django Girls and Boys 備忘録
【Excel】数式の計算方法について、計算方法の自動/手動変更方法 - Django Girls and Boys 備忘録