行の高さ・列の幅に同じ数値を打ち込んでも正方形にはなりません。

その仕組みについても説明しますのでぜひ参考にしてみてください。

それでは見ていきましょう。

⬛︎行の高さと列の幅の単位について

まずは単位の説明をしたいと思います。

・行の高さの単位とは

行の高さの単位は「ポイント」になります。
そして高さを指定する際もポイントが基本の単位のなっています。
ではポイントとは一体どのくらいの長さなのでしょうか。

結論として、1ポイント＝約0.3528mmです。
内訳としては1ポイントは1／72インチであり、1インチは25.4mmです。

・列の幅の単位とは

今度は列の幅の単位を見てみましょう。

列の幅の単位を表すのであれば「文字数」になります。
さらに詳しく説明すると「設定した規定フォントの半角文字数」となります。

一例で説明すると列の幅が「5」の場合は設定したフォントの半角の「5文字分」となります。

では既定フォントとは何か説明しましょう。
既定フォントは「ファイル」から「オプション」を選択し、「Excelのオプション」というメニューにあります。

新しいブック作成時という項目に「次を既定フォントとして使用」とありますが、ここで選択しているフォントが既定フォントになります。

・行の高さと列の幅の相違について

では単位のまとめです。

行の高さの単位は「ポイント」
列の幅の単位は「既定フォントの半角文字数」

つまり単位が違うので同じ数値を入力しても正方形にならないことがわかりました。

⬛︎行の高さと列の幅を揃えるには

では行の高さと列の幅を揃えて正方形をつくってみましょう。

方法としては2通りあります。

①手動で変更する方法
②VBAを用いて変更する方法

①は初心者の方でも変更できますが、②はVBAの知識が必要になります。

VBAを身につけたい方は本サイトでもまとめてますので参考にしてみてください。

・①手動で変更する方法

まず手動で変更する方法です。
初心者の方でもすぐにできる方法になってます。

では行の高さ・列の幅を調整する際に出てくる数値を見てみましょう。

それぞれ数値の隣に「ピクセル」という単位がありますね。
ピクセルとは画面に表示する際などの点のことを意味します。
こちらは列と行共に同じ尺度を持っています。

つまりピクセルを揃えれば行の高さと列の幅を同じ長さにすることができます。

では手動で2行目の列を100ピクセルに合わせてみましょう。

結果はこのようになります。

狙い通り正方形を作成することができました。

・②VBAを用いて変更する方法

こちらはVBAで行の高さ・列の幅を変更できる知識が必要になってきます。

詳細についてはこちらから☟

【マクロVBA㉜】行の高さ・列の幅を指定の数字・ポイント・センチに変更、自動調整する方法 ► 独学エクセル塾 (dokugakuexcel.com)

・ピクセルで行の高さと列の幅を揃える

まず、ピクセルでの調整方法を見ていきましょう。

行の高さの単位である「ポイント」をピクセルに換算すると下記の式になります。
500ピクセル＝300➡1ピクセル=0.6ポイント

対する列の幅をピクセルに直すとこのようになります。
500ピクセル＝54.78（文字数）➡1ピクセル=0.10956（文字数）

ちなみに500ピクセルで求める必要はありませんが、数値が大きいほど誤差は
少なくなります。是非ご自身のPCで確認してみてください。

ではVBAの式を見てみましょう。
今回は見本で5行目と5列目を50ピクセルにします。

Sub ピクセルを用いてセルを正方形にする()

Dim Pixel As Variant

Pixel = 50 ‘変換したいピクセル量を入力

Rows(5).RowHeight = Pixel * 0.6
Columns(5).ColumnWidth = Pixel * 0.10956

End Sub

実行した結果はこのようになります。

50ピクセルの正方形が出来ました。

・センチで行の高さと列の幅を揃える

行の高さの変更は

Rows(高さを変更したい行数).RowHeight=変更したい高さの数値

列の幅を変更したい場合は

Columns(幅を変更したい列数).ColumnWid th=変更したい列の幅の数値

となります。

しかしこのままでは行の高さは「ポイント」、列の幅は「文字数」と基準が違ってきます。

なので変更したい高さ・幅の数値の項目に
「Application.CentimetersToPoints＝（変更したいセンチの数値）」を当てはめます。

さらに列に関しては「文字数」に「ポイント」を割って掛けてあげないといけないので「Application.CentimetersToPoints＝（変更したいセンチの数値)* Columns(幅を変更したい列数).ColumnWidth/Columns(幅を変更したい列数).Width」となります。

これにより単位はセンチに統一され同じ数値を入力すると正方形になります。

なので結論として
行の高さは「Rows(高さを変更したい行数).RowHeight= Application.CentimetersToPoints（変更したいセンチの数値)」
列の幅は「Columns(幅を変更したい列数).ColumnWidth= Application.CentimetersToPoints（変更したいセンチの数値)* Columns(幅を変更したい列数).ColumnWidth/Columns(幅を変更したい列数).Width」となります。

では実際に2行目の3(C)列目を2センチの正方形にしてみましょう。

プログラムはこのようになります。

Sub 行の2行目と列の3列目を2センチの正方形に()

Rows(2).RowHeight = Application.CentimetersToPoints(2)

Columns(3).ColumnWidth = Application.CentimetersToPoints(2) * Columns(3).ColumnWidth / Columns(3).Width

End Sub

実行した結果はこのようになります。

無事正方形にできましたね。

⬛︎まとめ

いかがだったでしょうか。
行の高さと列の幅の単位が異なる事は
調べないとわからない事です。

さらにそれが原因で長さを揃えれないとは少し不便ですよね。

なので本記事を参考に一歩踏み込んだ調整方法を行ってみてください。
それでは次回の記事でお会いしましょう。

通常の操作での行の高さ・列の幅を変更についてはこちらから☟

文字が長く隠れてしまったら…列の幅・行の高さを手動/数値で任意の幅/高さに変更・または自動調整する ► 独学エクセル塾 (dokugakuexcel.com)

行・列の挿入についてはこちらから☟

【マクロVBA知識 15】行の挿入・削除/列の挿入・削除を様々なパターン・方向で行う ► 独学エクセル塾 (dokugakuexcel.com)

そこで今回はVBAを使用して行の高さ・列の幅を変更する方法を紹介したいと思います。

ポイント・センチ・自動調整・複数行／列それぞれまとてますのでぜひ参考にしてみてください。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム

赤文字と青文字をカスタムして使用してください

・行の高さ

Sub 行の高さを変更()
Rows(行番号).RowHeight=変更したい高さの数値
End sub

・列の幅

Sub 列の幅を変更()
Columns(列番号).ColumnWidth =変更したい列の幅の数値
End Sub

■行の高さを変更する

まず、行の高さを変更する方法から紹介したいと思います。

・指定した行の高さを変更する(ポイント)

まずポイントから説明するとエクセルで使用される『1ポイントは0.3528mm』です。
内訳として1ポイントは1／72インチであり
1インチは25.4mmです。
では実際に変更してみましょう。

行の高さを変更するプログラムは下記の通りです。

Rows(高さを変更したい行数).RowHeight=変更したい高さの数値

とてもシンプルですねRowの後に高さを変更したい行番号を入力し、RowHeightの=の後の数値を変更したい高さの数値に変更すれば行の高さを任意の数値に変更する事ができます。

では見本のプログラムを見てみましょう。
今回は3行目の高さを20にしたいと思います。

Sub 行の高さを変更()

Rows(3).RowHeight=20

End sub

実行前と実行後の結果はこちらです。

狙い通り、3行目の高さを20にする事が出来ました。

・指定した行の高さを変更する(センチ)

先程はポイントを用いた変更方法を紹介しましたが
今度はセンチ（㎝）での行の高さの変更方法を紹介したいと思います。

今度は3行目の高さを5cmにしたいと思います。

先程のプログラムと比較すると『Rows(3).RowHeight=』
までは同じなのですがこの後に
『Application.CentimetersToPoints(センチで変更したい行の高さの数値)』
を追加します。
英語の通りですが、これまでのポイントで変更していた数値をセンチに変える効果を持っています。

ではプログラムを作成してみましょう。

Sub 行の高さをセンチで変更()

Rows(3).RowHeight= Application.CentimetersToPoints(5)

End sub

実行前と実行後の結果はこちらです。

狙い通り、3行目の高さを5センチにする事が出来ました。
1ポイントは0.3528mmなので5センチは141.8ポイントになります。

・行の高さを自動調整する

今度は自動調整を見てみましょう。
こちらのプログラムはシンプルです、

Row(自動調整したい行番号).AutoFit

自動調整したい番号を入力してAutoFitでセル高さを自動で変更してくれます。
では実際にプログラムを作成してみましょう。

今回は見本で3行目の高さを自動調整したいと思います。

プログラムはこのようになります。

Sub 行の高さを自動で変更()

Rows(3).AutoFit

End sub

実行した結果はこのようになります。

これでVBAで自動調整が出来るようになりました。

・複数行まとめて調整する

これまでは1つの行のみ調整してきましたが
複数行を1度に変更することも可能です。

下記に見本をのせておきます。

6行目から12行目までを14ポイントにする

Rows(“6:12”).RowHeight=14

7行目から10行目を12センチにする

Rows(“7:12”).RowHeight= Application.CentimetersToPoints(12)

2行目から8行目まで自動調整する

Rows(“2:8”).AutoFit

■列の幅を変更する

では次に列の幅を変更する方法を紹介したいと思います。

・指定した列の幅に変更する(ポイント)

まずはプログラムから見てみましょう。
列の幅を変更するプログラムは下記の通りです。

Columns(幅を変更したい列数).ColumnWides=変更したい列の幅の数値

行の高さがRowだったのに対し列の幅はColumnsになります。Columns の後に変更したい列数を入力し、
ColumnWidthの=の後の数値を変更したい幅の数値に変更すれば列の幅を任意の数値に変更する事ができます。

では見本のプログラムを見てみましょう。
今回は2行目の幅を5にしたいと思います。

Sub 列の幅を変更()

Columns(2).ColumnWidth = 5

End Sub

実行前と実行後の結果はこちらです。

狙い通り、2行目の高さを5にする事が出来ました。

・指定した列の幅を変更する(センチ)

行の高さ同様、列の幅をセンチ（㎝）で変更する方法も紹介したいと思います。

今度は4列目の幅を2センチにしたいと思います。

こちらも『Columns(幅を変更したい列数).ColumnWidth=』
までは同じなのですがこの後に
『Application.CentimetersToPoints(センチで変更したい行の高さの数値)』
を追加します。

ではプログラムを作成してみましょう。

Sub 列の幅を変更()

Columns(4).ColumnWidth = Application.CentimetersToPoints(2)

End Sub

実行前と実行後の結果はこちらです。

ここで注意点として本来であれば2センチは「20/0.3528」で「56.689」となります。
※1ポイントは0.3528mmのため。
しかし列の幅は「56.67」になっています。
これは列の機能上、誤差が生まれる仕組みです。正確なセンチで幅を調整できないことを覚えておいてください。

・列の幅を自動調整する

今度は列の幅を自動調整してみましょう。
こちらもプログラムは行の高さの方法と大差ありません。

Columns(自動調整したい列番号).AutoFit

自動調整したい番号を入力してAutoFitでセルに入力した文字・数値に合わせて幅を変更してくれます。
では実際にプログラムを作成してみましょう。

今回は見本で2列目の高さを自動調整したいと思います。

プログラムはこのようになります。

Sub 列の幅を自動で変更()

Columns(2).AutoFit

End sub

実行した結果はこのようになります。

調整できていますね。

列の幅の調整は使用頻度も多いと思うので
ぜひ活用してみてください

・複数列まとめて調整する

これまでは1つの列のみ調整してきましたが
複数列を1度に変更することも可能です。

下記に見本をのせておきます。

6(F)列目から12(L)列目までを14ポイントにする

Columns(“F:L”).ColumnWidth = 14

7(G)列目から10(J)列目を12センチにする

Columns(“G:J”).ColumnWidth = Application.CentimetersToPoints(3)

2(B)列目から8(H)列目まで自動調整する

Columns(“B:H”).AutoFit

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Slicer.RowHeight プロパティ (Excel) | Microsoft Learn

Range.ColumnWidth プロパティ (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
行の調整や列の調整は文字が長くなれば必要な知識になってきます。

普段行っている行の高さと列の幅の調整がVBAを使用して自動で行えるのでぜひ活用してみてください。

それでは次回の記事でお会いしましょう。