VBAで条件により文字の大きさを変更する

2020年3月18日2020年3月21日

エクセルで作る表などで、データがある行数が少ない時は文字を大きくして、行数が多い時は文字を小さくしてA4用紙いっぱいに印刷したい時ってありませんか？

VBAで使用している行数を読み取り自動的に文字の大きさを指定させれば完成です。

文字サイズ（フォント）をVBAコードで記述基本はこちらもどうぞ

Select Caseで条件付け

Select Caseステートメントを使うと、1つ目の条件に合致すると処理を実行して、条件に合わないと次の2つ目の条件に移って処理を続け、2つ目の条件が合致すると実行、さらに条件に合わないと次の条件、3つ目に移るという具合です。

要するに、条件に合うまで次から次へと処理を行ってくれる便利なものですが、重複するので詳しい説明はここでは省略します。

このSelect Caseの特徴を利用して、次の手順でVBAコードを記述すれば完成すますよ！

特定のセルに使用している行数を読み込ませる
読み込ませたセルの値をSelet Caseの基準にする
Case Isの条件式と対象が条件式と合致する時の処理をする

それでは、手順1～3を順にVBAコードを記述しましょう。

特定のセルに使用している行数を読み込ませる

表の入力済みデータのセルの数を数えるのは、表の欄外の空いているセルに置いておけば簡単で、使用するエクセル関数はCOUNTA関数です。

表の欄外のセルAA1に記述

=COUNTA(A3:A40)

COUNTA関数を各セルは表の欄外ならどこでも構いませんので、空いているセルにデータ入力済セルを数えます。

今回のデータリスト名がセルA3～A40までの範囲内なので、数えた数をセルAA1にたまたま書きましたので、このセルを基準にSelect Caseステートメントを使用します。

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(“A3:T40”).Font.Size = 17
Case Is = 26
Range(“A3:T40”).Font.Size = 16
Case Is = 27
Range(“A3:T40”).Font.Size = 15
End Select
End Sub

解説