zono note

zono note

日々の学び、気付きを大切に綴りたい

連載5:BMI値をexcel VBAで算出する

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

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

[f:id:zonozonox:20180129194335j:plain:VBA BMI計算表:alt=VBAで作成したBMI計算表です]
  
考え方 :  難しく考えずにスマートに
体重のテキストに入力した値を、身長のテキストに入力した値を2乗して、割れば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  はテキスト1に入る値が高さですという意味

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

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