紧急求助大师BOM需展开

michaelaa

liulang0808 发表于 2019-1-10 21:19
不好意思，跟楼主不是一个专业的，对bom不了解的，所以还是看不大懂的

老师，

这个代码可以实现，但是如果品名重复的，只能读取最前面的那个，我想实现顺序的，用Find也是只能读取一条
Sub dsmch()
Dim arr, brr, crr, d, i&, j%, k%, s&
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("c1").CurrentRegion
brr = Sheet2.Range("f1").CurrentRegion
ReDim crr(1 To 60000, 1 To 6)
For i = 2 To UBound(brr)
    d(brr(i, 1)) = d(brr(i, 1)) & "," & i
Next
For i = 2 To UBound(arr)
    x = Split(d(arr(i, 1)), ",")
    For j = 1 To UBound(x)
        s = s + 1: s2 = Val(x(j))
        For k = 1 To UBound(brr, 2)
            crr(s, k) = brr(s2, k)
        Next
        crr(s, 5) = arr(i, 4) * crr(s, 3)
        crr(s, 6) = arr(i, 2)
    Next
Next
Sheet3.Activate
[j3:o20000].Clear
Range("j3").Resize(s, 6) = crr
[o:o].NumberFormatLocal = "m""月""d""日"";@"
End Sub

解0人

1. Sub test()
   
2.     With Sheets("需求展开")
   
3.         .Range(.[C3], .Cells(Rows.Count, "H").End(xlUp)).Clear
   
4.     End With
   
5.     With CreateObject("ADODB.Connection")
   
6.         .Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended properties='Excel 8.0;hdr=yes';data source=" & ThisWorkbook.FullName
   
7.         Sheets("需求展开").[C3].CopyFromRecordset .Execute("select 母件规格型号,子件规格型号,子件用量,单位,工单数量*子件用量 as 总量,工单开始日期 from [需求$],[BOM1$] where 母件规格型号=产品号")
   
8.         .Close
   
9.     End With
   
10. End Sub

复制代码

dsmch

模拟的结果就是重复的
T206DA15        GB/T97.1-2002        9.0000
T206DA15        GB/T97.1-2002        5.0000
子件规格型号有重复到底取哪一个？

解0人

↓↓↓↓↓

michaelaa

dsmch 发表于 2019-1-11 10:17
模拟的结果就是重复的
T206DA15        GB/T97.1-2002        9.0000
T206DA15        GB/T97.1-2002     ...

老师不是子件重复就是主件重复，比如说有两个主件T206DA15，我还是要按顺序展开，不是只提取一个，子件都要提取的。
产品号        工单开始日期        工单结束日期        工单数量        未结数量
T206DA15        1月20日        1月30日        100        100
T306DA17        1月21日        1月31日        200        200
T306DA18        1月22日        2月1日        300        300
T306DA19        1月23日        2月2日        400        400
T306DA15        1月24日        2月3日        500        500

michaelaa

解0人 发表于 2019-1-11 10:18
↓↓↓↓↓

老师，下载了报错。我是excel 2013

dsmch

michaelaa 发表于 2019-1-11 11:27
老师不是子件重复就是主件重复，比如说有两个主件T206DA15，我还是要按顺序展开，不是只提取一个，子件都 ...

我的附件有你的模拟结果，请对照结果说明问题

michaelaa

dsmch 发表于 2019-1-11 10:17
模拟的结果就是重复的
T206DA15        GB/T97.1-2002        9.0000
T206DA15        GB/T97.1-2002     ...

谢谢老师，我再看一下，因为你的附件下载了，宏全部丢失了。

michaelaa

dsmch 发表于 2019-1-11 05:31

老师，(brr, 2)的子件由于存在纯数字的，我需要转换一下，加'转换成文本，但是我加进去就出错，这加在哪里比较合适？

dsmch

用附件模拟一下出错结果，没有附件不知所云。