小数点以下の値を四捨五入し，指定した桁数に変換するためのマクロの記述方法について。

質問

BMI値を小数点以下１桁まで算出するマクロを作りたいのですが・・・

ＢＭＩ値＝ 体重/（身長*身長）

↑ＢＭＩ値自体はこの式で算出できるのですが、その数値を四捨五入し、小数点以下１桁まで算出する式が分かりません。。。
どうも「Application.WorksheetFunction.Round(小数値, 桁数)」を用いるようなんですが、どう応用したらよいのか・・・

上述の式に組込んで書くor別途書く必要があるのか教えて下さい。
模範式も提示してもらえると助かります。
それでは回答よろしくお願いします！

回答No.1

benelli

ひとまずこんな感じでしょか？

'-------------------------------
Dim BMI As Variant
Dim Sintyo As Variant
Dim taizyu As Variant

taizyu = 129.3 '体重１２９．３ｋｇ
Sintyo = 1.293 '身長１２９．３ｃｍ。値はメートル

BMI = taizyu / (Sintyo * Sintyo)
BMI = Round(BMI, 1)
MsgBox BMI
'-------------------------------

上を参考に試行錯誤してみてください。Variant宣言は不要でしたな。
しっかしドＯえもんふとってるなぁ

お礼

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