多级(不限级数)联动下拉菜单源码分享

zhangl9357

非常感谢楼主无私分享！

goldowl2011

非常感谢楼主无私分享！

keke7688

学习了，受益良多，感谢楼主分享！

HUA79100101

[分享] 多级(不限级数)联动下拉菜单源码分享

我是来讨说法的

HUA79100101 发表于 2018-10-17 09:26
[分享] 多级(不限级数)联动下拉菜单源码分享

附件里难道没有源码？

titi012

楼主能否帮忙看看我这个应该怎么修改呢？

我是来讨说法的

titi012 发表于 2018-11-20 16:24
楼主能否帮忙看看我这个应该怎么修改呢？

》》》》》》》》》》》

陆地鱼仙人掌

如果只想在指定的列显示下拉菜单，要怎么修改？

zopey

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Row = 1 Then Exit Sub
   
4. Dim ML As New multilevel
   
5. 
   
6. If Target.Column = 1 Then  '选定首列,生成一级菜单
   
7.    With Worksheets("菜单")
   
8.        k0 = .[c1].End(4).Row
   
9.        ML.DataList = .Range("a1:c" & k0).Value '基础数据
   
10.    End With
    
11.    ML.Lists Target
    
12. End If
    
13. 
    
14. End Sub
    
15. 
    
16. Private Sub Worksheet_Change(ByVal Target As Range)
    
17. If Target.Row = 1 Then Exit Sub
    
18. 
    
19. If Target.Column = 1 Then '选定1级，生成二级菜单
    
20.    s = Cells(Target.Row, 1)
    
21.    Target.Offset(0, 1).Clear
    
22.    Target.Offset(0, 2).Clear
    
23. ElseIf Target.Column = 2 Then '选定2级，生成三级菜单
    
24.    s = Cells(Target.Row, 1) & "," & Cells(Target.Row, 2)
    
25.    Target.Offset(0, 1).Clear
    
26. Else
    
27.    Exit Sub
    
28. End If
    
29. 
    
30. Dim ML As New multilevel
    
31. 
    
32. With Worksheets("菜单")
    
33.      k0 = .[c1].End(4).Row
    
34.      ML.DataList = .Range("a1:c" & k0).Value '基础数据
    
35. End With
    
36. ML.Lists Target.Offset(0, 1), s
    
37. End Sub

复制代码

向楼主学习，类模块原装 ，利用工作表事件 组合制作 3级联动菜单。 城市下拉菜单2019.rar (85.94 KB, 下载次数: 119)

2019-2-28 22:30 上传

点击文件名下载附件

zopey

我们通过添加类对象 ML1，在A列已设置好了 省地市的3级联动菜单，
类模块的作用在于 重复应用，
我们可以再添加一个新对象变量 ML2（对应别的菜单源数据），同时在H 列制作新的 联动菜单。