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

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

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

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

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

・行の高さの単位とは

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

結論として、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

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

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

⬛︎まとめ

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

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

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

前回の記事はこちらから☟

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

今回は指定した行の高さ・列の幅を取得する方法、さらに活用する方法について紹介したいと思います。

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

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

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

・行の高さ

Sub 行の高さを変数Nに格納()
Dim N As Variant
N = Rows(ここに行番号を入力).RowHeight
End Sub

・列の幅

Sub 列の幅を変数Nに格納()
Dim N as Variant
N= Columns(ここに列番号を入力).Width
End Sub

■行の高さを取得する

・取得方法

まず行の高さを取得する方法を見てみましょう。
プログラムはこのようになります。

変数・出力先=Rows(取得したい行番号).RowHeight

RowHeight はHeight でも構いません。

では見本で変数Nに3行目の高さを格納してみましょう。

Sub 行の3行目の高さを変数Nに格納()

Dim N As Variant

N = Rows(3).RowHeight

End Sub

実行した結果はこちらです。

変数Nに「13.2」が格納されていますね。
実際に行の高さを確認すると「13.2」なので機能している事がわかります。

・活用方法

では先程取得した行の高さを活用してみましょう。

今回は見本として3行目の高さを4から6行目にも反映させてみたいと思います。

ではプログラムです。

Sub 行の3行目の高さを4から6行目に反映()

Dim N as Variant,A as Long

N= Rows(3).RowHeight

For A＝4 to 6 step 1
Rows(A).RowHeight=N
Next A

End Sub

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

狙い通り3行目の高さを4から6行目に反映させる事ができました。

・複数行の行の高さを取得する

今度は複数行の行の高さの取得方法を見ていきましょう。
これまではRowHeightを使用して行の選択をしてきましたが、RowHeightは1行のみしか対応出来ないので「Height」を使用します。

使用方法としては
変数・出力先=Rows(“先頭行:最終行”).Height
のように使用します。

では例をみていきましょう。

今回は3行目から6行目までの行の高さをまとめて取得してみたいと思います。

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

Sub 行の3行目から6行目までの高さを変数Nに格納()

Dim N As Variant

N = Rows(“3:6”).Height

End Sub

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

行数の高さはすべて13.2にしています。
3から6行目の行の高さの和は「52.8」なので問題なく機能していますね。

■列の幅を取得する

・取得方法

次に列の幅を取得する方法を見てみましょう。
プログラムはこのようになります。

変数・出力先=Columns(取得したい行番号). ColumnWidthまたはWidth

ColumnWidthとWidthを扱う上での注意点は下記の通りです。

ColumnWidthは幅の設定する際の数値に用いられる単位で半角文字1文字を「1」に置き換えた数値ですが
Widthは行の高さでも用いられる「ポイント」と呼ばれる単位なので
Widthで取得した値を別の列に反映させても列の幅は異なってしまいます

では見本で変数NにE列目の高さを格納してみましょう。

Sub E列目の幅を変数Nに格納()

Dim N as Variant

N= Columns(5).Width

End Sub

実行した結果はこちらです。

変数Nに「8.11」が格納されていますね。
実際に列の幅を確認すると「8.11」なので機能している事がわかります。

・活用方法

では先程取得した列の幅を活用してみましょう。

今回は見本としてB列目の幅をDからF列目にも反映させてみたいと思います。

ではプログラムです。

Sub B列の幅をDからF列目に反映()

Dim N as Variant,A as Long

N= Columns(2).ColumnWidth

For A＝4 to 6 step 1
Columns(A).ColumnWidth=N
Next A

End Sub

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

狙い通りB列目の幅をDからF列目に反映させる事ができました。

・複数列の列の幅を取得する

では今度に複数列の列の幅の取得方法を見ていきましょう。
これまではColumnWidthを使用して列の選択をしてきましたが、ColumnWidthは1行のみしか対応出来ないので「Width」を使用します。

ここで再度、「ColumnsWidth」と「Width」の違いを見てみましょう。

ColumnsWidth：既定フォントの文字数。列の幅を決める際はこちらの数値となる
Width：行の高さと同じ「ポイント」と呼ばれる単位

では実行してみましょう。

使用方法としては
変数・出力先= Columns(“先頭列の英字:最終列の英字”). Width
のように使用します。

では例をみていきましょう。

今回はC列目からE列目までの列の幅をまとめて取得してみたいと思います。

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

Sub C列目からE列目までの幅を変数Nに格納()

Dim N as Variant

N= Columns(“C:E”). Width

End Sub

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

CからE行目の列の幅の和は「144」ポイントという事がわかりました。

⬛︎応用について

これまでは行の高さ・列の幅の取得から活用まで見てきました。
そこで行の高さと列の幅の単位の違いもわかりましたね。

この違いで、例えば正方形のセルを作るにはひと工夫必要になります。

より詳しい違いや長さを揃えるためにはといった内容で別の記事にまとめてますので参考にしてみてください。

記事はこちらから☟

行の高さと列の幅の数値が異なる理由！単位の説明や長さを揃えて正方形にする方法など ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

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

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

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

■まとめ

いかがだったでしょうか。
行の高さ・列の幅を取得して他の行・列にも反映させたりなど様々な事ができますね。

ぜひ活用してみてください。

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

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

文字が長く隠れてしまったら…列の幅・行の高さを手動/数値で任意の幅/高さに変更・または自動調整する ► 独学エクセル塾 (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を使用して自動で行えるのでぜひ活用してみてください。

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

セルの幅より文字数が多くて文字が隠れる際には使える機能です。

調整方法も任意の位置・数値で調整できたり、自動で調整することも可能です。
今回は様々な調整方法をまとめてますので是非参考にしてみてください。

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

■手動で幅・高さを調整する

まずは手動でマウスを動かして調整する方法について説明します。
この方法は幅・高さをどれくらいにするか確認しながら調整したい時に便利です。

列の幅・行の高さを見ながら調整できるのでとても簡単です。

では下図の見本を例に進めていきましょう。

「B2」に文字が入力されていますが文字数が多く、隠れて見えにくいですよね。
今回は調整して、枠の中に納めていきましょう。

・列の幅を調整

では列の幅からです。
今回調整するのは「B2」なので列は「B」になります。

ではBとＣの列の表示の間にカーソルを合わせみてください。
すると下図のような記号に変わると思います。

そのままクリックしたまま左右に動かしてみてください。
そして任意の位置で離すと、その位置で固定することができます。

・行の高さを調整

今度は列の高さを調整してみましょう。
調整方法は列の幅の方法とほとんど変わりません。

先ほど同様、下図の見本を調整していきます。

今回は「B2」なので「2」行目を調整します。
では「２行目」と「３行目」の間にカーソルを合わせみてください。

列の時と同じ記号が現れましたね。
この状態でクリックを押したまま上下にマウスを移動させてみてください。
そして任意の位置で離すと、その位置で固定することができます。

これにより、隠れていた文字の全体を表示することができました。

・複数の行と列を同時に手動で調整する

これまで説明してきた手動で調整する方法ですが、行と列ともに複数でも調整可能です。
では下図をご覧ください。

３列まとめて選択しています。
この状態で手動で調整するとこのようになります。

選択した３行すべての幅が変更されました。
この方法は行でも可能になっています。

■数値を入力して幅・高さを調整する

次に数値を入力して任意の幅・高さに調整する方法について説明します。
この方法は全体の列の幅・行の高さが決まっている状態で

数値で幅・高さを割り振る際に便利です。

印刷範囲に収める際にも便利ですね。

・列の幅を調整

では列の幅を調整していきましょう。
先ほどの見本を元に説明していきたいと思います。

今回は「B2」を調整するので「Ｂ」にカーソルを合わせます。
そして右クリックをおすと「列の幅」という項目があるのでそちらを押してみましょう。

すると列の幅の数値を入力できるようになります。

すでに数値が入っていますが、現在の列の幅が「9.22」という意味を表しています。
では見本で、倍の「18.44」を入力して「OK」を押してみましょう。

するとこのようになります。

列の幅を２倍にすることができました。

・行の高さを調整

今度は列の高さを調整していきます。
同じく「B2」を調整するので「２行目」にカーソルを合わせます。

そして右クリックを押すと「行の高さ」という項目があると思います。

「行の高さ」を選択すると列の幅と同じく数値を打ち込めるようになりました。

すでに入っている数値は「15」なので現在の行の高さは「15」ということがわかります。
では見本で、倍の「30」を入力して「OK」を押してみましょう。

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

２列目の行の高さが２倍になりました。

・複数の行と列を同時に数値を入力して調整する

手動で複数の行と列を調整できたように、数値を入力する方法でも複数の調整は可能です。

１つポイントとして見本では、変更前の数値が表示されていましたが、
列の幅・行の高さが異なるものを複数選択すると表示は空白になります。

例えはA列の幅が「15」、B列の幅が「15」の場合、A・B列を選択して
列の幅を選択すると変更前の「15」が表示されますが
A列の幅が「15」、B列の幅が「20」の場合、A・B列を選択して
列の幅を選択しても列の幅は「空白」になっています。

しかし機能上問題はなく、

変更後の数値を入力すると、選択している行・列は入力した数値に変化してくれます。

■入力されてある文字・数値に合わせて自動で幅・高さを調整

最後に、セルに入力されている文字・数値に合わせて

自動で列の幅・行の高さを調整する方法について説明します。

この方法は１番便利で、印刷の際に文字が切れたりする際には

うってつけの機能になっています。

・列の幅を調整

これまで通り先ほどの見本を元に進めていきましょう。

調整するセルは「B2」ですので対象は「B列」になります。

ではBとＣの列の表示の間にカーソルを合わせみてください。
すると下図のような記号に変わると思います。

この状態でダブルクリックをしてみましょう。
するとこのようになります。

文字の量に合わせて列の幅が自動で変わってくれました。
もし変わらない場合は、一度幅を文字の幅より手動で大きく広げてから行ってみてください。

自動で変わった列の幅が印刷の際などに文字が切れない最小の数値になります。

・行の高さを調整

では行の高さも変えてみましょう。
こちらも作業方法は同じです。

変更したいセルは「B2」なので「２行目」が対象になります。
では「２行目」と「３行目」の間にカーソルを合わせみてください。

そしてダブルクリックを押せば自動で列の高さを調整してくれます。
結果はこのようになります。

・複数の行と列を自動で調整する

こちらの方法も複数の行・列で行うことができ、
さらにそれぞれの行・列に合わせて調整してくれます。

下図をご覧ください。

入力されてある数値の桁は様々で

隙間が大きいものや、数値がはみ出しているものもあります。

ではカーソルを合わせてダブルクリックを押してみましょう。

するとこのようになります。

それぞれの列に合わせて自動で複数列調整してくれました。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

列の幅または行の高さを変更Excel (microsoft.com)

■まとめ

いかがだったでしょうか。
列の幅や行の高さの調整は資料の見やすさや、入力の容易さに直結してきます。

様々な調整方法を屈指して場面にあった対応をしてみてください。

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