求助好心人制作VBA判断新生儿出生体重和出生身长的P值范围

点点.

求助大家，有没有好心人帮忙制作一个VBA啊，根据性别、出生体重、出生身长判断P值范围

shiruiqiang

不是规定的体重和身高怎么计算，如男，780g，30cm
应该是取 区间范围计算吧？

lu553178681

希望没有理解错吧

laoye5403

新手练手

壹万玖

参与一下，向上取值的，不确定是否这个意思

壹万玖

1. Sub P值范围判断fox()
   
2.     Dim xRg As Range, fArr(), xArr(), SC, WR%, HC%, fNu%, i%, j%
   
3.     Application.ScreenUpdating = False
   
4.     With Sheet1
   
5.         fArr = .Range("A1").Resize(78, 15).Value
   
6.         Set xRg = .Range("Q1").Resize(.Cells(.Rows.Count, 17).End(xlUp).Row, 4)
   
7.         xArr = xRg.Value
   
8.     End With
   
9.     For i = 1 To UBound(xArr, 1)
   
10.         SC = Switch(xArr(i, 1) = "男", 2, xArr(i, 1) = "女", 9)
    
11.         If SC Then
    
12.             WR = UBound(fArr, 1)
    
13.             For j = 3 To UBound(fArr, 1)
    
14.                 If xArr(i, 3) <= Val(fArr(j, 1)) Then: WR = j: Exit For
    
15.             Next
    
16.             HC = SC + 6
    
17.             For j = 0 To 6
    
18.                 If xArr(i, 2) <= Val(fArr(WR, SC + j)) Then: HC = SC + j: Exit For
    
19.             Next
    
20.             xArr(i, 4) = fArr(2, HC)
    
21.             fNu = fNu + 1
    
22.         End If
    
23.     Next
    
24.     xRg.Value = xArr
    
25.     Application.ScreenUpdating = True
    
26.     MsgBox "完成 " & fNu & " 组P值范围判断！"
    
27. End Sub

复制代码

壹万玖

微调了一下，改了个向下取值的，你自己选吧

点点.

看到这么多人参与解答我的问题，很激动，非常感谢大家的回复。怪我没写清楚自己的需求，我想要的结果是，比如一个男孩出生体重为1090（范围在1050-1100区间），则看1050行身长数据，若身长为35（范围在34.8-36.2区间），则该男孩的值范围在P25-P50。

壹万玖

点点. 发表于 2024-12-23 08:51
看到这么多人参与解答我的问题，很激动，非常感谢大家的回复。怪我没写清楚自己的需求，我想要的结果是，比 ...

根据你的需求，修改了一下，P值取范围。关于体重和身长的超范围值和临界点值，你没说清楚，根据我的理解写的，图片中有举例说明。有出入你根据需求自己更改

点点.

壹万玖 发表于 2024-12-23 10:17
根据你的需求，修改了一下，P值取范围。关于体重和身长的超范围值和临界点值，你没说清楚，根据我的理解 ...

厉害了，正是我想要的，非常感谢你！