如何通过订单明细和BOM生成制令明细表

yancjm

最近有这样一个需求，一个订单明细表，一个BOM表，想要通过订单明细和BOM表自动生成制令明细表，因好久没有摸电脑了，都生疏了，订单中制令号是唯一的，希望得到大家的协助！非常感谢！

yxbaju

个人认为用关系型数据库比如ACCESS，或者excel的query table做这个超级简单

yancjm

yxbaju 发表于 2018-11-3 15:29
个人认为用关系型数据库比如ACCESS，或者excel的query table做这个超级简单

的确是这样，但是还是EXCEL较常用，VBA学得不太好，感谢你的协助！

18080991314

1. Sub main()
   
2.     Dim wb As Workbook
   
3.     Dim arr, brr
   
4.     Set wb = ThisWorkbook
   
5.     arr = wb.Worksheets("订单").UsedRange
   
6.     brr = wb.Worksheets("BOM").UsedRange
   
7.    
   
8.     t = Time()
   
9.     m = 3
   
10.     With wb.Worksheets("制令明细")
    
11.     For i = 2 To UBound(arr, 1)
    
12.         For j = 2 To UBound(brr, 1)
    
13.             If arr(i, 4) = brr(j, 2) Then
    
14.                
    
15.                 .Range("a" & m) = arr(i, 1) '生产日期
    
16.                 .Range("b" & m) = arr(i, 2) '订单编号
    
17.                 .Range("c" & m) = arr(i, 3) '指令号
    
18.                 .Range("d" & m) = arr(i, 4) '母件料号
    
19.                 .Range("e" & m) = brr(j, 3) '子件料号
    
20.                 .Range("f" & m) = brr(j, 4) '品名规格
    
21.                 .Range("g" & m) = brr(j, 5) '用量
    
22.                 .Range("h" & m) = brr(j, 5) * arr(i, 5) '数量
    
23.                 m = m + 1
    
24.             End If
    
25.         Next
    
26.     Next
    
27.     End With
    
28.     t1 = Time()
    
29.     MsgBox "完成!"
    
30.    
    
31.    
    
32. End Sub
    

复制代码

HaleyKong

新订单明细与原订单明细字段一致，顺序不一样，字段减少。可以写个代码吗？

opiona

可参考这个，支持多级BOM：http://club.excelhome.net/forum. ... ead&tid=1445694