Vba で行の高さを変更する方法 (例付き)

VBA を使用して Excel の行の高さを変更するには、次の方法を使用できます。

方法 1: 行の高さを変更する

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

この特定のマクロは、3 行目の高さを40に変更します。

注: Excel のデフォルトの行の高さは14.4です。

方法 2: 複数の行の高さを変更する

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

この特定のマクロは、各行の高さを 1 から 5 、そして40まで変更します。

方法 3: 複数の行の高さを自動的に調整する

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

この特定のマクロは、各行の最も高いテキストを表示するのに必要な高さになるように、各行の高さを 1 から 8 まで自動的に調整します。

次の例は、Excel の次のデータ セットでこれらの各メソッドを実際に使用する方法を示しています。

関連: VBA で列幅を変更する方法

例 1: 行の高さを変更する

次のマクロを作成して、3 行目の高さを 40 に変更できます。

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

このマクロを実行すると、次の出力が表示されます。

3 行目の高さだけが 40 に増加し、他のすべての行の高さは同じままであることに注意してください。

例 2: 複数の行の高さを変更する

次のマクロを作成して、各行の高さを 1 から 5、40 まで変更できます。

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

このマクロを実行すると、次の出力が表示されます。

最初の 5 行のそれぞれの高さが 40 に変更されている一方で、他のすべての行の高さは同じままであることに注意してください。

例 3: 複数の行の高さを自動的に調整する

次のマクロを作成して、最初の 8 行のそれぞれの高さを自動的に調整し、各行で最も高いテキストを表示するのに必要な高さにすることができます。

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

このマクロを実行すると、次の出力が表示されます。

各行の高さは、各行で最も高いテキストを表示するために必要な高さに自動的に調整されていることに注意してください。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 最後に使用された行を見つける方法
VBA: 書式付きの行を挿入する方法
VBA: 範囲内の行数をカウントする方法