[原创]递归实现完美版N级级联菜单,自动去重,自适应级数

百度不到去谷歌 · 发表于 2014-3-13 14:44

本帖最后由百度不到去谷歌于 2014-3-13 17:57 编辑

很多人都写了多级列表,不过都是3级四级
去年年底我就想写一个N级的于是和我老婆一起想,她算法比较好,写了核心递归算法,
这个算法可以生成数据表中N列对应的N级菜单 ,增加减少列重新生成即可
普通的弹出菜单,每次都会给出全部列表来选择,我这个的特别在于
当重新修改数据时
当你选择2级的时候会自动根据1级已经填好的给你对应的2-n级菜单
依次类推到N列选择单元格就弹出根据已填的N-1级数据生成对应的子菜单这样就避免了每次都从顶级开始选择
修改数据更加方便
顺便打个广告 excel爱好者群 165159540 本群专业excle灌水群水平高低无所谓吹牛聊天最欢迎
N级列表菜单.GIF

版权所有百度不到去谷歌 qq80871835
附件无需解压,直接修改后缀为.xls即可直接打开

VBA-小贝+百度 N级菜单.rar (528.5 KB, 下载次数: 4302)

一指禅62 · 发表于 2014-3-13 14:58

收藏了。学习ING

VBA万岁 · 发表于 2014-3-13 15:17

高手！可谓多极菜单中的极品！

AVEL · 发表于 2014-4-10 09:50

呃附件好像有点问题。。下载打开出错。

百度不到去谷歌 · 发表于 2014-4-10 10:02

AVEL 发表于 2014-4-10 09:50
呃附件好像有点问题。。下载打开出错。

红字儿怎么不看清楚呢下载时文件名直接改为.xls

AVEL · 发表于 2014-4-10 10:10

百度不到去谷歌发表于 2014-4-10 10:02
红字儿怎么不看清楚呢下载时文件名直接改为.xls

-_-||| 没注意。。

liucqa · 发表于 2014-4-10 10:38

2010下报错，是不是给03写的？

百度不到去谷歌 · 发表于 2014-4-10 10:41

liucqa 发表于 2014-4-10 10:38
2010下报错，是不是给03写的？

07写的 10没测试

onthetrip · 发表于 2014-4-10 11:36

对比一下我自己写的多级菜单代码,太恶心了.
拿来用了,谢谢楼主

h3533 · 发表于 2014-4-10 13:18

点表格提示出错“无效的调用参数”，调试停在Set subB = CommandBars("myCell")

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

[原创]递归实现完美版N级级联菜单,自动去重,自适应级数

评分