成绩转换求助

djp1018

请有空的大师帮忙看看，学生先感谢了

tanglf188

功能简单，需求看的头晕

djp1018

tanglf188 发表于 2024-5-22 11:10
功能简单，需求看的头晕

老师看看例子就清楚了

3190496160

没有技术难度，但是，很繁琐，

LIUZHU

确实是个体力活，搞了快一个小时

LIUZHU

JSA代码，都写麻木了，想不到VBA要写多少

1. function 数据转换(){
   
2.         Sheets.Item("转换后数据").Activate();
   
3.         const arr=Sheets.Item("源数据").Range("a1").CurrentRegion.Value2;
   
4.         const bt1=arr[1].reduce((bt1,x,i)=>(bt1[x]=i,bt1),{});
   
5.         const bt2=Range("a1").CurrentRegion.Value2[0].reduce((bt2,x,i)=>(bt2[x]=i,bt2),{});
   
6.         const mbarr=new Array(Object.keys(bt2).length).fill(null);
   
7.         let obj={},dic={},k=0;
   
8.         arr.slice(2).forEach(x=>{
   
9.                 let key=x[bt1.学号] + x[bt1.课程名称];
   
10.                 let temp=obj[key]=obj[key] || [...mbarr];
    
11.                 if (x[bt1.考试类型]=="正考"){
    
12.                         ["学号","姓名","班级","课程名称","姓名"].forEach(i=>temp[bt2[i]]=x[bt1[i]]);
    
13.                         [temp[bt2.正考学年], temp[bt2.正考学期]]=[x[bt1.成绩学年学期].slice(0,9), x[bt1.成绩学年学期].slice(-1)];
    
14.                         [temp[bt2.总评成绩], temp[bt2.再补考最高成绩]]=[x[bt1.综合成绩], "=MAX(RC[19]:RC[24])"];
    
15.                         [temp[bt2.序号], temp[bt2.录入成绩教师姓名], temp[bt2.录入补考成绩]]=[++k, x[bt1.操作人], "=RC[-18]"];
    
16.                         let marr=x[bt1.成绩分项描述].match(/(?<=:)\d+/g);
    
17.                         [temp[bt2.平时成绩], temp[bt2.期末成绩]]=marr!=null?[marr[0],marr[1]]:[,,];
    
18.                 }else if (x[bt1.考试类型].includes("补考")){
    
19.                         if (temp[bt2.学号]=="2113010108"){
    
20.                                 let a;
    
21.                         }
    
22.                         let ikey=key + "补考";
    
23.                         dic[ikey]=(dic[ikey] || 0) + 1;
    
24.                         if (dic[ikey]==1){
    
25.                                 temp[bt2.补考成绩]=x[bt1.综合成绩];
    
26.                         }else{
    
27.                                 let n=bt2[`再补考${dic[ikey]-1}成绩`];
    
28.                                 temp[n]=x[bt1.综合成绩];
    
29.                         }
    
30.                 }
    
31.         });
    
32.         let res=Object.values(obj);
    
33.         Range("a2").Resize(res.length,res[0].length).FormulaR1C1=res;
    
34.         ThisWorkbook.Save();
    
35. }

复制代码

LIUZHU

附件在此，WPS测试，运行JS宏

LIUZHU

运行后，压缩包发不上来，附件较大，必须删除运行的结果

yynrzwh

学生总成绩导出20240510.zip (1.69 MB, 下载次数: 27)

2024-5-22 21:26 上传

点击文件名下载附件

djp1018

yynrzwh 发表于 2024-5-22 21:26

非常非常感谢老师完美实现