如何根据原始表中班级学科分总分折算分3项填充8项名次和序号以数组形式写入目标表

yzyyyyyyy

如何根据原始表中班级学科分总分折算分3项填充8项名次和序号以数组形式写入目标表.rar (33.39 KB, 下载次数: 31)

2014-12-24 16:29 上传

点击文件名下载附件

原始表中有6项，班级,姓名,类型,总分,学科分,折算分
目标表有6+8*3=30项，
原始表原有：6项，班级,姓名,类型,总分,学科分,折算分,
学科分班名,学科分级名,学科分班序,学科分级序,学科分班倒名,学科分级倒名,学科分班倒序,学科分级倒序,
总分班名,总分级名,总分班序,总分级序,总分班倒名,总分级倒名,总分班倒序,总分级倒序,
折算分班名,折算分级名,折算分班序,折算分级序,折算分班倒名,折算分级倒名,折算分班倒序,折算分级倒序
新加字段含义：
1、班名，即分数从高到低排的班级名次；2、级名，即分数从高到低排的年级名次；3、班序，即分数从高到低排的班级内序号，自然数；4、级序，即分数从高到低排年级内序号，自然数，；5、班倒名，即分数从低到高排班级名次；6、级倒名，即分数从低到高排年级名次；7、班倒序，即分数从低到高排班级内序号，自然数；8、级倒序，即分数从低到高排年级内序号，自然数）。
折算分为：总分乘以1000加上学科分

liulang0808

你这个要求有点多，看着眼晕啊。。。。。

grf1973

确实晕。。。。。。。。看着这么多要求，这种班级排序，年级排序好象以前都做过的，换了个马甲又来了？

jsxjd

总分班名：

1. =SUM(N(($A$2:$A$930=A2)*$D$2:$D$930>D2))+1

复制代码

feiren228

太晕了，看不懂

yjh_27

作了三个示例，

yzyyyyyyy

yjh_27 发表于 2014-12-25 22:58
作了三个示例，

感谢大师热心帮助。请大师把其余的5个也做成示例，我
再学写折算分，总分的。
学科分级序          学科分班倒名        学科分级倒名        学科分班倒序        学科分级倒序
班序，级序，班名倒序，级名倒序，都是序号，自然数，按分数从高到低（班序，级序）或分数从低到高（班名倒序，级名倒序），序号不动态变动（每次点击按钮）。

yjh_27

yzyyyyyyy 发表于 2014-12-26 10:14
感谢大师热心帮助。请大师把其余的5个也做成示例，我
再学写折算分，总分的。
学科分级序          学 ...

请测试

1. Sub aa()
   
2. R = Range("a" & Rows.Count).End(xlUp).Row
   
3. 
   
4. arr = Range("a2:f" & R)
   
5. brr = YjhSort(arr, "1,2", "1,5", "R,-5;1;2")    '学科分班名
   
6. Range("h2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
7. brr = YjhSort(arr, "1,2", "1,5", "R,-5;1;1")    '学科分班序
   
8. Range("j2").Resize(UBound(brr), UBound(brr, 2)) = brr
   
9. 'brr = YjhSort(arr, "1,2", "1,5", "R,-5;1;2,-5;1;1")    '学科分班名、学科分班序
   
10. 'Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
11. 
    
12. brr = YjhSort(arr, "-1", "5", "R,0--5;1;12")     '学科分级名
    
13. Range("i2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
14. brr = YjhSort(arr, "-1", "5", "R,0--5;1;11")     '学科分级序
    
15. Range("k2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
16. 
    
17. brr = YjhSort(arr, "1,2", "1,5", "R,5;1;2")    '学科分班倒名
    
18. Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
19. brr = YjhSort(arr, "1,2", "1,5", "R,5;1;1")    '学科分班倒序
    
20. Range("n2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
21. 'brr = YjhSort(arr, "1,2", "1,5", "R,5;1;2,5;1;1")    '学科分班倒名、学科分班倒序
    
22. 'Range("L2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
23. 
    
24. brr = YjhSort(arr, "1", "5", "R,0-5;1;12")     '学科分级倒名
    
25. Range("m2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
26. brr = YjhSort(arr, "1", "5", "R,0-5;1;11")     '学科分级倒序
    
27. Range("o2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
28. 
    
29. End Sub
    

复制代码

折算分  5改6
总分     5改4
输出相应改

yzyyyyyyy

yjh_27 发表于 2014-12-26 11:07
请测试折算分  5改6
总分     5改4
输出相应改

感谢大师热心帮助，解决了一大难题。
学科分班序，学科分级序，学科分班倒序，学科分级倒序
每次点击按钮时，能否让序号不变，发现分数一样时，序号随机在动。

yjh_27

yzyyyyyyy 发表于 2014-12-26 11:30
感谢大师热心帮助，解决了一大难题。
学科分班序，学科分级序，学科分班倒序，学科分级倒序
每次点击按 ...

你定个规则，在分相同时再按什么排序（如姓名、其他分），否则就是随机的