学校质量分析表

××××

求助：能否用vba实现，根据总表拆分班级成绩表（4个班级），根据总表成绩和任课教师得出质量分析数据里的所以内容。谢谢！

WANT-T

口径是什么呀？

fengbao008

各个科目总分多少，及格分多少，你总得说明吧。

chxw68

质量分析表格很特别！一般都不是这样设计的。

仙女配凡人

这表弄得太繁琐了，用JS先写一点，用WPS2022打开使用

1. //统计班级排名、全校排名
   
2. function statistical_ranking() {
   
3.   let sht1 = Sheets('总表')
   
4.   let arr = sht1.Range('A1').CurrentRegion.Value2;
   
5.   arr.shift();
   
6. 
   
7.   //按第二列班级汇总
   
8.   const classes = {};
   
9.   summary_column(arr, 1, (e) => {
   
10.     for (let i in e) {
    
11.       let arr = e[i].map(i => [i[0], i[16]]); //提取考号、总分成绩
    
12.       alike_ranking(classes, arr) //统计各班排名
    
13.     }
    
14. 
    
15.   });
    
16. 
    
17.   const school = {};
    
18.   let brr = arr.map(i => [i[0], i[16]]);
    
19.   alike_ranking(school, brr); //统计全校排名
    
20. 
    
21. 
    
22.   //写入班级排名、全校排名
    
23.   let rng = sht1.Range('R2').Resize(arr.length, 2);
    
24.   rng.Value2 = arr.map(i => [classes[i[0]], school[i[0]]]);
    
25. 
    
26.   write_summary()
    
27.   alert('统计完成');
    
28. 
    
29. }
    
30. 
    
31. //写入质量分析表
    
32. function write_summary() {
    
33.   let sht1 = Sheets('总表')
    
34.   let sht2 = Sheets('质量分析')
    
35.   let arr = sht1.Range('A1').CurrentRegion.Value2;
    
36.   arr.shift();
    
37. 
    
38.   //班级平均分
    
39.   let brr = [];
    
40.   summary_column(arr, 1, (e) => {
    
41.     for (let i in e) {
    
42.       let arr = e[i]
    
43.       let x = 0 //班级总分
    
44.       arr.forEach(i => x += i[16])
    
45. 
    
46.       let y = Math.floor((x / arr.length) * 100) / 100; //班级平均分
    
47.       brr.push([i, y])
    
48.     }
    
49.   })
    
50. 
    
51.   const clss = {};
    
52.   alike_ranking(clss, brr)
    
53. 
    
54.   let data = brr.map(i => [i[0], i[1], clss[i[0]]])
    
55.   sht2.Range('A8:C11').Value2 = data.sort()
    
56. 
    
57. }
    
58. 
    
59. //按某列汇总为对象{'班级': [二维数组]}
    
60. function summary_column(arr = [], col = 0, callback = Function) {
    
61.   const obj = {}
    
62.   arr.forEach(i => {
    
63.     let a = i[col]
    
64.     if (obj[a]) return obj[a].push(i);
    
65.     obj[a] = [i]
    
66.   })
    
67.   callback(obj)
    
68.   return obj
    
69. }
    
70. 
    
71. //解决并列排名问题，arr[考号, 分数]
    
72. function alike_ranking(obj = {}, arr = []) {
    
73.   arr = arr.sort((x, y) => y[1] - x[1]) //降序排序
    
74. 
    
75.   const brr = {}
    
76.   let a = 1
    
77.   arr.forEach(i => {
    
78.     let x = i[0],
    
79.       y = i[1]
    
80.     if (brr[y]) {
    
81.       obj[x] = brr[y]
    
82. 
    
83.     } else {
    
84.       obj[x] = a
    
85.       brr[y] = a
    
86.       a++
    
87.     }
    
88. 
    
89.   })
    
90. }

复制代码

chxw68

修改了一下统计表格式，供楼主参考。

××××

WANT-T 发表于 2023-4-12 15:27
口径是什么呀？

总分在任课教师表里有

××××

fengbao008 发表于 2023-4-12 16:33
各个科目总分多少，及格分多少，你总得说明吧。

总分和及格分在任课教师表里有体现。

××××

chxw68 发表于 2023-4-12 21:46
修改了一下统计表格式，供楼主参考。

谢谢！我学习一下。

××××

×××× 发表于 2023-4-13 12:20
总分在任课教师表里有

什么是口径？孤陋寡闻。