Excel VBA（マクロ）で行の高さ・列幅を取得・変更する方法/RowHeight、RowWidth他の使い方

car IT

VBAで行の高さや列の幅を取得・変更する方法です。前提となる行・列の取得についてはRows、Columnsの記事で解説しています。

スポンサーリンク

行の高さを取得

行の高さを取得
Rows（またはRange）.Height
Rows（またはRange）.RowHeight
※取得される値はポイント単位
rows height
まずは行の高さの取得ですが、行かセルを指定してHeightプロパティかRowHeightプロパティを付ければ取得できます。
たとえばMsgBox Rows(1).Heightとすることで、一行目の高さを取得して表示できます。
rows height2
MsgBox Rows(1).RowHeightとしても同様に行の高さを取得できます。
rows height3
Range("A1").HeightまたはRange("A1").RowHeightでもオッケイです。

HeightとRowHeightは、単一行の高さを取得であればどっち使っても同じ結果になります。

HeightとRowHeightのちがい

①Heightは読み取り専用ですが、RowHeightは書き込みにも使えます（後述）。
②Heightは範囲の高さをまとめて取得することができます。
（RowHeightで複数行の高さを取得すると、全て同じ高さの場合一行分の高さを返し、行によって高さが違う場合Nullを返す）

範囲行の高さの取得

excel vba height1
範囲の高さを取得するには、Rows("1:3").Heightのようにして範囲行を指定します。
Range("A1:A3").Heightでも同じ結果になります。
excel vba height2

。

横幅は関係ないので、Range("A1:A3").HeightでもRange("A1:C3").Heightでも結果は同じです。
excel vba height3
高さが範囲内で不均一でも取得できます。

列幅を取得

列幅を取得
Columns（またはRange）.ColumnWidth
※取得される値は文字数単位

Columns（またはRange）.Width
※取得される値はポイント単位

vba column width1
列幅も同様に、一列目ならColumns(1).ColumnWidthで取得できます。
vba column width3
Range("A1").ColumnWidthでも同じ意味になります。この8.38は標準フォントの1文字換算で何文字分かを意味し、通常操作で幅を規定する場合もこの単位が使用されます。
vba column width4
Columns(1).WidthもしくはRange("A1").Widthの場合、ポイント単位で列幅を取得できます。なお、Widthも読み取り専用のプロパティです。

WidthとColumnWidthのちがい

繰り返しになりますが、まとめるとこうなります。
①Widthは読み取り専用ですが、ColumnWidthは書き込みにも使えます（後述）。
②Widthは範囲の幅をまとめて取得することができます。
（ColumnWidthで範囲の列幅を取得すると、全て同じ列幅の場合一列分の幅を返し、列によって幅が違う場合Nullを返す）
③Widthではポイント単位、ColumnWidthでは標準フォントの文字数単位で幅が取得されます。

範囲列の幅の取得

columnswidth vba 1
範囲列の幅を取得するには、Columns(“A:C”).Widthのようにするか、
columnswidth vba 2
またはRange(“A1:C1”).WidthのようにRangeから指定します。単位はポイント単位となります。
スポンサーリンク

行の高さの変更

vba 行の高さ 変更1
行の高さを変更するには、Rows(1).RowHeight = 20のようにして、取得したプロパティに値を代入します。単位はポイントです。
vba 行の高さ 変更2
実行結果です。Range("A1").RowHeight = 20でも同じ結果になります。
vba 行の高さ 変更3
Heightは読み取り専用のプロパティなので使えません。

行の高さをまとめて変更

rowheight columnwidth1
範囲の行の高さを変更する場合は、Rows("1:3").RowHeight = 30のように書くか、
rowheight columnwidth2
またはRange("A1:C3").RowHeight = 25のようにしても可能です。

標準の高さにする

rowheight columnwidth7
行を標準の高さにしたい場合は、UseStandardHeightプロパティをTrueにします。
rowheight columnwidth8
Rows、RangeどっちでもOKで、範囲指定も可能です（Range("A1:C3").UseStandardHeight = True）。

行数に合わせて自動調整

autofit1
Rowsに対してAutofitメソッドをくっつけることで、入力された行数に合わせて行の高さを自動調整することができます（Rows("1:3").AutoFit）。

列幅の変更

columnwidth1
列幅も行の高さ同様に、Columns(1).ColumnWidth = 20などで変更可能です。
columnwidth2
実行結果です。ポイント単位ではなく、文字数単位で幅は指定されます。
Range("A1").ColumnWidth = 20でも同じ結果になります。
columnwidth3
Widthは読み取り専用のプロパティなので使えません。

列幅をまとめて変更

rowheight columnwidth3
列幅をまとめて変更する場合、Columnsの後に列番号をアルファベットでつけてColumns("A:C").ColumnWidth = 20のようにするか、
rowheight columnwidth4
またはRange("A1:C3").ColumnWidth = 25のようにしてもOKです。

標準の幅にする

rowheight columnwidth5
列幅を標準の幅にしたい場合は、UseStandardWidthプロパティをTrueにします。
rowheight columnwidth6
Columns、RangeどっちでもOKで、範囲指定も可能です（Range("A1:C3").UseStandardWidth = True）。

文字数に合わせて自動調整

autofit2
Columnsに対してAutofitメソッドをくっつけることで、入力された文字数に合わせて列幅を自動調整することができます（columns("A:C").AutoFit）。

他のシートの行の高さ・列幅を取得/変更

' vba
' 一番左のシートの1列目の幅を表示
MsgBox Worksheets(1).Columns(1).Width
他のシートに対して行の高さ・列幅関連の操作を行いたい場合、頭にWorksheetsないしはSheetsを付けて、シートを指定してやればOKです。
' vba
' Sheet1の1行目の高さを20ポイントに変更
Sheets("Sheet1").Rows(1).RowHeight = 20
シートはインデクス番号でも指定できます。

関連記事

Excel（エクセル）で列の幅・行の高さ、単位を変更する方法
Excelの列幅・行の高さを変更・指定する方法です。
sunagitsune.com
2019.04.20
通常操作で列幅・行の高さを変更する方法です。単位の変更方法についても言及しています。
Excel VBA（マクロ）で列幅と行の高さを同じくする、セルを正方形・方眼紙・升目状にする方法
VBAを使ってExcelの横/縦を同じ幅にする方法です。
sunagitsune.com
2022.01.29
列幅と行の高さを一致させ、範囲やシートを方眼紙状にする方法です。
Excel（エクセル）：行、列
Excelの行、列関係操作、関数、VBAです。他のまとめとかぶる部分が多い場合はリンク貼ります。 行・列の選択 行・列の選択方法です。 テーブル内の行・列一括選択方法です。 VBA（マクロ）で列・...
sunagitsune.com
2021.03.29
関数・演算子・メソッド・プロパティ名から探すExcel/VBA（マクロ）使い方・組み合わせ方まとめ
こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。
sunagitsune.com
2018.12.30
やりたいことから方法を探すエクセル（Excel）操作・関数・VBA（マクロ）逆引きまとめ
逆引き（やりたいことから探す）Excel記事まとめ
sunagitsune.com
2018.11.04
スポンサーリンク

コメント