树状BOM

68301367

父阶	序号	名称
0	1	面条组件
1	1.1	显示板组件
1.1	1.1.1	PCB 板组件
1.1.1	1.1.1.1	PCB
1.1.1	1.1.1.2	IC
1.1	1.1.2	显示屏
1.1	1.1.3	背光
1	1.2	面板
1	1.3	开关组件
1.3	1.3.1	开关
1.3	1.3.2	排线
1.3	1.3.3	热收缩管

   如表所示，BOM总有很多阶层，全部显示，很麻烦，有没有办法做出树状结构。

蓝桥玄霜

请见附件。

68301367

蓝桥玄霜 发表于 2016-4-16 16:49
请见附件。

谢谢蓝大大，基本实现了我想要的功能，但怎么样可以让TreeView跟数据表同步。
也就是TreeView上隐藏的，数据表也是隐藏的，如果TreeView上显示的，数据表上也是显示。

aman1516

简单些就直接用数据里面的组合分级显示呗

68301367

aman1516 发表于 2016-4-16 23:44
简单些就直接用数据里面的组合分级显示呗

试过组合分级，但BOM数据量大，而且手动分级，容易出问题。所以才上来请教大家的

68301367

怎么样可以让TreeView跟数据表同步。
也就是TreeView上隐藏的，数据表也是隐藏的，如果TreeView上显示的，数据表上也是显示

yjh_27

68301367 发表于 2016-4-18 08:02
试过组合分级，但BOM数据量大，而且手动分级，容易出问题。所以才上来请教大家的

一键分级显示。

68301367

谢谢大家的帮助，现在已经完成了，跟大家分享一下

Dim Z As Integer, Y As Integer, Ii As Integer, Iii As Integer
  Dim M As Integer, N As Integer, Cs As Integer
  X = Range("c65536").End(xlUp).Row
  Y = Range("A65536").End(xlUp).Row
  Z = Range("D65536").End(xlUp).Row

  N = 0
  'MsgBox N & "/" & M
    For I = 9 To Y
    If Range("A" & I).Value = "" Then
    Exit For
             ElseIf Range("A" & I).Value = Range("D5").Value Then
                    N = N + 1
                    Range("c" & I).Value = N
                    Range("b" & I).Value = 1
                    End If
        For Ii = 9 To Z

                  
          If Range("A" & I).Value = Range("D" & Ii).Value Then
          M = 0
                For Iii = 9 To I
                  If Range("A" & I).Value = Range("a" & Iii).Value Then M = M + 1
                    
                    Next
                    
                    Range("c" & I).Value = Range("c" & Ii).Value & "," & M
                    Range("b" & I).Value = Cx(Range("c" & I).Value, ",") + 1
                     Exit For
            End If
        
        Next
    Next

kaclzj

1. Dim Z As Integer, Y As Integer, Ii As Integer, Iii As Integer
   
2.   Dim M As Integer, N As Integer, Cs As Integer
   
3.   X = Range("c65536").End(xlUp).Row
   
4.   Y = Range("A65536").End(xlUp).Row
   
5.   Z = Range("D65536").End(xlUp).Row
   
6. 
   
7.   N = 0
   
8.   'MsgBox N & "/" & M
   
9.     For I = 9 To Y
   
10.     If Range("A" & I).Value = "" Then
    
11.     Exit For
    
12.              ElseIf Range("A" & I).Value = Range("D5").Value Then
    
13.                     N = N + 1
    
14.                     Range("c" & I).Value = N
    
15.                     Range("b" & I).Value = 1
    
16.                     End If
    
17.         For Ii = 9 To Z
    
18. 
    
19.                   
    
20.           If Range("A" & I).Value = Range("D" & Ii).Value Then
    
21.           M = 0
    
22.                 For Iii = 9 To I
    
23.                   If Range("A" & I).Value = Range("a" & Iii).Value Then M = M + 1
    
24.                     
    
25.                     Next
    
26.                     
    
27.                     Range("c" & I).Value = Range("c" & Ii).Value & "," & M
    
28.                     Range("b" & I).Value = Cx(Range("c" & I).Value, ",") + 1
    
29.                      Exit For
    
30.             End If
    
31.         
    
32.         Next
    
33.     Next

复制代码

ebom

68301367 发表于 2016-5-24 14:26
谢谢大家的帮助，现在已经完成了，跟大家分享一下

Dim Z As Integer, Y As Integer, Ii As Integer, Iii ...

有没有完整的代码阿，我直接复制后提示子函数或过程未定义。谢谢
我也在整理BOM的序号和分组