如何根据参数表中各学科等级比例分按班级按年级两种类型将分数变等级

yzyyyyyyy

原始表中为各学科原始分数，参数表中设置各学科分数转化为等级的比例，如语文学科，分三个等级优秀，良好，合格，优秀占30%，良好占40%，合格占30%。
分两种情况转化为等级。
按年级，即将语文成绩从高到低排，从高到低取600*30%=180人为优秀，四舍五入；600*40%=240为良好，四合五入，600*30%=180为合格，剩下的为最后一个等级。
按班级，即将原始表按班级，按语文成绩从高到低排，从高到低取，如1班为41人，41*30%=12.3，取12人，语文为优秀，41*40%=16.4，取16人，语文为优秀，剩下的13人为合格。最后的按年级，按班级目标册，顺序均按原始表的顺序。 如何根据参数表中各学科等级比例分按班级按年级两种类型将分数变等级.rar (34.85 KB, 下载次数: 36)

2014-5-7 08:55 上传

点击文件名下载附件

chxw68

临界点上有并列的怎么选？比如算出来前120人为优秀，但到120人时，可能并列的有好几个人，这些人都算优秀呢？还是算到良好里面呢？

yzyyyyyyy

chxw68 发表于 2014-5-8 08:17
临界点上有并列的怎么选？比如算出来前120人为优秀，但到120人时，可能并列的有好几个人，这些人都算优秀呢 ...

感谢大师关注，要考虑分两种情况设计程序。第一种情况，严格按人数，算到良好，最后剩余的，算到合格；第二种按名次，算到优秀，最后剩余的，算到合格。

mjzxlmg

把你的成绩表发上来，要用到原来的排名数组来取数，如200人优秀，前200名的学生即为优秀。

chxw68

yzyyyyyyy 发表于 2014-5-8 08:42
感谢大师关注，要考虑分两种情况设计程序。第一种情况，严格按人数，算到良好，最后剩余的，算到合格； ...

呵呵，同是考了90分，甲是优秀，乙是良好，这也太不公平了吧？我还没见过这么计算优秀、良好的。

百度不到去谷歌

chxw68 发表于 2014-5-8 08:49
呵呵，同是考了90分，甲是优秀，乙是良好，这也太不公平了吧？我还没见过这么计算优秀、良好的。

他应该不是这个意思
比如有10个人  按343比例 按比例确定累计人数分界点为 3,7,10那么就容易了
实际结果的名次分界线 是这样子了
优秀=3人 若有并列 同名次可超出原定范围3 并列为优秀,比如2人并列第一,2人并列第二,那么就是4个人优秀 此时侵占了良好名额一个 良好名额即只剩下3个
如果前面有7个并列第一 那么直接侵占了所有良好名额 那么就只剩下最后3个属于合格
良好算法以此相同吧

mjzxlmg

思路：
1、将成绩数据装入数组
2、计算排名和各科参考人数
3、把参数装入字典
4、得出结果

grf1973

1、按列循环
2、各列排序
3、各列按343比例填充“优秀”“良好”“合格”
4、结束循环
5、按原名单顺序排序

grf1973

按年级的。。。。。

1. Sub 按年级()
   
2.     Dim N
   
3.     r = [c65536].End(3).Row
   
4.     arr = [a1].CurrentRegion
   
5.     brr = arr
   
6.     N = UBound(arr) - 1 '年级总人数
   
7.     yx = Round(N * 0.3, 0)   '按比例优秀人数
   
8.     lh = Round(N * 0.4, 0)   '按比例良好人数
   
9.     For j = 4 To 12
   
10.         If j <> 7 And j <> 8 Then '物理、化学无数据
    
11.             xyx = 0: xlh = 0 '总优秀人数、总良好人数
    
12.             For i = 2 To N
    
13.                 Set xrng = Range(Cells(2, j), Cells(N + 1, j))
    
14.                 xrank = Application.WorksheetFunction.Rank(arr(i, j), xrng) '名次
    
15.                 If xrank <= yx And xyx < yx Then          '如果名次为优秀，总优秀人数小于按比例优秀人数
    
16.                     brr(i, j) = "优秀"
    
17.                     xyx = xyx + 1
    
18.                     '如果名次为优秀，总优秀人数等于按比例优秀人数，或者名次为良好，总良好人数小于按比例良好人数
    
19.                 ElseIf (xrank <= yx And xyx = yx) Or (xrank <= yx + lh And xlh < lh) Then
    
20.                     brr(i, j) = "良好"
    
21.                     xlh = xlh + 1
    
22.                 Else
    
23.                     brr(i, j) = "合格"
    
24.                 End If
    
25.             Next
    
26.         End If
    
27.     Next
    
28.     Sheet2.[a1].Resize(N + 1, 12) = brr
    
29.     Sheet2.Activate
    
30. End Sub
    

复制代码

grf1973

请看附件。按班级的有空再说了。道理一样的，多加几个判断、循环而已。