vba窗体 点击增加减少_头条文章——妙用VBA技术进行胎儿体重计算器的设计

大家好，前期我通过视频展示的形式做了个胎儿体重计算器，基本可以根据医院产检的参数初步预测胎儿在妈妈肚子里的成长情况，以便宝妈们可以有效调理自己的身体状况。基于这些原因，我设计了这个胎儿体重计算器。对于大多数办公的女性朋友或者男性朋友，都可以用这个办公技术实现自己今后的未出生的宝宝的体重进行预测哦！

好了，废话也不多说啦，我们直接看看如何设计的吧？

一、打开PPT环境，插入一个通常的孕期内胎儿的参数指标表截图和插入一个圆角矩形图形，并且修饰。如下图所示

图1 PPT内插入的对象

二、点击开发工具，进入VBA后台

(一)插入一个窗体，并且设置其名称和标题。如下图所示

图2 VBA后台插入的窗体

(二)在上面的窗体上插入必要的文本框、命令按钮和提示的标签，并设置它们的属性参数。如下图所示

图3 窗体上插入的文本框、按钮和标签及其属性

三、胎儿体重计算器的功能代码编写设计

(一)上面的VBA窗体代码编写如下：

Private Sub Fetus_Heavy_Calc_Btn_Click() '胎儿体重计算

'胎儿体重计算公式：1.07*BDP*BDP*BDP+0.3*AC*AC*FL

'其中 BDP代表双顶径，AC代表腹围，FL代表股骨长 单位：毫米mm

'计算结果将是毫克，如果要换算为克的话，必须除以1000(1克=1000毫克，1斤=500克)

If IsNumeric(BDP.Value) And IsNumeric(AC.Value) And IsNumeric(FL.Value) Then

BDP_3 = (Val(BDP.Value)) ^ 3 ' BDP_3代表双顶径除以10的立方

AC_2_FL = (Val(AC.Value)) ^ 2 * Val(FL.Value) 'AC_2_FL代表腹围除以10的立方再乘除以10后的股骨长

wgt.Caption = Round((1.07 * BDP_3 + 0.3 * AC_2_FL) / 1000 / 500, 2) '换算成为单位：斤

Else

MsgBox "您输入的胎儿体重计算的参数非法！重输！