Ifステートメントと条件式を用いた、マクロの記述方式について質問です。

質問

ＢＭＩ値をもとに、Ifステートメントと条件式を用いて評価をするミクロを作成したいのですが・・・
（BMI値を算出、出力するマクロの記述まではできています）
判定した結果は、Range("B5")に文字列で表示するようにします。
[例]18.5未満の場合であれば「低体重 」となるようにしたいです。

・BMI値 評価
　(1)18.5未満　低体重
　(2)18.5以上25未満　普通体重
　(3)25以上30未満　肥満度１
　(4)30以上35未満　肥満度２
　(5)35以上40未満 肥満度３
　(6)40以上 肥満度４

とりあえず、
　If BMI値 < 18.5 Then 'BMI値が18.5未満の場合
として、その後、ActiveCell.・・・・以降の記述方法が分かりません。。。
１つ分かればあとは応用するだけなので、どなたか模範となる記述方法を示してもらえませんか？
よろしくお願いします。

回答No.1

hana-hana3

Ｉｆ文よりもＣａｓｅ文の方が簡単かと思います。

Sub test()

Dim Bmi As Single
Dim Mes As String

Bmi = 18.5

Select Case Bmi
Case Is < 18.5: Mes = "やせ"
Case Is < 25: Mes = "標準"
End Select

Range("B5") = Mes

End Sub

お礼

回答ありがとうございました！
おかげで上手くマクロを完成させることができました＾＾＊