BOM树形结构转化成父子结构（带数量）

liubiao6688

请教下，各位，如何把bom的树形结构转成父子结构，同时组件的用量也计算出来。父件的基本数量都为1
具体案例见附件。


之前看到过某位大神的案例，但是没有数量。。。

liubiao6688

不能沉下去啊，自顶

microyip

1. Sub 转父子结构()
   
2.     Dim vData As Variant, iData As Integer
   
3.     Dim sName(1 To 3) As String, iName As Integer
   
4.    
   
5.     Application.ScreenUpdating = False
   
6.     vData = [J1:L1].Value
   
7.     [J:L].ClearContents
   
8.     [J1:L1] = vData
   
9.     vData = [A1].CurrentRegion.Value
   
10.     For iData = 1 To UBound(vData)
    
11.         For iName = 1 To 2
    
12.             If vData(iData, iName) <> "" Then Exit For
    
13.         Next
    
14.         sName(iName) = vData(iData, iName + 1)
    
15.         If iName > 1 Then
    
16.             With [J65536].End(xlUp)
    
17.                 .Offset(1, 0) = sName(iName - 1)
    
18.                 .Offset(1, 1) = sName(iName)
    
19.                 .Offset(1, 2) = vData(iData, 5)
    
20.             End With
    
21.         End If
    
22.     Next
    
23.     Application.ScreenUpdating = True
    
24. End Sub

复制代码

microyip

附上附件以供参考

liubiao6688

你好，有两个地方还需要再完善一下，请再帮忙看下

liubiao6688

microyip 发表于 2016-9-30 09:12
附上附件以供参考

你好，有两个地方还需要再完善一下，请再帮忙看下

microyip

liubiao6688 发表于 2016-9-30 13:44
你好，有两个地方还需要再完善一下，请再帮忙看下

第一，你设置一下排序代码就好啦，第二，你的数值有说明过怎样得出来的吗？所以我只能照抄你原来的数值

liubiao6688

microyip 发表于 2016-9-30 13:47
第一，你设置一下排序代码就好啦，第二，你的数值有说明过怎样得出来的吗？所以我只能照抄你原来的数值

在树形结构里是2个B2需要4个C1和6个C2，所以得出1个B2需要2个C1和3个C2

microyip

liubiao6688 发表于 2016-9-30 14:47
在树形结构里是2个B2需要4个C1和6个C2，所以得出1个B2需要2个C1和3个C2

1. Sub 转父子结构()
   
2.     Dim vData As Variant, iData As Integer
   
3.     Dim sName(1 To 3) As String, iName As Integer
   
4.     Dim iNum(1 To 3) As Double
   
5.    
   
6.     Application.ScreenUpdating = False
   
7.     vData = [J1:L1].Value
   
8.     [J:L].ClearContents
   
9.     [J1:L1] = vData
   
10.     vData = [A1].CurrentRegion.Value
    
11.     For iData = 1 To UBound(vData)
    
12.         For iName = 1 To 2
    
13.             If vData(iData, iName) <> "" Then Exit For
    
14.         Next
    
15.         sName(iName) = vData(iData, iName + 1)
    
16.         iNum(iName) = vData(iData, 5)
    
17.         If iName > 1 Then
    
18.             With [J65536].End(xlUp)
    
19.                 .Offset(1, 0) = sName(iName - 1)
    
20.                 .Offset(1, 1) = sName(iName)
    
21.                 .Offset(1, 2) = iNum(iName) / iNum(iName - 1)
    
22.             End With
    
23.         End If
    
24.     Next
    
25.     [J:L].Sort Key1:=[J2], Order1:=xlAscending, Key2:=[K2], Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
    
26.         Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
    
27.     Application.ScreenUpdating = True
    
28. End Sub

复制代码

microyip

附上新附件以供参考