Excel实例教学
当前位置:Excel实例教学 > EXCEL技巧 > 正文

Excel弹出式省市区三级菜单 VBA精品实例源码分享 图文

定制咨询请加微信【EXCEL880A】 提问加QQ群341401932 微信公众号【EXCEL880】

动图镇楼

网上很多用数据有效性做二级和三级菜单的方法,但是都只限于少量数据使用,当数据多的时候,完全无法满足需求,比如我有客户就提出要全国省市区的三级菜单,为此我写了一个VBA代码,完成了点击单元格弹出三级菜单的功能

另外这个菜单比较厉害还有一个地方就是 可以根据当前选择的位置,只弹出子菜单,也就是不用每次都第一级开始选择

选了二级 就只会弹出对应二级的子菜单

选了3级就只弹出上级对应的最后一个三级可选项

以行政区划源数据为例,接近3000条数据的菜单 ,本方法在工作簿开启的时候,3秒加载完成 ,后续操作就再也不会有任何延迟,主要耗时都是生成菜单UI本身

一般情况的菜单不会这么多 1000行以内的话 基本上瞬间生成完成,部分源码如下

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

核心代码为mPopTree中,数据表中,运行按钮即可在测试表中点击输入区看到效果

代码有注释,需要研究的自行查看,若不考虑速度优化程序可以写的更短。

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

关注微信公众号EXCEL880 回复02655 即可获得下载地址

更多实例视频请搜索excel880,表格定制开发服务可加微信EXCEL880A,

赞 (2)
分享到:更多 ()

评论 4

评论前必须登录!

登陆 注册
  1. excel880购买VBA175例教程后可下载全部vba代码 视频也有本代码的移植方法详解http://www.evketang.com/mcht/40008/0/course_detail.html?id=2965#
  2. excel880可以 购买我的VBA175例视频教程 带全部案例详解 http://excel880.com/blog/archives/5057
  3. jack_liu可以付费下载代码吗?
  4. jack_liu如何下载代码
excel视频教学,excel咨询服务,excel案例下载,excel教学
excel视频教学 excel咨询服务 excel案例下载 excel教学