再次求助大师

ykcbf1100

LIUZHU 发表于 2024-5-27 14:32
这个“资料源”表是从财务系统导出的数据吗？盲目的插行插列，我也是服了

习惯就好。。。

LIUZHU

不知道结果对不对？

LIUZHU

JSA代码，参考下

1. function 获取上季度数据(){
   
2.         const [year,month]=["i1","i2"].map(x=>Sheets.Item("指定时间段").Range(x).Value2);
   
3.         const sm=(Math.ceil(month/3)-1)*3, em=sm+2;
   
4.         const sdate=new Date(year,sm-3,1,8), edate=new Date(year,em-2,0,8);
   
5.         const [sty,stm]=[sdate.getFullYear(), sdate.getMonth() + 1];
   
6.         const [ety,etm]=[edate.getFullYear(), edate.getMonth() + 1];
   
7.         const arr=Sheets.Item("资料源").Range("a1").CurrentRegion.Value2;
   
8.         let res=arr.slice(1).reduce((res,x)=>{
   
9.                 if (x[0]>=sty && x[0]<=ety && x[1]>=stm && x[1]<=etm){
   
10.                         res.push([x[5],x[3],x[4]]);
    
11.                 }
    
12.                 return res;
    
13.         },[["代码","借方金额","贷方金额"]]);
    
14.         Sheets.Item("季度表").Range("u5").Resize(res.length,res[0].length).Value2=res;
    
15. }

复制代码

LIUZHU

附件，WPS打开测试

grf1973

练习一下JS

1. function test(){
   
2.         let [year,month]=["i1","i2"].map(x=>Number(Sheets.Item("指定时间段").Range(x).Value2));  //年、月
   
3.         const dic_jd={1:[1,3],2:[4,6],3:[7,9],4:[10,12]}   //季度和月份的关系
   
4.         if(month<=3) year-=1;   //1-3月，上季度为去年
   
5.                 jd=month<=3?4:month<=6?1:month<=9?2:3;   //根据月份得出上季度的季度值
   
6.                 let s=dic_jd[jd][0],e=dic_jd[jd][1];    //起始、结束月份     
   
7.         const arr=Sheets.Item("资料源").Range("a1:k"+Sheets.Item("资料源").Cells(Rows.Count,1).End(3).Row).Value2;
   
8.         let res=arr.slice(1).filter(x=>x[0]==year && x[1]>=s && x[1]<=e).map(y=>[y[5],y[3],y[4]])
   
9.         res.unshift(["代码","借方金额","贷方金额"]);
   
10.         Sheets.Item("季度表").Range("Y5").Resize(res.length,res[0].length).Value2=res;
    
11. }

复制代码

grf1973

以14楼附件（源数据删除空列）为准。

grf1973

小改一下，不用字典。

1. function test(){
   
2.         let [year,month]=["i1","i2"].map(x=>Number(Sheets.Item("指定时间段").Range(x).Value2));  //年、月
   
3.         const dic_jd=[[10,12],[1,3],[4,6],[7,9]]   //每季度的起始月份（4季度按0季度计）
   
4.         if(month<=3) year-=1;   //1-3月，上季度为去年
   
5.                 jd=Math.floor((month-1)/3);   //根据月份得出上季度的季度值
   
6.                 let s=dic_jd[jd][0],e=dic_jd[jd][1];    //起始、结束月份     
   
7.         const arr=Sheets.Item("资料源").Range("a1:k"+Sheets.Item("资料源").Cells(Rows.Count,1).End(3).Row).Value2;
   
8.         let res=arr.slice(1).filter(x=>x[0]==year && x[1]>=s && x[1]<=e).map(y=>[y[5],y[3],y[4]])
   
9.         res.unshift(["代码","借方金额","贷方金额"]);
   
10.         Sheets.Item("季度表").Range("Y5").Resize(res.length,res[0].length).Value2=res;
    
11. }

复制代码

LIUZHU

grf1973 发表于 2024-5-27 16:28
练习一下JS

学习15楼的代码，有所获，改写了下，同样达到效果

1. function test1(){
   
2.         const obj={0:[10,12], 1:[1,3], 2:[4,6], 3:[7,9], 4:[10,12]}   //季度和月份的关系
   
3.     let [year,month]=["i1","i2"].map(x=>Sheets.Item("指定时间段").Range(x).Value2);  //年、月
   
4.     let ye=year-(month<=3), [st,ed]=obj[Math.ceil(month/3)-1];
   
5.     const arr=Sheets.Item("资料源").Range("a1").CurrentRegion.Value2;
   
6.     let res=arr.reduce((res,[a,b,,c,d,e])=>(a==ye && b>=st && b<=ed?res.push([e,c,d]):null,res),[["代码","借方金额","贷方金额"]]);
   
7.     Sheets.Item("季度表").Range("Y5").Resize(res.length,res[0].length).Value2=res;
   
8. }

复制代码