VBA多产品先进先出，求大神伸出援手！

笨鸟飞不高

先进先出-VBA.zip (23.97 KB, 下载次数: 13)

2024-5-23 14:51 上传

点击文件名下载附件

LIUZHU

参与一下，结果暂时不知道对不对

LIUZHU

JSA代码，先进先出法

1. function 先进先出法(){
   
2.         let arr=Sheets.Item("入库明细表").Range("a1").CurrentRegion.FormulaR1C1;
   
3.         let obj=arr.slice(1).reduce((obj,x)=>{
   
4.                 x[x.length]="=TODAY()-RC[-6]";                //库龄
   
5.                 let temp=obj[x[3]]=obj[x[3]] || [];
   
6.                 return (temp.push(x),obj);
   
7.         },{});
   
8.         Sheets.Item("出库明细表").Activate();
   
9.         let res=Range("a1").CurrentRegion.Value2;
   
10.         res.forEach((x,i)=>{
    
11.                 if (i<1) return;
    
12.                 let temp=obj[x[4]],sy=x[5]
    
13.                 for (let j=0;j<temp.length;j++){
    
14.                         let y=temp[j];
    
15.                         if (sy<=y[4]){
    
16.                                 x[6]=sy*y[5], y[4]-=sy;                //计算成本、更新库存
    
17.                                 break;
    
18.                         }else{
    
19.                                 x[6]=(x[6] || 0) + y[4]*y[5];                //计算成本、更新库存
    
20.                                 sy-=y[4], y[4]=0;
    
21.                         }
    
22.                 }
    
23.         });
    
24.         Range("a1").CurrentRegion.Value2=res;
    
25.         arr=arr.slice(1).filter(x=>x[4]!=0);
    
26.         with(Sheets.Item("想要的期末库存表")){
    
27.                 Range("2:"+ Math.max(2,Range("a"+ Rows.Count).End(xlUp).Row)).ClearContents();
    
28.                 Range("a2").Resize(arr.length-1,arr[0].length).Value2=arr;
    
29.         }
    
30. }

复制代码

LIUZHU

WPS打开审核附件，谢谢

LIUZHU

个人认为出库成本旁边应该要增加一个成本说明列，每一行的出库成本，均要说明由哪些入库成本组成，方便数据复核

shinechou86

突然发现公式处理起来也很丝滑，请测试。

Lisianthus1

笨鸟飞不高 发表于 2024-5-23 14:51

请问这是什么原因啊

shiruiqiang

Lisianthus1 发表于 2024-5-23 18:28
请问这是什么原因啊

Lisianthus1

shiruiqiang 发表于 2024-5-23 18:39

改成MSL了，但提示下标越界了

笨鸟飞不高

Lisianthus1 发表于 2024-5-23 18:28
请问这是什么原因啊

附件中我这边测试正常！对于你实际的附件，就不清楚了。。。