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

『ユーザーフォームに配置したボタンに式の当て込み』

前回、作成したユーザーフォーム、下図のボタンに式を入れ込みます

[:VBA　BMI計算表:alt=VBAで作成したBMI計算表です]
　　
考え方　：　　難しく考えずにスマートに
体重のテキストに入力した値を、身長のテキストに入力した値を２乗して、割ればBMI値が算出できる！
その流れをそのまま、【判定スイッチ】に記憶させる。　

コードは、以下を参照

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

'処理入力、四捨五入r
    BMI = (weight) / (hight * hight)
    Label7.Caption = BMI
    Label7.Caption = Round(BMI, 4)
        
End Sub

Dim hight As Double　　高さの値は小数点の型ですよと始めに宣言します

入力の hight = TextBox1.Value 　はテキスト１に入る値が高さですという意味

最後は end sub で終わります。

次の連載では、算出したBMI値を平均評価に照らし合わせてコメントを表示させます