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

365074907 · 发表于 2022-8-6 11:02

山菊花发表于 2022-8-5 13:08
楼上已经回复。
或者Arr=range("a1")……不变
下面for一句改为：for i=6 to nrow也可以。

VBA大侠你好！下面for一句改为：for i=6 to nrow是从《基础》工作表取数起始行由第2行改为第6行。我要达到目的是在《查询》工作表中，由原A2作起始位置点击后显示倒三角选择内容输入，变更为E6作起始位置点击后显示倒三角选择内容输入，第1行至第5行点击后不显示倒三角，（因第1行至第5行有固定内容不需要选择性输入内容），请问此VBA代码如何更改？感谢！感谢！再感谢！

365074907 · 发表于 2022-8-7 07:53

365074907 发表于 2022-8-6 10:32
VBA大侠你好！for一句改为：for i=6 to nrow后是取《基础》工作表数据从第六行开始，我要的是《查询》工 ...

只要在查询工作表代码中的私有的工作表改变过程和私有的工作表激活改变过程,在判断语句中添加目标行<5就行了.

365074907 · 发表于 2022-8-7 08:10

365074907 发表于 2022-8-6 11:00
VBA大侠你好！下面for一句改为：for i=6 to nrow是从《基础》工作表取数起始行由第2行改为第6行。我要达到 ...

If Target.Row = 1 Or nL > 3 Or Target.CountLarge > 1 Then Exit Sub改为 If Target.Row < 7 Or Target.Row > 26 Or Target.Column < 6 Or Target.Column > 9 Or Target.CountLarge > 1 Then Exit Sub后，取值选择性输入行在第7行至26行、列在第6列至第9列范围内。第2个过程的判断语句也要这样更改。

yeaoog · 发表于 2022-8-7 08:22

谢谢老师分享！！！

365074907 · 发表于 2022-8-7 14:09

YZC51 发表于 2019-12-3 14:10
学习老师的优秀作品。学生上交作业，烦请老师斧正。谢谢老师！

VBA不太会66 · 发表于 2022-11-22 10:49

大佬的终极方案特别好,能否补全下,小弟有个需求终极方案不太能满足,需要二级三级菜单实现多选

求助版主大大和各位大佬
需求功能如下:
1:一级菜单单项选择;二级菜单多项选择;三级菜单多项选择;
2:当多选二级菜单时,选中几个留下几个;
3:当多择三级菜单时,选中几个留下几个,如三级菜单多选前面二级菜单不为空则移动二级菜单到多选后的三级菜单下一行(例如江门);
4:当选择完三级菜单后,二级菜单根据三级菜单的行数进行合并居中,一级菜单根据二级菜单的行数进行合并居中

多级菜单多选方案.zip (371.98 KB, 下载次数: 42)

下面这个附件为点选版本,感觉比较好用,用来分享一下,但是依然不太支持多选,求教多选~~

VBA不太会66 · 发表于 2022-11-22 11:25

大佬如何支持二级三级菜单多选呢

10307951261 · 发表于 2022-11-24 17:49

谢谢老师分享！！！

五指山888 · 发表于 2022-11-24 20:49

谢谢老师分享！！！

山菊花 · 发表于 2022-11-26 10:02

VBA不太会66 发表于 2022-11-22 10:49
大佬的终极方案特别好,能否补全下,小弟有个需求终极方案不太能满足,需要二级三级菜单实现多选

抱歉，听不明白你的要求。

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

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