体质指数计算器。2025年3月14日更新了，增加了功能

eastar2008

看有朋友发，前几天正好做了一个。输入姓名 （非必填）选择性别，默认 女，年龄  身高（厘米） 体重（千克）自动计算体脂率和BMI，给出体质状态，把计算的结果显示在窗口。并且在可执行文件的根目录生成  体质计算器测量记录表.txt 用于记录每次的测量。生成的模式为
2025-03-11 20:15:46
姓名：王菲
性别：女
年龄：56
身高：173 厘米
体重：50 千克
体脂率：27.53%
体质状态：偏瘦
BMI：16.71
----------------------
第一次发，谢谢各位。https://wwru.lanzoub.com/i5e6F2qa87qf


2025年3月14日，根据建议更新了功能，根据计算出的结果给出正常的体重，应该增加或者减少多少kg。
还做了些小的修改，默认光标在姓名输入栏等等。 https://wwru.lanzoub.com/icF1F2qkgamh

我的小鱼干

287859999 发表于 2025-3-12 03:37
减肥要怎么能把脸瘦下去  我身高186 从120长到150身上没多少肉胖的肉全长脸上了 做什么运动能瘦脸

其实跟你什么运动无关，你只要把体重减下来脸自然跟着就瘦了，瘦脸除了减脂就是医美了，没什么运动可以说专门瘦脸的，当然你也可以适当练练背因为练好背可以拉升你颈部肌肉让下颌线更立体点，脸上其他地方的肉只能靠减脂了

丙级

直接EXCEL表格一键完成
使用方法：

• 打开 Excel，按 Alt + F11 打开 VBA 编辑器；
• 在左侧工程窗口右键点击工作簿名称 → 插入 → 模块；
• 将上述代码粘贴到模块窗口；
• 直接F5运行即可自动生成含公式和示例数据的表格。
  

后续只需修改姓名、性别、年龄、身高、体重等基础数据，表格会自动计算体脂率、BMI 等结果。


Sub 创建体脂BMI分析表()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    ws.Name = "体脂BMI分析"
   
    ' 写入标题行
    ws.Cells(1, 1).Value = "姓名"
    ws.Cells(1, 2).Value = "性别"
    ws.Cells(1, 3).Value = "年龄"
    ws.Cells(1, 4).Value = "身高(厘米)"
    ws.Cells(1, 5).Value = "体重(千克)"
    ws.Cells(1, 6).Value = "体脂率"
    ws.Cells(1, 7).Value = "体质状态"
    ws.Cells(1, 8).Value = "BMI"
    ws.Cells(1, 9).Value = "BMI分析"
   
    ' 写入示例数据
    ws.Cells(2, 1).Value = "王菲"
    ws.Cells(2, 2).Value = "女"
    ws.Cells(2, 3).Value = 56
    ws.Cells(2, 4).Value = 173
    ws.Cells(2, 5).Value = 50
   
    ' 设置公式
    ' BMI公式：体重(kg)/(身高(m))²
    ws.Cells(2, 8).Formula = "=E2/(D2/100)^2"
    ' 女性体脂率公式：1.2×BMI + 0.23×年龄 - 5.4
    ws.Cells(2, 6).Formula = "=(1.2*H2)+(0.23*C2)-5.4"
    ' 体质状态判定
    ws.Cells(2, 7).Formula = "=IF(H2<18.5,""偏瘦"",IF(H2<24,""正常"",IF(H2<28,""超重"",IF(H2<30,""偏胖"",IF(H2<40,""肥胖"",""极重度肥胖"")))))"
    ' BMI分析
    ws.Cells(2, 9).Formula = "=""正常BMI下限(18.5)对应体重：""&18.5*(D2/100)^2&""kg""&CHAR(10)&""需要增加体重：""&MAX(18.5*(D2/100)^2-E2,0)&""kg"""
   
    ' 调整列宽
    ws.Columns("A:I").AutoFit
   
    MsgBox "表格创建完成！", vbInformation
End Sub

熊猫说了很多话

试了一下，很好用，

AG9000

对生活很有帮助

hwiori

下了，好用，感谢分享

elvisvv

王菲：你礼貌吗

aoao173

感谢分享 很实用~~

52PJ070

工具实用，可以的，感谢分享！

qdfcj

好用，感谢分享！

weifengzhizuo

感谢分享，楼主辛苦........

287859999

减肥要怎么能把脸瘦下去  我身高186 从120长到150身上没多少肉胖的肉全长脸上了 做什么运动能瘦脸