|
楼主 |
发表于 2013-3-16 10:56
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 沉潜 于 2013-3-16 11:09 编辑
mjzxlmg 发表于 2013-3-10 23:38
三残儿童可以这样,把这些人的信息入在工作表中,然后用用一个字典装入,在计算总分、排名时,如果源成绩中 ...
老师你好,在做三残免计中,汇总表的分班三残人数怎么也统计不出来,还望您的指点。
我是这样整的
在【Setup】模块中添加了
Nocount_arr = .[a31].CurrentRegion.Value '免计
For i = 3 To UBound(Nocount_arr) '免计
Nocount_dic(CStr(Nocount_arr(i, 2)) &CStr(Nocount_arr(i, 3)) & CStr(Nocount_arr(i, 5)) & CStr(Nocount_arr(i, 6))) = "" '学校 年级 学号 姓名
Next
【Rankings】模块
If Nocount_dic.Exists(CStr(Arr_in(rowi, 1)) &CStr(Arr_in(rowi, 2)) & CStr(Arr_in(rowi, 5)) & CStr(Arr_in(rowi, 6))) Then '免计
Rank_out(rowi, columni) = -1
End If
前面这个能正确统计
【学科成绩分析】模块
result(s, 9) = 即为各班残病免计人数值
If Nocount_dic.Exists(CStr(Arr_in(i, 1)) & CStr(Arr_in(i, 2)) & CStr(Arr_in(i, 5)) & CStr(Arr_in(i, 6))) Then
result(s, 9) = result(s, 9) + 1 '免计人数
End If
但这里的 result(s, 9) 值始终为空,百思不得其解
统计.rar
(267.17 KB, 下载次数: 26)
,还有就是,按科导出每科只要一个表头不知怎么修改。
|
|