紧急求助大师BOM需展开

michaelaa

求老师看一下，帮忙指点一下，万分感谢!

不知道为什么

哎，看不明白什么意思

michaelaa

不知道为什么 发表于 2019-1-10 19:16
哎，看不明白什么意思

<需求>表格里面的是产品的需求，我要转换成物料需求到<需求展开>表格,
就是每个成品顺序展开，然后总量=BOM用量*产品的需求，
不知道我这样解释是否明白
最终的结果是<需求展开>表格里面的内容
我想要的是顺序展开，并且重复的不能剔除，还是依次展开，不累加

michaelaa

有老师有空看一下吗

liulang0808

michaelaa 发表于 2019-1-10 19:59
有老师有空看一下吗

表格之间数据的关联关系实现方法不了解
看不大懂

michaelaa

liulang0808 发表于 2019-1-10 20:17
表格之间数据的关联关系实现方法不了解
看不大懂

需求展开表里面所有的数据都是调用另外两个表格的，需求表格里面数据是输入的，按下按钮得到需求展开的数据
将每个产品逐一的展开BOM，就是调用BOM里面的数据，BOM用量乘以需求量。

liulang0808

michaelaa 发表于 2019-1-10 20:48
需求展开表里面所有的数据都是调用另外两个表格的，需求表格里面数据是输入的，按下按钮得到需求展开的数 ...

不好意思，跟楼主不是一个专业的，对bom不了解的，所以还是看不大懂的

dsmch

1. Sub dsmch()
   
2. Dim arr, brr, crr, d, i&, j%, k%, s&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("c1").CurrentRegion
   
5. brr = Sheet2.Range("f1").CurrentRegion
   
6. ReDim crr(1 To 60000, 1 To 6)
   
7. For i = 2 To UBound(brr)
   
8.     d(brr(i, 1)) = d(brr(i, 1)) & "," & i
   
9. Next
   
10. For i = 2 To UBound(arr)
    
11.     x = Split(d(arr(i, 1)), ",")
    
12.     For j = 1 To UBound(x)
    
13.         s = s + 1: s2 = Val(x(j))
    
14.         For k = 1 To UBound(brr, 2)
    
15.             crr(s, k) = brr(s2, k)
    
16.         Next
    
17.         crr(s, 5) = arr(i, 4) * crr(s, 3)
    
18.         crr(s, 6) = arr(i, 2)
    
19.     Next
    
20. Next
    
21. Sheet3.Activate
    
22. [j3:o20000].Clear
    
23. Range("j3").Resize(s, 6) = crr
    
24. [o:o].NumberFormatLocal = "m""月""d""日"";@"
    
25. End Sub

复制代码

dsmch

……………………

michaelaa

dsmch 发表于 2019-1-11 05:32
……………………

老师，谢谢你的解答，有两个问题
1.就是如果品名是重复的，只会取第一个
2.为什么我运行完之后还是显示在需求表格