Excel全国省市行政区划三级菜单 弹出式菜单 VBA递归实现 VBA永远的神 全网独家

832 次浏览

微信公众号 【EXCEL880】 QQ群【341401932】

Excel全国省市行政区划三级菜单 弹出式菜单 VBA递归实现 VBA永远的神 全网独家插图

多级菜单在Excel日常表格填写中有大量使用场景,除了会计科目还有下面常用的的省市区

Excel全国省市行政区划三级菜单 弹出式菜单 VBA递归实现 VBA永远的神 全网独家插图1

这种情况用传统的数据有效性方法会特别麻烦, 甚至说完全你无法实现,但是使用我这个代码,任何人都可以非常快的学会多级菜单的使用,只要一点点VBA基础即可,详见下方视频讲解

特别说明:本程序可扩展为N级菜单,只要你的源数据是按顺序排列的多级格式,直接在数据源表写入数据再生成菜单即可看到效果

三级菜单,多级联动,三级下拉,下拉菜单,级联菜单

核心代码为clsPopTree中, 数据表中 ,运行按钮, 即可在测试表中看到效果
代码有注释, 需要研究的自行查看 ,若不考虑速度优化程序可以写的更短,
,写长了的原因是要提速

Excel全国省市行政区划三级菜单 弹出式菜单 VBA递归实现 VBA永远的神 全网独家插图2

Excel全国省市行政区划三级菜单 弹出式菜单 VBA递归实现 VBA永远的神 全网独家插图3

 

再附一个4级菜单的杂乱数据生成菜单示例 这里源代码没动 只是修改了数据源

Excel全国省市行政区划三级菜单 弹出式菜单 VBA递归实现 VBA永远的神 全网独家插图4

本案例属于我教程VBA175例中一例 已买课的同学只需要找到

案例202 单表多组弹出式级联菜单超级类使用指南 学习即可

没买课的同学,案例文件请付费获取

下方是案例文件获取方式 付费后可见

https://mp.weixin.qq.com/s/9XFXUEFsi3Lw0N-po6JElw