树形结构在excel中的实现及利用

wzsy2_mrf

废话不说，看得懂自然看得懂，看不懂说了也白说：
下面举三例，有心人自己揣摸可也。

附件一：树形节点的构建及递归汇总： 树形节点构建递归汇总.zip (16.27 KB, 下载次数: 3657)

2014-8-4 20:32 上传

点击文件名下载附件

wzsy2_mrf

附件2：树形 多级有效性

wzsy2_mrf

附件3:树形多级汇总表

wzsy2_mrf

二叉递归计算混排数字
大小中文数字，阿拉伯数字任你混写，没有什么不能转。附件如下：

aman1516

wzsy2_mrf 发表于 2014-8-4 20:33
附件2：树形 多级有效性

谢谢分享，树形 多级有效性 中点击E列时出错（光是调小列距或隐藏不是办法），还是用个容错代码或判断解决掉吧，小BUG

wzsy2_mrf

aman1516 发表于 2014-8-5 10:46
谢谢分享，树形 多级有效性 中点击E列时出错（光是调小列距或隐藏不是办法），还是用个容错代码或判断解决 ...

加一点容错代码即可：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim str$, k&
   
3.     If Target.Cells.count > 1 Then Exit Sub
   
4.     If Target.Column > 1 Then
   
5.         If Target.Offset(0, -1).Value = "" Then Exit Sub
   
6.     End If
   
7. 
   
8.     With mt    '树初始化
   
9.         .count = 0
   
10.         Set .d = Nothing
    
11.         Erase .md
    
12.     End With
    
13. 
    
14.     Call buildTree    '建树
    
15.     If Target.Column = 1 Then
    
16.         With Target.Validation
    
17.             .Delete
    
18.             .Add 3, 1, 1, Join(mt.root, ",")
    
19.         End With
    
20.     End If
    
21.     If Target.Column > 1 Then
    
22.         With Target.Validation
    
23.             .Delete
    
24.             str = ""
    
25.             For k = 1 To Target.Column
    
26.                 str = str & "" & Target.Offset(0, k - Target.Column).Value
    
27.             Next
    
28.             With mt
    
29.                 str = Right(str, Len(str) - 1)
    
30.                 If .d.Exists(str) Then
    
31.                     str = .md(.d(str)).mParent
    
32.                     str = Replace(.md(.d(str)).son, "~#", ",")
    
33.                 Else
    
34.                     str = ""
    
35.                 End If
    
36.             End With
    
37.             If str <> "" Then .Add 3, 1, 1, str
    
38.         End With
    
39.     End If
    
40. End Sub
    
41. 
    

复制代码

百度不到去谷歌

学习了  vba里做数据结构的很少  好的数据结构可以省去很多重复的繁琐工作这个如果理解的话 可以很好应用于多级菜单联动，bom计算等有分级数据结构的情况

wzsy2_mrf

百度不到去谷歌 发表于 2014-8-6 07:27
学习了  vba里做数据结构的很少  好的数据结构可以省去很多重复的繁琐工作这个如果理解的话 可以很好应用于 ...

多谢。 在这里能讨论数据结构的太少了，其实何止数据结构，真正讨论技术的也不多，伸手党倒是遍地都是。
其实我很希望有人指出这个树形结构设计的不足，以我所举几例而论，每例都得有所损益，这似乎是个不足。我实际是想用户这种结构来解决BoM问题，但BoM问题很特殊，多个父部件可以拥有同一子部件，如何区分是个难题，做到了区分如何提高设计效率也是问题，总不能同一子部件出现一次就重算一次吧？

百度不到去谷歌

wzsy2_mrf 发表于 2014-8-6 10:10
多谢。 在这里能讨论数据结构的太少了，其实何止数据结构，真正讨论技术的也不多，伸手党倒是遍地都是。
...

我最近做代码助手 用了目录树 他那个就是典型的树结构的
我想稍后做一个类 结构类似与目录树控件
将里面加入方法
比如载入数组生成树 从树生成数组等
更新单个节点 导出单个节点
输入输出单元格区域 生成菜单 ==

wzsy2_mrf

百度不到去谷歌 发表于 2014-8-6 10:26
我最近做代码助手 用了目录树 他那个就是典型的树结构的
我想稍后做一个类 结构类似与目录树控件
将里面 ...

如果能封装成树类，那当然好。但问题在于关于树问题的原初存储结构，属性要求千奇百怪，设置得多了影响效率，少了又很难通用，有点两难。