对象嵌套分类汇总

sj15627581616

1. 
   
2. function Workbook_SheetChange(Sh, rg)
   
3. {
   
4.         if(Sh.Name="Sheet1")
   
5.         {
   
6.                 if(rg.Column>=3&&rg.Column<=5)
   
7.                 {
   
8.                         Application.EnableEvents=false;
   
9.                         test();
   
10.                         Application.EnableEvents=true;
    
11.                 }
    
12.         }
    
13. }
    
14. function test()
    
15. {
    
16.         Range("K3:M1000").ClearContents();//清空区域数据
    
17.         let maxrow=Cells.Item(Rows.Count,3).End(3).Row;//读取C列最大非空行
    
18.         let arr=Range("C2:F"+maxrow).Value2;//将区域单元格写入数组
    
19.         let obj={};//构造空对象
    
20.         for(let i=0;i<=maxrow-2;i++)
    
21.         {
    
22.                 //if(obj.hasOwnProperty(arr[i][0]))//判断键值是否存在
    
23.                 if(arr[i][0] in obj)//判断键值是否存在
    
24.                 {
    
25.                         let target=obj[arr[i][0]];
    
26.                         target.Number+=(arr[i][1]||0);//汇总数量
    
27.                         target.Price+=(arr[i][3]||0);//汇总总价
    
28.                         target.Count++;//个数计算，用来跟汇总单价计算均价
    
29.                 }else{
    
30.                         obj[arr[i][0]]={
    
31.                                 Number:arr[i][1]||0,
    
32.                                 Price:arr[i][3]||0,
    
33.                                 Count:1
    
34.                         }
    
35.                 }       
    
36.         }
    
37.         let i=2
    
38.         let brr=[];
    
39.         for (let myobj in obj)
    
40.         {
    
41.                 i++;
    
42.                 brr.push([myobj,obj[myobj].Number,(obj[myobj].Price/obj[myobj].Number).toFixed(2)]);//数组插入元素
    
43.         }
    
44.         brr.sort((a, b)=> {return b[2] - a[2];});//数组排序 降序
    
45.         Range("K3:M"+i).Value2=brr;//赋值
    
46.         test2();
    
47. }
    
48. function test2()
    
49. {
    
50.         Range("P3:T1000").ClearContents();
    
51.         let maxrow=Cells.Item(Rows.Count,3).End(3).Row;//读取C列最大非空行
    
52.         let arr=Range("A2:E"+maxrow).Value2;
    
53.         let obj={};//构造空对象
    
54.         for(let i=0;i<=maxrow-2;i++)
    
55.         {
    
56.                 if(arr[i][0]===undefined || arr[i][0]===null){arr[i][0]=arr[i-1][0];}//对空日期进行填充
    
57.                 if(arr[i][0] in obj)//判断日期是否存入对象
    
58.                 {
    
59.                                
    
60.                 }else{
    
61.                        
    
62.                 }
    
63.         }       
    
64.                        
    
65.         Range("P3:T"+i).Value2=brr;//输出分类汇总结果
    
66. }
    
67. 
    

复制代码

函数test是好久之前写好的分类汇总，现在需要新增一个以日期字段的分类汇总，不知道test2怎么实现这个功能，写了日期填充数组，B列是没有用处的，在想JSA有没有SQL之类的写法，简易实现这个需求，按照test写法又得嵌套一层对象，比较懂JSA的大佬，烦请指点一二！

Again123456

进出库存.rar (29.27 KB, 下载次数: 4)

2024-12-5 22:30 上传

点击文件名下载附件

不知是不是想要的，直接写代码的，没有验证结果哦

sj15627581616

Again123456 发表于 2024-12-5 22:31
不知是不是想要的，直接写代码的，没有验证结果哦

谢谢， 新需求用 在test基础上 日期+品种 组合字符串作为对象键值就可以了，主要还是想在JSA里面直接使用SQL语法，将数据转换为标准数据后，SQL写起来舒服很多

lizhipei78

Again123456 发表于 2024-12-5 22:31
不知是不是想要的，直接写代码的，没有验证结果哦

学习了Object作为参数可以提取需要的列