多级菜单（数据有效性）终极方案【VBA】

YZC51 · 发表于 2019-12-4 11:26

bobaby88 发表于 2019-12-4 09:02
楼主，小妹是VBA小白一枚，尚未看懂啊，请赐教啊！楼主这个多级菜单着实解决了我实际问题，就是想在前面 ...

上传附件附件，老师们才好帮你！

Yoon1224 · 发表于 2019-12-4 12:24

不错，下载学习了

拼音佳佳 · 发表于 2019-12-4 12:31

我前几天做了个二级的练手,想做5级(省,地级市,区县,乡镇,村),结果程序报错,研发失败,暂时放弃了...
实现方法:直接录制有效性的宏,然后将范围做成动态代码.

学不完用不尽 · 发表于 2019-12-4 12:55

标记一下。

山菊花 · 发表于 2019-12-4 14:17

拼音佳佳发表于 2019-12-4 12:31
我前几天做了个二级的练手,想做5级(省,地级市,区县,乡镇,村),结果程序报错,研发失败,暂时放弃了...
实现方 ...

这个模板的优点就是适用于多级的数据有效性，3级、4级、5级、6级……都行，修改的地方就是数据的引用与当前级数nL。
示例：
动态五级下拉菜单，各位进来研究一下
http://club.excelhome.net/thread-1573879-1-1.html
(出处: ExcelHome技术论坛)

山菊花 · 发表于 2019-12-4 14:30

bobaby88 发表于 2019-12-4 09:02
楼主，小妹是VBA小白一枚，尚未看懂啊，请赐教啊！楼主这个多级菜单着实解决了我实际问题，就是想在前面 ...

数据有效性列从D列开始，那么，下一行：
If Target.Row = 1 Or Target.Column > 4 Or Target.CountLarge > 1 Then Exit Sub
需要修改为：
If Target.Row = 1 Or Target.Column < 4 Or Target.Column > 7 Or Target.CountLarge > 1 Then Exit Sub

其次，下一行：
nL = Target.Column
需要修改为：
nL = Target.Column-3 ‘当前级数

最后，下一行代码：
sj = Range("a" & Target.Row).Resize(1, 3).Value
需要修改为：
sj = Range("d" & Target.Row).Resize(1, 3).Value
后面的3适用于四级菜单，如果是五级菜单则改为4，如此类推，三级改为2。

龍膽草 · 发表于 2019-12-4 14:58

老师厉害！排队学习！

pandy99 · 发表于 2019-12-4 18:09

感谢分享，学习了

864163213 · 发表于 2020-5-12 08:15

学习了，先收藏

shenjianrong163 · 发表于 2020-5-12 08:42

山版主真厉害，简短的代码，轻松实现四级菜单！

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

[分享] 多级菜单（数据有效性）终极方案【VBA】