多级联动菜单的解决方案

一指禅62 · 发表于 2014-1-6 23:03

本帖最后由一指禅62 于 2014-1-9 22:56 编辑

重要提示：Treeview控件是非标准控件，下载文件不能正常使用时请检索网上的解决方案。

这是一个截图：
QQ截图20140106224859.png

多级联动的科目树方法.zip (27.13 KB, 下载次数: 1549)

补充内容 (2014-3-25 10:29):

47楼优化了代码

补充内容 (2016-4-8 10:29):
同类解决方案

http://club.excelhome.net/forum. ... p;extra=#pid8627317

zhaogang1960 · 发表于 2014-1-6 23:26

谢谢分享，学习了

龙蒙山 · 发表于 2014-1-7 08:35

点击H列为什么也显示窗体？

w3445128 · 发表于 2014-1-7 09:33

麻烦问下，怎样让B列显示最后一个子项，就是不需要联动，谢谢诶

一指禅62 · 发表于 2014-1-9 17:36

本帖最后由一指禅62 于 2014-1-9 17:37 编辑

多级联动的解决方法.zip (36.24 KB, 下载次数: 490)

QQ图片20140109172825.jpg

zhaogang1960 · 发表于 2014-1-9 17:41

一指禅62 发表于 2014-1-9 17:36

我的意思是不直接使用单元格sh.Cells(i, 1)，把 Sheets("字典")数据区域写入数组，用数组处理数据速度要快很多

一指禅62 · 发表于 2014-1-9 17:42

w3445128 发表于 2014-1-7 09:33
麻烦问下，怎样让B列显示最后一个子项，就是不需要联动，谢谢诶

复制代码

一指禅62 · 发表于 2014-1-9 17:45

本帖最后由一指禅62 于 2014-1-9 23:03 编辑

zhaogang1960 发表于 2014-1-9 17:41
我的意思是不直接使用单元格sh.Cells(i, 1)，把 Sheets("字典")数据区域写入数组，用数组处理数据速度要快 ...

我是这样做的，在Form2中：

Dim R As Long, a
R = Sheets("字典").Range("A65536").End(3).Row
a = Sheets("字典").Range("A2:G" & R).Value

谢谢赵老师的关注！

一指禅62 · 发表于 2014-1-9 17:50

龙蒙山发表于 2014-1-7 08:35
点击H列为什么也显示窗体？

一指禅62 · 发表于 2014-1-9 17:51

一指禅62 发表于 2014-1-9 17:45
我是这样这样做的，在Form2中：

Dim R As Long, a

好的，赵老师。谢谢！

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

[原创] 多级联动菜单的解决方案