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 回答日時： 2007/11/05 08:33

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

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

この回答へのお礼

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

お礼日時：2007/11/05 11:23