请各位大神精英赐我一个神奇VBA吧

蓝桥玄霜

你的判断标准是这个：
营养状况评价：数据先匹配表A，异常的直接判断“生长迟缓”，正常的接着用表B匹配，异常的判断“轻度消瘦”及“中重度消瘦”，其他的判断正常（用空白表示）
肥胖评价：根据表C来判断是超重、还是肥胖，正常的显都示空白
先匹配A，如果正常再匹配B，所以以第十行数据为例：判断A时为异常，就不需要再判断B了。
至于A为异常，是不是还要判断C，前面的判断标准没有说明。
可以根据你的需要自行修改。

YZC51

cherga 发表于 2018-7-13 17:22
我把代码判断的结果跟实际结果弄在一起 麻烦老师再看下哪里错了

用函数做了下！请参考！
营养状况评价.rar (32.56 KB, 下载次数: 5)

2018-7-15 13:35 上传

点击文件名下载附件

YZC51

再请参考！
营养状况评价-.rar (93.63 KB, 下载次数: 7)

2018-7-15 22:15 上传

点击文件名下载附件

cherga

YZC51 发表于 2018-7-15 22:16
再请参考！

非常感谢帮忙，但是发现还是有错啊 首先营养评价跟肥胖是分开的，不相关；其次营养评价要先用表A判断，判断正常的这些数据再去用表B判断，异常的直接诊断生长迟缓就不要再用表B诊断了，不用诊断是否消瘦。因为营养不良包括生长迟缓和消瘦，诊断迟缓就不去诊断消瘦，生长没迟缓的再去判断是否消瘦，谢谢。

YZC51

cherga 发表于 2018-7-16 08:44
非常感谢帮忙，但是发现还是有错啊 首先营养评价跟肥胖是分开的，不相关；其次营养评价要先用表A判断，判 ...

请参考！是按此标准设计的！
营养评价标准.rar (80.18 KB, 下载次数: 5)

2018-7-16 09:26 上传

点击文件名下载附件

YZC51

cherga 发表于 2018-7-16 08:44
非常感谢帮忙，但是发现还是有错啊 首先营养评价跟肥胖是分开的，不相关；其次营养评价要先用表A判断，判 ...

请参考！
Sub lqxs()
    Dim Drr, i&, Myr&
    Dim xb$, col%, nl
    Sheet1.Activate
    [o4:p500].ClearContents
    Myr = Cells(Rows.Count, 6).End(xlUp).Row
    Drr = Range("f4:p" & Myr)
    For i = 1 To UBound(Drr)
        xb = Drr(i, 1): nl = Drr(i, 5)
        If xb = "男" Then col = 2 Else col = 3
        If Drr(i, 7) <= Application.VLookup(nl, [CS], col) Then Cells(i + 3, 15) = "生长迟缓": GoTo 100
        If xb = "男" Then col = 2 Else col = 4
        If Drr(i, 9) <= Application.VLookup(nl, [CS], 2 + col) Then Cells(i + 3, 15) = "中重度消瘦": GoTo 100
        If Drr(i, 9) <= Application.VLookup(nl, [CS], 3 + col) Then Cells(i + 3, 15) = "轻度消瘦": GoTo 100
        If nl > 18 And Drr(i, 9) < 18.5 Then Cells(i + 3, 16) = "体重过轻": GoTo 100
        If Drr(i, 9) >= Application.VLookup(nl, [CS], 6 + col) Then Cells(i + 3, 16) = "超重"
        If Drr(i, 9) >= Application.VLookup(nl, [CS], 7 + col) Then Cells(i + 3, 16) = "肥胖"
100:
    Next
End Sub

cherga

YZC51 发表于 2018-7-16 09:26
请参考！是按此标准设计的！

跟我的那份标准一样，只是我的少了18岁以上的，但是您的编码在诊断营养不良时很多都是诊断消瘦而不是生长迟缓（优先诊断生长迟缓），肥胖超重无误

cherga

YZC51 发表于 2018-7-16 09:37
请参考！
Sub lqxs()
    Dim Drr, i&, Myr&

可以了 非常感谢。如果我想用我自己的参数，要修改哪些内容跟排版

YZC51

请参考！自定义函数
Function YYPJ(t1, t2, t3, t4, gs)
    Dim col%
    If t1 = "男" Then col = 2 Else col = 3
    If gs = 1 Then
        If t3 <= Application.VLookup(t2, [CS], col) Then YYPJ = "生长迟缓": Exit Function
        If t4 <= Application.VLookup(t2, [CS], 2 + col) Then YYPJ = "中重度消瘦": Exit Function
        If t4 <= Application.VLookup(t2, [CS], 3 + col) Then YYPJ = "轻度消瘦": Exit Function
    Else
        If t2 > 18 And t4 < 18.5 Then YYPJ = "体重过轻": Exit Function
        If t4 >= Application.VLookup(t2, [CS], 7 + col) Then YYPJ = "肥胖": Exit Function
        If t4 >= Application.VLookup(t2, [CS], 6 + col) Then YYPJ = "超重"
    End If
    If YYPJ = 0 Then YYPJ = ""
End Function

YZC51

cherga 发表于 2018-7-16 09:49
可以了 非常感谢。如果我想用我自己的参数，要修改哪些内容跟排版

可以用上面的自定义函数！