较难的成绩统计代码求助

hedgehog93

mjzxlmg 发表于 2012-7-20 11:59

大哥，再麻烦你一下，具体见附件里说明，在“1-现在的汇总表”里。实际使用中确实发现一些不便。敬请理解并谅解。
另：由于地理，生物有人缺考，现在可能也只有随大局了，因此请求判断如果所有科目成绩都是“0”分的或为空的不计人数，说简单点就是总分为0的。如果总分不为零，也就是说哪怕有一科参加了考试的，也计人数。

麻烦再麻烦，确实。。。。。都不说了。你懂的。{:soso_e178:}

成绩分析-完美版1.zip (121.49 KB, 下载次数: 81)

2012-7-21 09:06 上传

点击文件名下载附件

hedgehog93

大哥，还有一事搞忘了说：如果能生成要求2，请单独生成在另一个表里，汇总表也要。如果不能，可以就生成在汇总表里。谢谢。

hedgehog93

{:soso_e105:}{:soso_e105:}我现在才发现在“成绩源”表里已经生成了我想要的班名级名，哈哈。晕死哦。白浪费脑筋。

liyunfei099

我看现在的汇总表比你要求的汇总表好，按学科一目了然，便于比较，而你所要求的表让人看得头昏眼花！

hedgehog93

liyunfei099 发表于 2012-7-22 09:09
我看现在的汇总表比你要求的汇总表好，按学科一目了然，便于比较，而你所要求的表让人看得头昏眼花！

那是按班，相当于只是按班级排了一下序。可以分到各班去看。

liyunfei099

我们学校以前也是按班，但不便于各学科之间的比较，而按学科则一目了然，便于比较，所以现在就不再采用那种方式。另外，如果还有其它一些要统计的项目，特别是各科分制不一致的情况下，按班也无法放到一起。比如下面这个表：
Book2.rar (10.25 KB, 下载次数: 23)

2012-7-23 00:58 上传

点击文件名下载附件

hedgehog93

大哥，今天在使用的过程中发现一个小问题，就是如果几个排名(主要是优秀率排名，但其它也应有考虑），有些班没有人数或者说没有这“几率”的时候，排名在相应的班会出现错误代码，不知道有没有办法应对一下。

hedgehog93

{:soso_e100:} {:soso_e100:}

hedgehog93

{:soso_e118:}哪位大哥帮我看看看怎么回事嘛。

mjzxlmg

hedgehog93 发表于 2012-7-23 17:54
大哥，今天在使用的过程中发现一个小问题，就是如果几个排名(主要是优秀率排名，但其它也应有考虑），有些班 ...

增加一个判断，如果出现N/A错误就转为空白。
把排名的三句改为下面的三句：

.Cells(3, 8).Resize(m).value = "=IF(ISERROR(RANK(G3,$G$3:$G$" & m + 2 & ",0)),"""",RANK(G3,$G$3:$G$" & m + 2 & ",0))"
.Cells(3, 11).Resize(m).value = "=IF(ISERROR(RANK(J3,$J$3:$J$" & m + 2 & ",0)),"""",RANK(J3,$J$3:$J$" & m + 2 & ",0))"
.Cells(3, 14).Resize(m).value = "=IF(ISERROR(RANK(M3,$M$3:$M$" & m + 2 & ",0)),"""",RANK(M3,$M$3:$M$" & m + 2 & ",0))"


也可以在计算平均分、合格率、优秀率时增加一个判断。原来的判断是：总分、合格人数、优秀人数不等于0时计算三率，你现加一个ELSE,等于0时，三率也为零。如：
If brr(s, 6) <> 0 Then brr(s, 7) = Format(brr(s, 6) / brr(s, 5), "0.00") '平均分            
改为：
If brr(s, 6) <> 0 Then
      brr(s, 7) = Format(brr(s, 6) / brr(s, 5), "0.00") '平均分
Else
    brr(s, 7) = "0.00"      '("0.00%")
End If