筛选个数据还出错

yu3924

let arr=Sheets('原数据').Range('a1').CurrentRegion.Value2.slice(1).filter(v=>v[0]>=sdate && v[0]<=edate)
这样写就能筛选出结果 日期虽然是数字 写入单元格设置一下单元格格式为日期就是和源数据一样的（格式刷刷一下）

yu3924

function 筛选汇总(){
        let [sdate,edate]=[Sheets('汇总').Range('b1').Value2,Sheets('汇总').Range('d1').Value2]
        let arr=Sheets('原数据').Range('a1').CurrentRegion.Value2.slice(1).filter(v=>v[0]>=sdate && v[0]<=edate)
        Range("g2").Resize(arr.length,5).Value2 = arr
}
就这样 写入g2后 你给g列设置下单元格格式为日期

cjc209

yangqianming 发表于 2024-12-14 11:08
我这样写也不对

new Date 出来的是以毫秒为单位的时间戳值 而表格的时间值是以天为单位的带小数点的数字 jsa的月是从0开始的

cjc209

与vba中的时间慨念不同 vba是表格原生的补充程序 与表格是一致的 他不需要差值计算的 在jsa中 js时间与表格的oA时间不是一回事

lizhipei78

改成这样子就可以了

yangqianming

可以了

1. function 筛选汇总(){
   
2.         let [sdate,edate]=[Sheets('汇总').Range('b1').Value(),Sheets('汇总').Range('d1').Value()]
   
3.         let arr=Sheets('原数据').Range('a1').CurrentRegion().slice(1).filter(v=>v[0]>=sdate && v[0]<=edate)
   
4.         let hj=['合计',0,null,0];
   
5.         arr=arr.reduce((p,[sj,pm,sl,dj,zj])=>(
   
6.                 //sj=WorksheetFunction.Text(sj,'yyyy-mm=dd'),//如果需要日期列把日期格式设置一下
   
7.                 p[pm]??=p.push([pm,0,0,0])-1,
   
8.                 p[p[pm]][1]+=sl,
   
9.                 p[p[pm]][2]=dj,
   
10.                 p[p[pm]][3]+=zj,
    
11.                 hj[1]+=sl,
    
12.                 hj[3]+=zj,
    
13.                 p),[['品名','总数量','单价','总金额']]);
    
14.                 arr.push(hj);
    
15.                 let rng=Sheets('汇总').Range('a2').Resize(arr.length,arr[0].length);
    
16.                 rng.Value2=arr;
    
17.                 rng.Columns.AutoFit();
    
18.                 rng.Borders.LineStyle=1;
    
19.                 rng.HorizontalAlignment=xlCenter;
    
20.                 alert('汇总完毕！')
    
21. }

复制代码

一江春水1688

先贴图，稍后贴上代码

一江春水1688

改成这样，就会自动转换格式了，不用刻意再转换成日期格式，代码如下：

1. function 筛选汇总__(){
   
2.     let [,sdate,,edate] = Sheets('汇总').Range('a1').CurrentRegion().flat();
   
3.     arr = Sheets('原数据').Range('a1').CurrentRegion().slice(1).filter(([v]) => v >= sdate && v <= edate)
   
4.     arr.forEach((x) => console.log(JSON.stringify(x)))
   
5. }

复制代码

一江春水1688

还可以写成这样，知识点参见【解构赋值】：

1. function 筛选汇总_(){
   
2.         let {1:sdate,3:edate} = Sheets('汇总').Range('a1').CurrentRegion().flat();
   
3.         arr = Sheets('原数据').Range('a1').CurrentRegion().slice(1).filter(([v]) => v >= sdate && v <= edate)
   
4.         arr.forEach((x) => console.log(JSON.stringify(x)))
   
5. }

复制代码

一江春水1688

贴代码要审核，贴图吧，两种写法：