较难的成绩统计代码求助

mjzxlmg

hedgehog93 发表于 2012-7-21 09:09
大哥，再麻烦你一下，具体见附件里说明，在“1-现在的汇总表”里。实际使用中确实发现一些不便。敬请理解 ...

首先说明一点，总分为0或空白，程序本来就是不计人数的。
但是具体到每个科目则是计算0分的人数，但空白是不算的。
即总人数：根据第一列中的班号来统计的
考试人数：有分数的人数，含0分。参加了考试也可能是得分为0分的。
考核人数：考试人数*考核比例

hedgehog93

mjzxlmg 发表于 2012-7-24 23:00
首先说明一点，总分为0或空白，程序本来就是不计人数的。
但是具体到每个科目则是计算0分的人数，但空白 ...

谢谢。大哥。

我现在又想研究一下怎样输出前20%（依据优秀比例设置的）的成绩册。想请问下在哪里加一段代码？

hedgehog93

我用笨办法实现了这个输出。
Sheets("成绩源").Activate
        last_row = Sheets("成绩源").Cells(Rows.count, 1).End(3).Row '返回成绩源行数
        last_col = Sheets("成绩源").Cells(1, Columns.count).End(xlToLeft).Column '返回成绩源列数
        Sheets("成绩源").Range(Cells(1, 1), Cells(last_row, last_col)).Sort key1:=Cells(2, last_col - 2), order1:=2, Header:=xlYes '按总分降序排序order1:=2，1为升序
        Sheets("优生名册").Activate
        Sheets("优生名册").Range(Cells(1, 1), Cells(1, last_col)).Merge
        With Sheets("优生名册").Cells(1, 1)
             .Value = Sheets("设置").[b2].Value & "优生名册"
             .Font.Size = 16
             .Font.Name = "微软雅黑"
             .Font.Bold = True
             .HorizontalAlignment = xlCenter
       End With
       Sheets("成绩源").Activate
       Sheets("成绩源").Range(Cells(1, 1), Cells(YXRS + 1, last_col)).Copy Sheets("优生名册").Cells(2, 1)
       Sheets("优生名册").Columns("a:bZ").EntireColumn.AutoFit
       Sheets("优生名册").Range("a:bz").HorizontalAlignment = xlCenter

hedgehog93

mjzxlmg 发表于 2012-7-24 23:00
首先说明一点，总分为0或空白，程序本来就是不计人数的。
但是具体到每个科目则是计算0分的人数，但空白 ...

大哥，今天又发现一个问题，我有个年级，有487人，取20%应该是97.4人是不？程序取了98个人出来，但是第98名和第99名总成绩一样，第99名却没有取出来，请问一下，要在哪里优化一下？

mjzxlmg

hedgehog93 发表于 2012-7-26 09:11
我用笨办法实现了这个输出。
Sheets("成绩源").Activate
        last_row = Sheets("成绩源").Cells(Ro ...

用高级筛选复制到另外的工作表即可

mjzxlmg

hedgehog93 发表于 2012-7-26 09:14
大哥，今天又发现一个问题，我有个年级，有487人，取20%应该是97.4人是不？程序取了98个人出来，但是第98 ...

1、你看一下排名表，看看有几个人？
2、总分是否有0分的或空白的

hedgehog93

是这样的，本来这个年级是488人，有两个人，一个全是零分，一个是空白。

hedgehog93

mjzxlmg 发表于 2012-7-26 11:51
1、你看一下排名表，看看有几个人？
2、总分是否有0分的或空白的

是这样的，本来这个年级是488人，有两个人，一个全是零分，一个是空白。0分是要承认的噻？但是我觉得既然98名跟99名分数一样，为什么98名计进去了，99名没计进去呢？这有点不对吧？

hedgehog93

在考虑是不是在计算总分时，全是0分的没有算总分，也没有算名次！由此造成的？

观察了一下，在窗口初始化时，总分0有计算出来，但是一点查询或导出，总分0消失，而且也不排名次。

hedgehog93

现在还出现了一个奇怪的现象，就是。其它科目都是98个优秀人数，只有总分只有97个优秀人数。