两表比对填写汇总模板

yangqianming

yangqianming 发表于 2025-3-1 12:05
发这里了，如果可以把就餐人数为0的对应未就餐名单清空，数据能按日期，部门升序排列一下，要很麻烦就 ...

已经发到您的邮箱了，麻烦老师！

Again123456

yangqianming 发表于 2025-3-1 09:00
老师厉害竟然把一餐刷两次卡的情况都给考虑到了，我验证了一下和您描述的相符，就是还有一个问题，如果当 ...

消费汇总模板.rar (16.33 KB, 下载次数: 5)

2025-3-1 15:46 上传

点击文件名下载附件

这你应该会啊

yangqianming

Again123456 发表于 2025-3-1 15:46
这你应该会啊

本来也是好奇跟着您入了个门，写了个报账表，1月份吃了大亏，就没敢在搞了，又都荒废了，再加上我这智商有限，这次又搞消费系统，这个表又不知怎么弄，想着又来求助大佬，感谢您又花费大量时间给予帮助！刚刚又测试了一下，感觉有一个地方好像还有点儿问题，2024-02-15日晚餐应该有很多人就餐但显示出来就餐人数都是0，也不知道为啥？数据未脱敏，我发给您，再帮我看看好吗？

sunya_0529

Try it again~

1. function 汇总消费数据() {
   
2.     const awf = Application.WorksheetFunction;
   
3.     const hcs = Sheets('信息表').Cells(1).CurrentRegion().slice(1).reduce((a, [A, B, C]) => {
   
4.         a[B] ??= A;        //以身份证号码为键，匹配姓名
   
5.         a[C] ??= [0, []];
   
6.         a[C][0]++;        //以部门为键，汇总人数
   
7.         a[C][1].push(B);        //以部门为键，收集身份证号码
   
8.         return a;
   
9.     }, {});
   
10.     const dpt = []; //储存部门列表
    
11.     for (let d in hcs) {
    
12.         if (typeof hcs[d] === 'object') dpt.push(d);
    
13.     }
    
14.     const dic = Sheets('订单表').Cells(1).CurrentRegion().slice(1).reduce((a, [A, B, C, D, E, , G, , , , , L]) => {
    
15.         let od = awf.Text(A, 'yyyy-mm-dd');
    
16.         a[od] ??= {};
    
17.         if (!a[od][E]) {        //按日期和部门汇总
    
18.             let str = E === '教职工' ? '' : hcs[E][1].join('、') + '、';
    
19.             a[od][E] = [hcs[E][0], str, 0, 0, str, 0, 0, str, 0, 0];        //初始化结果数组
    
20.         }
    
21.         let idx = ['早餐', '午餐', '晚餐'].indexOf(L) * 3 + 1;
    
22.         a[od][E][idx] = E === '教职工' ? a[od][E][idx] + '、' + C : a[od][E][idx].replace(B + '、', ''); //提取身份证号
    
23.         a[od][E][idx + 1] += Number(G);        //累加金额
    
24.         a[od][E][idx + 2]++; //统计人数
    
25.         return a;
    
26.     }, {});
    
27.     const res = [];
    
28.     for (let d in dic) {        //循环写入统计结果到res中
    
29.         dpt.forEach(d1 => {        //在部门列表中循环
    
30.             if (dic[d][d1]) {
    
31.                 let arr = dic[d][d1].map((v, j, brr) => {
    
32.                     return (j - 1) / 3 === parseInt((j - 1) / 3) && brr[j + 1] === 0 ? '' : String(v).split('、').filter(Boolean).map(s => hcs[s] || s).join('、');
    
33.                 });
    
34.                 res.push([d, d1, ...arr]);
    
35.             }
    
36.         });
    
37.     }
    
38.     res.sort((a, b) => a[0].localeCompare(b[0])); //按日期排序
    
39.     res.unshift(['日期', '部门', '人数', '早餐', , , '午餐', , , '晚餐'], [, , , ...Array(3).fill(['名单', '金额', '人数']).flat()]);
    
40.     Application.ScreenUpdating = false;
    
41.     with (Sheets('汇总表').Range('A2').Resize(res.length, res[1].length)) {
    
42.         CurrentRegion.Clear();
    
43.         Value2 = res;
    
44.         [...Rows(1).Cells].forEach(rng => {        //合并单元格
    
45.             if (rng() && !rng.Offset(1, 0)()) rng.Resize(2, 1).Merge();
    
46.             if (rng() && !rng.Offset(0, 1)()) rng.Resize(1, 3).Merge();
    
47.         });
    
48.         Rows('1:2').Font.Bold = true;
    
49.         Borders.LineStyle = xlContinuous;
    
50.         HorizontalAlignment = xlHAlignCenter;
    
51.         WrapText = true;
    
52.     }
    
53.     Application.ScreenUpdating = true;
    
54. }

复制代码

yangqianming

sunya_0529 发表于 2025-3-1 16:27
Try it again~

感觉到很神奇！谢谢！

Again123456

yangqianming 发表于 2025-3-1 16:13
本来也是好奇跟着您入了个门，写了个报账表，1月份吃了大亏，就没敢在搞了，又都荒废了，再加上我这智商 ...

哦，晚餐么？应该是8小时时区误差

你把时间time.toLocaleDateString() 改成WorkSheetFunction.Text(time,'yy-mm-dd')应该就行了。

Again123456

yangqianming 发表于 2025-3-1 16:13
本来也是好奇跟着您入了个门，写了个报账表，1月份吃了大亏，就没敢在搞了，又都荒废了，再加上我这智商 ...

8小时时区问题，我对表格的时间还是没搞明白

Again123456

wps表格时间通过JS读取时，会自动转化为本地时区时间，所以会多8个小时，必须减掉才能得到正确的结果。可能是根据内置浏览器和系统时区。

Again123456

yangqianming 发表于 2025-3-1 16:13
本来也是好奇跟着您入了个门，写了个报账表，1月份吃了大亏，就没敢在搞了，又都荒废了，再加上我这智商 ...

收到你的数据了，如果要表格自动换行的话，
加一句：Sheets('...').UsedRange.WrapText = true

yangqianming

Again123456 发表于 2025-3-1 17:51
收到你的数据了，如果要表格自动换行的话，
加一句：Sheets('...').UsedRange.WrapText = true

谢谢老师，这样改一下就好多了，Sheets('...').UsedRange.WrapText = true这句没起到作用。