Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3337|回复: 7

[已解决]关于幼儿园儿童身高体重评价的问题需大虾解决,万分感谢

[复制链接]
发表于 2012-5-13 08:49 | 显示全部楼层 |阅读模式
关于幼儿园儿童身高体重评价的问题需大虾解决,万分感谢!我们已经找到儿童姓名、出生年月、女男、身高体重、想得出他的身高体重的评价,标准在附件里面。请大虾帮忙解决,代表小朋友感谢你们。
最佳答案
2012-5-13 11:17
本帖最后由 砂海 于 2012-5-13 13:14 编辑

2006年WHO7岁以下儿童体格发育评价表(2标准).rar (22.87 KB, 下载次数: 136)

2006年WHO7岁以下儿童体格发育评价表(2标准).rar

27.48 KB, 下载次数: 74

发表于 2012-5-13 11:16 | 显示全部楼层
本帖最后由 cjainwei 于 2012-5-13 11:22 编辑
  1. 2006年WHO7岁以下儿童体格发育评价表(2标准).rar (34.22 KB, 下载次数: 48)
  2. Dim arr, i As Long, j As Long, k As Long, arr1
  3. arr = Sheet2.Range("A4:W88")
  4. arr1 = Sheet1.Range("A2:H" & Sheet1.Range("A65536").End(xlUp).Row)
  5. For i = 1 To UBound(arr1, 1)
  6.     If arr1(i, 4) = "男" Then
  7.         j = 1
  8.     Else
  9.         j = 13
  10.     End If
  11.     For k = 0 To 1
  12.         If arr1(i, 6 - k) <= Val(arr(arr1(i, 3) + 1, 1 + j + 5 * k)) Then
  13.             arr1(i, 8 - k) = "下等"
  14.         ElseIf arr1(i, 6 - k) <= Val(arr(arr1(i, 3) + 1, 2 + j + 5 * k)) Then
  15.             arr1(i, 8 - k) = "中下"
  16.         ElseIf arr1(i, 6 - k) <= Val(arr(arr1(i, 3) + 1, 3 + j + 5 * k)) Then
  17.             arr1(i, 8 - k) = "中低"
  18.         ElseIf arr1(i, 6 - k) <= Val(arr(arr1(i, 3) + 1, 4 + j + 5 * k)) Then
  19.             arr1(i, 8 - k) = "中高"
  20.         ElseIf arr1(i, 6 - k) <= Val(arr(arr1(i, 3) + 1, 5 + j + 5 * k)) Then
  21.             arr1(i, 8 - k) = "中上"
  22.         Else
  23.             arr1(i, 8 - k) = "上等"
  24.         End If
  25.    Next
  26.    
  27. Next
  28. Sheet1.Range("A2").Resize(UBound(arr1, 1), UBound(arr1, 2)) = arr1
  29. End Sub
复制代码
回复

使用道具 举报

发表于 2012-5-13 11:17 | 显示全部楼层    本楼为最佳答案   
本帖最后由 砂海 于 2012-5-13 13:14 编辑

2006年WHO7岁以下儿童体格发育评价表(2标准).rar (22.87 KB, 下载次数: 136)
回复

使用道具 举报

发表于 2012-5-13 11:51 | 显示全部楼层
砂海 发表于 2012-5-13 11:17

你的附件上的女的体重应该都是上等吧。你的函数运算结果好象有点出入。请校对一下。
回复

使用道具 举报

发表于 2012-5-13 13:17 | 显示全部楼层
本帖最后由 砂海 于 2012-5-13 20:54 编辑
cjainwei 发表于 2012-5-13 11:51
你的附件上的女的体重应该都是上等吧。你的函数运算结果好象有点出入。请校对一下。


g2=INDEX($G$21:$G$26,1+SUMPRODUCT((E2>OFFSET(计算版本!$B$3,MATCH($C2,计算版本!$A$4:$A$88),IF($D2="女",12,0)+IF(G$1="身高评价",5,0),,5))*1))
已在三楼改正,谢谢.


回复

使用道具 举报

 楼主| 发表于 2012-5-13 20:56 | 显示全部楼层
万分感谢你们的帮助。不过我还看不懂公式的意思。要学习学习了
回复

使用道具 举报

发表于 2013-2-5 11:20 | 显示全部楼层
真专业哦
回复

使用道具 举报

发表于 2013-2-5 11:37 | 显示全部楼层
VBA果然强大,厉害。想好好学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:34 , Processed in 2.454674 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表