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

青城红豆

数据量大的时候报错，数据量不大的时候是个好方法

我是来讨说法的

青城红豆 发表于 2019-3-5 12:19
数据量大的时候报错，数据量不大的时候是个好方法

能否上传你的附件，以便修复

xh88

zopey 发表于 2019-2-28 22:38
向楼主学习，类模块原装 ，利用工作表事件 组合制作 3级联动菜单。

你好，我对VBA不太懂，这个功能正是我需要的，但是如果我想在第四列进行第一级下拉，如何实现呢？

zopey

xh88 发表于 2019-3-14 15:00
你好，我对VBA不太懂，这个功能正是我需要的，但是如果我想在第四列进行第一级下拉，如何实现呢？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
Dim ML As New multilevel

If Target.Column = 4 Then  '选定首列,生成一级菜单
   With Worksheets("菜单")
       k0 = .[c1].End(4).Row
       ML.DataList = .Range("a1:c" & k0).Value '基础数据
   End With
   ML.Lists Target
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub

If Target.Column = 4 Then '选定1级，生成二级菜单
   s = Cells(Target.Row, 4)
   Target.Offset(0, 1).Clear
   Target.Offset(0, 2).Clear
ElseIf Target.Column = 5 Then '选定2级，生成三级菜单
   s = Cells(Target.Row, 4) & "," & Cells(Target.Row, 5)
   Target.Offset(0, 1).Clear
Else
   Exit Sub
End If

Dim ML As New multilevel

With Worksheets("菜单")
     k0 = .[c1].End(4).Row
     ML.DataList = .Range("a1:c" & k0).Value '基础数据
End With
ML.Lists Target.Offset(0, 1), s
End Sub

xh88

zopey 发表于 2019-3-14 16:29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
I ...

太谢谢了！！！正是我要的！！！

xh88

zopey 发表于 2019-3-14 16:29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
I ...

你好，我将菜单三列换成我的数据，在使用过程中，在选第二级菜单时，有的正常，有的会出现如图,而且G列也出现下拉框。

zopey

xh88 发表于 2019-3-15 17:01
你好，我将菜单三列换成我的数据，在使用过程中，在选第二级菜单时，有的正常，有的会出现如图,而且G列也 ...

原工作表 部分单元格 已添加了 数据有效性，出现省份名 可见是遗留问题，
修改数据后 要整表清除早先测试的 数据下拉，或者直接新建、

xh88

zopey 发表于 2019-3-16 09:11
原工作表 部分单元格 已添加了 数据有效性，出现省份名 可见是遗留问题，
修改数据后 要整表清除早先测 ...

主要问题是一级菜单选了”和谐“后，二级菜单选择时就出现1004错误。

long66312

zopey 发表于 2019-2-28 22:38
向楼主学习，类模块原装 ，利用工作表事件 组合制作 3级联动菜单。

一级菜单只为一个单元格的下拉菜单，二级菜单为一级菜单下的多级下拉菜单怎么修改实现？  例：再A1单元格可实现下拉菜单选定河北省，A2即可为二级下拉菜单选定唐山市 B2可菜单选定为开平区；A3即可为二级下拉菜单选定邢台市。。。以此类推

往事随风5416

感谢分享！在我电脑上运行上面的附件是正常的。但在实际应用时，Dim ML As New multilevel，提示“用户定义类型未定义”，为何？望指导！拜谢！！