連載６：BMI値をexcel VBAで算出する

『IF文を利用してコメント表示』

BMIの標準値は、18.5以上25.0未満を標準の範囲としている。
　
今回は、前回のBMIを算出するコードにIF文を加えてコメント表示させる。

Private Sub CommandButton1_Click()

'宣言
    
    Dim hight As Double
    Dim weight As Double
    Dim BMI As Double
    'Dim re As Double
    
'入力
    hight = TextBox1.Value
    weight = TextBox2.Value
    

'処理入力、四捨五入
    BMI = (weight) / (hight * hight)
    Label7.Caption = BMI
    Label7.Caption = Round(BMI, 4)
    
   
'条件記述
    If BMI <= 18.5 Then
        Label6.Caption = " ぎゃんやせぎみたい。もっと食べんば！"
        ElseIf BMI <= 25 Then
        Label6.Caption = " ちょうど、良か体格たい"
        Else
        Label6.Caption = " 肥えとーばい。運動してやせんば！"
        
    End If

End Sub

今回の連載に関するコードはここで終わりです。
次回は、最終連載になり今回連載の実行を行います。