较难的成绩统计代码求助

hedgehog93

成绩分析.zip (45.05 KB, 下载次数: 23)

2012-7-26 15:02 上传

点击文件名下载附件

大哥，我发个附件你帮我看下，我稍微改了一下成绩，让第98名有四个重名次，可是程序统计的时候都没有计算进去。

mjzxlmg

hedgehog93 发表于 2012-7-26 14:19
现在还出现了一个奇怪的现象，就是。其它科目都是98个优秀人数，只有总分只有97个优秀人数。

前面说了，各科是以不是空白来计算参加考试的人数，0分指的是参加了考试，但是得分0分，照样统计人数。
而总分把0分的去除了。所以人数不一样。
如果要统一的话，可以这样：
1、在计算总分时，不等于的空白的相加。
2、排名时，把空白排除在外。
这样总分为0分的也计算人数。但空白的不计算人数。

hedgehog93

mjzxlmg 发表于 2012-7-26 15:36
前面说了，各科是以不是空白来计算参加考试的人数，0分指的是参加了考试，但是得分0分，照样统计人数。
...

这个改一下哪里呢？

mjzxlmg

hedgehog93 发表于 2012-7-26 16:11
这个改一下哪里呢？

注意三处都必须改：这里理解起来有点难，0值和空值，定义为数值型，那么两者是相同的，定义为文本型不能加加，只好定义为Variant

在　sub 计算名次 中：
1、把sum as double改为Sum As Variant
2、把Sum = 0改为：Sum = Empty
3、If Sum <> 0 Then 改为：If Sum <> "" Then

hedgehog93

{:soso_e113:}OK，正常了。非常感谢。
很感谢你一直跟踪回复，帮助！耽搁你宝贵时间与精力了。

沉潜

mjzxlmg 发表于 2012-7-16 08:29

感谢，由于放暑假，一直就没逛这个论坛了，今天才查看到消息。

沉潜

mjzxlmg 发表于 2012-7-16 08:29

老师，今天才发现：在合计栏中，统计的班级数有点小Bug,（d.count）统出来的是成绩源中的所有班级数，而非具体年级班级数。如：分析2012级时才13个班，结果为16了，把2014级的3个班也统计进去了。

mjzxlmg

沉潜 发表于 2012-8-4 10:08
老师，今天才发现：在合计栏中，统计的班级数有点小Bug,（d.count）统出来的是成绩源中的所有班级数，而非 ...

d.count改为m即可。或改为：dic.count

hedgehog93

'筛选优生，复制到优生名册
       Set myRange = Range("bz1:bz2")
         With myRange
             .Cells(1, 1) = "总分级名"
             .Cells(2, 1) = "<=" & YXRS
        End With
    Sheets("成绩源").UsedRange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=myRange, CopyToRange:=Sheets("优生名册").Range("a2"), Unique:=False
    myRange.Clear
    Set myRange = Nothing

这样筛怎么样？（这是筛级名）想问一下，有没有可能筛总分？

hedgehog93

mjzxlmg 发表于 2012-8-4 10:13
d.count改为m即可。或改为：dic.count

'筛选优生，复制到优生名册
       Set myRange = Range("bz1:bz2")
         With myRange
             .Cells(1, 1) = "总分级名"
             .Cells(2, 1) = "<=" & YXRS
        End With
    Sheets("成绩源").UsedRange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=myRange, CopyToRange:=Sheets("优生名册").Range("a2"), Unique:=False
    myRange.Clear
    Set myRange = Nothing

这样筛怎么样？（这是筛级名）
想问一下，有没有可能筛总分？如果可以，请问最简便的方法是？