两表比对填写汇总模板

Again123456

yangqianming 发表于 2025-3-1 19:01
谢谢老师，这样改一下就好多了，Sheets('...').UsedRange.WrapText = true这句没起到作用。

用你自己的代码，可以起作用啊？

yangqianming

Again123456 发表于 2025-3-1 19:43
用你自己的代码，可以起作用啊？

后来又可以了，但表显得太长了，所以改成了自适应单元格，让文字多的字缩小算了，这个表就只能这样弄，谢谢老师！每次都给我帮忙，实在是感谢！

Again123456

1. function 消费汇总(){
   
2.         Application.ScreenUpdating = false
   
3.         let dicDpm = {}, dicId = {}, data = {}, res = []
   
4.     Sheets('信息表').Range('a1').CurrentRegion().slice(1)
   
5.         .forEach(([name, id, dpm]) => {
   
6.             dicDpm[dpm] ??= [[],0];
   
7.             dicDpm[dpm][0].push(id);
   
8.             dicDpm[dpm][1]++;
   
9.             dicId[id] = name;         
   
10.         })
    
11.    Sheets('订单表').Range('a1').CurrentRegion().slice(1)
    
12.         .forEach(({0:time, 1:id, 2:name, 4:dpm, 5:am, 11:meal})=>{
    
13.             let date = WorksheetFunction.Text(time, 'yyyy/mm/dd')
    
14.             let key = date + dpm;
    
15.             data[key] ??= {
    
16.                 '日期': date,
    
17.                 '部门': dpm,
    
18.                 '人数': dicDpm[dpm][1],
    
19.                 '早餐': {'姓名':[], '人数':0, '金额':0},
    
20.                 '午餐': {'姓名':[], '人数':0, '金额':0},
    
21.                 '晚餐': {'姓名':[], '人数':0, '金额':0},
    
22.                 fill:function(meal,id,am){
    
23.                             this[meal].姓名.push(id);
    
24.                             this[meal].人数 ++;
    
25.                                    this[meal].金额 += Number(am)
    
26.                 }
    
27.             };
    
28.            data[key].fill(meal,id,am)         
    
29.         })
    
30.         for(let key in data){
    
31.                 let d= data[key];
    
32.                 ['早餐','午餐','晚餐'].forEach(meal =>
    
33.                          d[meal].姓名 = d.部门 == '教职工'
    
34.                         ? d[meal].姓名.map(id => dicId[id]).toString()
    
35.                         : d[meal].人数 == 0
    
36.                                 ? null
    
37.                                 : dicDpm[d.部门][0].filter(name => !d[meal].姓名.includes(name)).map(id => dicId[id]).toString()
    
38.                         );
    
39.         res.push([d.日期, d.部门, d.人数,
    
40.                       d.早餐.姓名, d.早餐.金额, d.早餐.人数,
    
41.                       d.午餐.姓名, d.午餐.金额, d.午餐.人数,
    
42.                       d.晚餐.姓名, d.晚餐.金额, d.晚餐.人数]);
    
43.     }
    
44.     Sheets('汇总表').UsedRange.Offset(3, 0).Clear();
    
45.     Sheets('汇总表').Range('a4').Resize(res.length, res[0].length).Value2 = res;
    
46.     Sheets('汇总表').Range('a4').Resize(res.length, res[0].length).Borders.LineStyle=xlContinuous;
    
47.     Sheets('汇总表').Range('a4').Resize(res.length, res[0].length).HorizontalAlignment =xlHAlignLeft;
    
48.     Sheets('汇总表').UsedRange.WrapText = true
    
49.     Application.ScreenUpdating = true
    
50. }
    

复制代码

.....删文件了

yangqianming

Again123456 发表于 2025-3-1 20:22
.....删文件了

这代码太牛气了，用着真舒服，数据量超过20000时有点卡，虽然没能学会但感觉js的威力还是很厉害！感谢！感谢！感谢！

yangqianming

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

经过反复核对数据准确的很，数据量太略显卡顿，总的来说太牛了，感谢！感谢！