VBAで条件によりフォントサイズ・行間を変更する

使用している行数が少なければ行の高さを太く・文字も大きく、使用行数が多ければ高さを狭く・文字も小さく同時に自動調整できると便利だと思いませんか？

必要になる行数を読み込ませて行数に応じてフォントサイズと行の高さを同時に変更して見栄えも作業時間も短縮して仕事をかたずけてしまいましょう。

その前に、文字サイズの調整だけまたは、行の高さの調整だけの場合はこちらをご覧くださいませ。

とりっぷぼうる

条件によりフォントサイズ・行間を変更する方法は、上記2つを合体させただけなので、簡単ですよ！

Select Caseの使い方など重複するのでここでは省略しますので、上記を参考にして下さい。

使用されているデータ数（行数）をCOUNTA関数でセルAA1に書き込むのも上記と同じで、Select Caseステートメントで、条件（使用行数）に応じて行の高さを指定し、文字サイズも同時に指定するVBAコードを続けて書けば完成です。

Select Caseで行の高さと文字サイズを指定

実際に使用しているリスト表では、少なくても25行で最大で37行なので、条件式であるCase Isは13個ありますが、そのまま載せるとダラダラ長くなって見づらいので、25行から27行までの3行に省略して書きました。

※ユーザーフォームのコマンドボタンにVBAコードを書いた例です。

VBAコード

Private Sub CommandButton1_Click()
Select Case Worksheets(“Sheet1”).Range(“AA1”).Value
Case Is <= 25
Range(“3:40”).RowHeight = 40
Range(“A3:T40”).Font.Size = 17
Case Is = 26
Range(“3:40”).RowHeight = 38
Range(“A3:T40”).Font.Size = 16
Case Is = 27
Range(“3:40”).RowHeight = 36
Range(“A3:T40”).Font.Size = 15
End Select
End Sub

解説