VBA编程技巧之堆栈在树形结构中使用的实例（BOM、树形图等）

lee1892 · 发表于 2014-11-24 11:29

hncslxf 发表于 2014-11-24 10:15
Lee 1892您好！
您的“堆栈在树形结构中使用的实例 By Lee1892”在工作中非常有用，我将其用于产品BOM上， ...

你数据里的名称栏有重复的，生成的文本框是用这个名称作为名字的，创建连线时是用这个名称索引文本框，所以总是连重复名称的第一个。

把起文本框名称的语句前加上行号，同样的获得父节点文本框名称前同样的加上就可以了。

比如：

...
'获得节点框名称
sName = iRow & "-" & Cells(iRow, TR_COL_INDEX).Text
...
'获得父节点框名称
sParentName = iParent & "-" & Cells(iParent, TR_COL_INDEX).Text
...

复制代码

lee1892 · 发表于 2014-11-24 11:48

E大虾发表于 2014-11-20 11:00
你好！非常感谢您分享这个表，这个非常有用，我现在髟用你这个程序做BOM 以及MRP ，但发现一个问题，
当同 ...

貌似在处理堆栈时有问题，感觉当时写这个代码时根本就没有仔细测试过，而且用字典模拟堆栈似乎不是很好用。

看来有不少人将这个代码几乎毫无变动的直接使用，有必要重新写一个更通用的才好。

你的问题，可以临时改动一下代码：

...
'如果前一节点在堆栈内，且前一节点级数同当前节点，则将前一节点从堆栈内删除
If dic.exists(i - 1) Then
If dic(i - 1) = iLevelNow Then dic.Remove i - 1: iLevelLast = iLevelLast - 1
End If
...

复制代码

iLevelLast 减1 那个是增加的。

hncslxf · 发表于 2014-11-24 11:57

感谢Lee 1892的帮助，但似乎还有点小问题：
好象在Sub CalculationAndDrawTree()中的
If iLevelNow >iLevelLast Then 要改成：
If iLevelNow >=iLevelLast Then 划线才会完全正确。
请Lee 1892专家确认一下，是不是这样？谢谢！

hncslxf · 发表于 2014-11-24 13:34

经过我的一个实际案例测试，好象当层级到9时会出现错误提示（400错误），当在少于等于8级时不会出现问题。
Lee 1892专家：是否还能教我一下？

感谢！

E大虾 · 发表于 2014-11-25 17:10

lee1892 发表于 2014-11-24 11:48
貌似在处理堆栈时有问题，感觉当时写这个代码时根本就没有仔细测试过，而且用字典模拟堆栈似乎不是很好用 ...

太感谢您的帮助了！

Ricky_zhaoo · 发表于 2015-9-26 08:14

BOM结构，必须留记～

hu-xiaolin · 发表于 2015-10-14 10:08

这个正好是我要找的，BOM展开正好用

yuwenxuan0904 · 发表于 2016-3-1 13:00

哇，又见到好东东了，版主好厉害，收走试用，有问题来找版主哦

meng196391 · 发表于 2016-4-11 15:11

世系图.rar (311.67 KB, 下载次数: 180)

利用大侠的树状结构做了一个家谱世系图，但在运行生成世系图代码时，出现错误400，虽然按确定后还能生成世系图，但还是请大侠能帮忙查找一下错误。多谢！

laojiu369 · 发表于 2016-6-20 06:48

meng196391 发表于 2016-4-11 15:11
利用大侠的树状结构做了一个家谱世系图，但在运行生成世系图代码时，出现错误400，虽然按确定后还 ...

Excel 的Outline大纲级别限制

		自动登录	找回密码
密码			免费注册

[原创] VBA编程技巧之堆栈在树形结构中使用的实例（BOM、树形图等）

评分

点评

点评

[原创] VBA编程技巧 之 堆栈在树形结构中使用的实例 （BOM、树形图等）

评分

点评

点评

[原创] VBA编程技巧之堆栈在树形结构中使用的实例（BOM、树形图等）