大神们，帮我做做学校里的成绩分析表吧！您也许只要做5分钟，但我要做半个月！谢谢啦

jack.竹林

说明：1、语数外满分都是150分，物理满分100分，政史地生满分都是60分，体育满分20分；优生指的是得分率在80%以上（包含80%），合格指的是得分率在60%以上（包含60%）
         2、参考人数、实际人数那个小表格不用做，那是每一次都不一样！
         3、不动原成绩单，利用函数一次性实现，不用辅助列
        4、表中的数据不对，成绩单也不对的，特别是总分不对！
        5、需要做的函数是成绩单右边的表格！

         6、大神们，请做在表格里   我不太会啊

xpm130

优生指的是得分率在80%以上（包含80%），合格指的是得分率在90%以上（包含90%）

是否"合格"比"优秀"的档次更高啊?

jack.竹林

xpm130 发表于 2013-2-9 09:09
是否"合格"比"优秀"的档次更高啊?

说错了 合格60%

踏雪访梅

表可真多。楼主应该把需要用公式计算的单元格用特殊颜色做个标记。另外，计算了一下每个考生的总分，怎么和表格中的总分不一样？

jack.竹林

踏雪访梅 发表于 2013-2-9 09:41
表可真多。楼主应该把需要用公式计算的单元格用特殊颜色做个标记。另外，计算了一下每个考生的总分，怎么和 ...

是的   我删了一些不要的了  

LMY123

建议楼主使用ADO+SQL
参考
Sub 统计前200名各班人数()

     Dim cnn, SQL$
     Set cnn = CreateObject("adodb.connection")
     cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName

     
     SQL = "SELECT 班级,COUNT(班级) FROM [Sheet1$]  WHERE 名次<201 GROUP BY 班级 "
     
     Range("A2:F65536").ClearContents       '清理保存数据的区域
     Range("A2").CopyFromRecordset cnn.Execute(SQL)
     cnn.Close
     Set cnn = Nothing
     [A1] = "班级"
     [B1] = "前200名个数"
End Sub

LMY123

统计前200名各班人数.rar (100.71 KB, 下载次数: 99)

2013-2-9 10:20 上传

点击文件名下载附件

xpm130

LMY123 发表于 2013-2-9 10:18
建议楼主使用ADO+SQL
参考
Sub 统计前200名各班人数()

强大.学习!                  

踏雪访梅

第一表的统计，相对比较容易。只要把成绩按总分降序排序后，剩下的工作就是在固定区域统计各班人数。

踏雪访梅

优生人数，及格人数的统计，做完了1班和2班的。其他班级的可照此修改。