依据BOM一键生成配方表模版

excel玉米

你的要求是，在采购计划表中H列，依次按照前面的物料名称，填入前6个月的用量
前6个月的用量数据，在生产领料序时薄里，物料名称在h列，发货数量在k列，发货年月在M列？还是就直接按c列的日期？

excel玉米

对图猜一个，能否运行就看你自己了。

1. sub get_mon_6()       '求出近6个月使用量
   
2. dim arr,brr,i%,j%，my_month,my_year，my_y_m$
   
3. dim sh as worksheet,dic as object,key$
   
4. Set dic = CreateObject("Scripting.Dictionary")
   
5. my_year=year(now)         '得出现在的年份
   
6. my_month=month(now)       '得出现在的月份
   
7. for i=1 to 6
   
8.    If my_month - i < 1 Then
   
9.       my_year = my_year - 1
   
10.       my_month = my_month + 12
    
11.    End If
    
12.    my_y_m = my_y_m & "," & my_year & my_month - i '得出符合年月的字符串
    
13. next i
    
14. set sh=sheets("生产领料序时簿")
    
15. with sh
    
16.    brr=.usedrange
    
17.    for i=2 to ubound(brr)
    
18.       key=year(brr(i,3)) & month(brr(i,3))
    
19.       if instr(my_y_m$,key)>0 then           '当日期的月份在近6个月之内
    
20.              if not dic.exists(brr(i,7)) then                
    
21.                         dic(brr(i,7))=brr(i,11)
    
22.                  else
    
23.                     dic(brr(i,7))=dic(brr(i,7))+brr(i,11)    '合计求和
    
24.                  end if
    
25.           end if
    
26.    next i
    
27. end with
    
28. set sh=sheets("采购计划表（续订业务）")
    
29. with sh
    
30.   arr=.usedrange
    
31.   for i=2 to ubound(arr)
    
32.      if len(arr(i,1))>0 then .cells(i,8)=dic(arr(i,1))         '以物料长代码查找，速度要快些
    
33.   next i
    
34. end with
    
35. end if

复制代码