按班级按学科求总分平均分

yangqianming

想实现计算表中的效果，就是按班级按学科统计总分，平均分，及格人数，大于等于80分人数，请求老师们出手相助，谢谢！

按班求总分.rar (44.11 KB, 下载次数: 12)

2024-2-23 13:35 上传

点击文件名下载附件

cjc209

自定义函数解题

cjc209

解题思路 先转成一维数据 再分组 再求和 平均 及条件人数 最后再排序 写回表格指定区域

LIUZHU

好久没上论坛了，热一下手

LIUZHU

附件在此，请审核

Again123456

1. function test(){
   
2.         let arr = Sheets("信息表").Range("a1").CurrentRegion.Value2
   
3.         let data = arr.slice(1)
   
4.         let dic = {} //字典
   
5.         let  bt = ["班级","学科","总分","平均分","大于等于60分人数","大于等于80分人数"]//表头
   
6.         data.forEach (row => {//行循环
   
7.                 let col = arr[0].slice(3) //截取学科列
   
8.                 col.forEach((c,i) =>{//学科循环
   
9.                         let key = row[1]  + c // 以班级加学科为字典的key
   
10.                         if (! dic[key]){
    
11.                                 dic[key] = Array(6).fill(null)
    
12.                                 dic[key][0] = row[1]
    
13.                                 dic[key][1] = c
    
14.                                 dic[key][2] = row [ i + 3]//直接取学科对应的分
    
15.                                 if (row [ i + 3] >= 60) dic[key][4]++
    
16.                                 if (row [ i + 3] >= 80) dic[key][5]++
    
17.                                 dic[key][3] ++ //平均分：暂时存放总人数， + 1
    
18.                         }else{
    
19.                                 dic[key][0] = row[1]
    
20.                                 dic[key][1] = c
    
21.                                 dic[key][2] = dic[key][2] + row [ i + 3]//总分加再次出现的新分
    
22.                                 if (row [ i + 3] >= 60) dic[key][4]++
    
23.                                 if (row [ i + 3] >= 80) dic[key][5]++
    
24.                                 dic[key][3] ++ //平均分：暂时存放总人数， + 1                       
    
25.                         }
    
26.                 })
    
27.                
    
28.         })
    
29.         let res = Object.values( dic )
    
30.         res.forEach((v,i) => res[i][3] = (v[2]/v[3]).toFixed(2))
    
31.         res.unshift(bt)
    
32.         Sheets("计算表").Range("j1").CurrentRegion.ClearContents()
    
33.         Sheets("计算表").Range("j1").Resize(res.length,res[0].length).Value2 = res
    
34. }

复制代码

按班求总分.rar (45.17 KB, 下载次数: 8)

2024-2-23 15:52 上传

点击文件名下载附件

没检查，不知结果和要求的是否一样

Again123456

为了方便看字典的套路，全部拆解起来写的，行数有点多

yangqianming

Again123456 发表于 2024-2-23 15:59
为了方便看字典的套路，全部拆解起来写的，行数有点多

行数多点没关系，还给添加注释真是感谢，我好好消化，但我目前刚刚开始接触这个，还不懂，相信在大家的帮助下，能有点小进步就好了，谢谢！

Again123456

LIUZHU 发表于 2024-2-23 14:53
好久没上论坛了，热一下手

看起来逗号可以改成分号吧

yangqianming

LIUZHU 发表于 2024-2-23 14:54
附件在此，请审核

非常感谢！我还是菜鸟一只，期待大家多指导，能慢慢起飞！