自动生成采购计划

yangqianming

需求：根据就餐日表的日期到餐谱中匹配对应星期几对应的食材数量乘以500转化成斤，
再乘以当日就餐人数，最后把所有就餐日的对应数量汇总写入到采购计划表中。

采购计划.rar (22.71 KB, 下载次数: 9)

2025-3-26 19:59 上传

点击文件名下载附件

tcdatongye

清风竹-

请看附件，DeepSeek加修改。

yangqianming

不会写用deepseek后修修补补才勉强跑通。

1. function huizong() {   
   
2.     let jiucanr = Sheets("就餐日").Range("A1").CurrentRegion().slice(1);              
   
3.     let canpu = Sheets("餐谱").Range("A1").CurrentRegion().slice(1);
   
4.     let dict = {};   
   
5.     jiucanr.forEach(row => {
   
6.         let date = new Date(row[0]);
   
7.         let weekDay = ["日","一","二","三","四","五","六"][date.getDay()];
   
8.         let weekDate = "星期" + weekDay;
   
9.         let people = Number(row[1]);        
   
10.         canpu.forEach(meal => {
    
11.             if (meal[0] === weekDate) {
    
12.                 let ingredient = meal[4];
    
13.                 let quantity = meal[5] * people / 500;               
    
14.                 dict[ingredient] = (dict[ingredient] || 0) + quantity;
    
15.             }
    
16.         });
    
17.     });   
    
18.     let res = Object.keys(dict).map(k => [k, dict[k]]);
    
19.     //res.sort((a,b) => a[0].localeCompare(b[0]));//听说排序影响速度就丢了吧   
    
20.     let total = res.reduce((sum, row) => sum + row[1], 0);
    
21.     res.push(["总计", total]);
    
22.     res.unshift(['品名','数量']);   
    
23.     let wsPlan = Sheets("采购计划");
    
24.     wsPlan.Range("A1:B999").Clear();
    
25.     wsPlan.Range("A1").Resize(res.length, 2).Value2 = res;
    
26. }

复制代码

yangqianming

清风竹- 发表于 2025-3-27 13:55
请看附件，DeepSeek加修改。

本来想用reduce但弄来弄去老是出错，关键是{}玩意儿我老是蒙

sunya_0529

yangqianming 发表于 2025-3-29 17:14
本来想用reduce但弄来弄去老是出错，关键是{}玩意儿我老是蒙

能自己搞定就好~

1. function 生成采购计划() {
   
2.     const price = {};
   
3.     const dic = Sheets('餐谱').Cells(1).CurrentRegion().slice(1).reduce((a, [A, , , , E, F, G]) => {
   
4.         a[A] ??= [];
   
5.         a[A].push([E, F]);
   
6.         price[E] ??= G;
   
7.         return a;
   
8.     }, {});
   
9.     const res = Object.entries(Sheets('就餐日').Cells(1).CurrentRegion().slice(1).reduce((a, [A, B]) => {
   
10.         let week = WorksheetFunction.Text(A, 'aaaa');
    
11.         dic[week].forEach(([food, weight]) => {
    
12.             a[food] ??= 0;
    
13.             a[food] += B * weight / 500;
    
14.         });
    
15.         return a;
    
16.     }, {})).map(([f, n]) => [f, n, 500 * price[f], n * 500 * price[f]]);
    
17.     res.sort((a, b) => b[3] - a[3]); // 按总价排序
    
18.     res.unshift(['品名', '数量(斤)', '单价(元/斤)', '总价(元)']); // 插入表头
    
19.     with (Sheets('采购计划').Cells(1).Resize(res.length, res[0].length)) {
    
20.         CurrentRegion.Clear();
    
21.         Value2 = res;
    
22.         Borders.LineStyle = xlContinuous;
    
23.     }
    
24. }

复制代码

lizhipei78

sunya_0529 发表于 2025-3-29 22:22
能自己搞定就好~

感觉你搞得有点复杂了