根据数据字典生成多级下拉菜单，每一级级下拉菜单可多选

一指禅62

可考虑用列表框。

fighter222

一指禅62 发表于 2017-12-18 09:36
可考虑用列表框。

有案例可以参考一下么

aman1516

fighter222 发表于 2017-12-18 10:19
有案例可以参考一下么

多级联动及多项选择
http://club.excelhome.net/thread-1143298-1-1.html
(出处: ExcelHome技术论坛)
不知是否楼主意思，仅作参考

fighter222

aman1516 发表于 2017-12-18 10:42
多级联动及多项选择
http://club.excelhome.net/thread-1143298-1-1.html
(出处: ExcelHome技术论坛)

对的，就是这个意思。对vba了解不多不知道如何改起。而且这个有个问题，就是不能保存上次选择结果，每次选择都会清空上次选择的结果。

一指禅62

级联多选.rar (25.28 KB, 下载次数: 338)

2017-12-18 11:37 上传

点击文件名下载附件

一指禅62

1. Option Explicit
   
2. Dim i&
   
3. Dim arr, d As Object, S$
   
4. 
   
5. 
   
6. Private Sub UserForm_Initialize()
   
7.     Dim key$
   
8.     arr = Sheet2.Range("A1").CurrentRegion
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     For i = 2 To UBound(arr)
    
11.         If Trim(arr(i, 1)) <> "" Then
    
12.             key = Trim(arr(i, 1))
    
13.             d(key) = i
    
14.         Else
    
15.             d.Item(key) = d.Item(key) & "|" & i
    
16.         End If
    
17.     Next
    
18.     Sheet1.Select
    
19.     ListBox1.List = d.keys
    
20. End Sub
    
21. 
    
22. Private Sub cmd取消_Click()
    
23.     Unload Me
    
24. End Sub
    
25. 
    
26. Private Sub cmd确认_Click()
    
27.     Dim s2$
    
28.     For i = 0 To ListBox2.ListCount - 1
    
29.         If ListBox2.Selected(i) Then
    
30.             s2 = IIf(s2 = "", ListBox2.List(i, 0), s2 & "," & ListBox2.List(i, 0))
    
31.         End If
    
32.     Next
    
33.     ActiveCell = S
    
34.     ActiveCell.Offset(0, 1) = s2
    
35.     Unload Me
    
36. End Sub
    
37. 
    
38. Private Sub ListBox1_Change()
    
39.     Dim key$, j%, t, b(), n%
    
40.     S = ""
    
41.     For i = 0 To ListBox1.ListCount - 1
    
42.         If ListBox1.Selected(i) Then
    
43.             key = ListBox1.List(i, 0)
    
44.             Rem 被选中的二级目录
    
45.             S = IIf(S = "", key, S & "," & key)
    
46.             Rem 被选中的三级目录
    
47.             t = Split(d.Item(key), "|")
    
48.             For j = 0 To UBound(t)
    
49.                 n = n + 1: ReDim Preserve b(1 To n)
    
50.                 b(n) = arr(t(j), 2)
    
51.             Next
    
52.         End If
    
53.     Next
    
54.     ListBox2.List = b
    
55. End Sub
    
56. 
    

复制代码

fighter222

一指禅62 发表于 2017-12-18 11:38

太强大了，谢谢了，基本实现我所要的功能。
还有点小问题，弹出窗体，一级菜单、二级菜单我选择后，再次选择一级菜单的时候会清空以前选择的二级菜单内容，这里能实现在一次操作中，我多次选择一级菜单，而不会清空以前选择的二级菜单内容么。
不知道我描述清楚没有

fighter222

一指禅62 发表于 2017-12-18 11:38

还有个小问题，点击弹出窗体，选择后取消全部勾选，会报错。
运行错误380 无法设置list属性
listbox2.list=b     这句有点问题

一指禅62

fighter222 发表于 2017-12-19 10:26
还有个小问题，点击弹出窗体，选择后取消全部勾选，会报错。
运行错误380 无法设置list属性
listbox2.l ...

改为  


If n > 0 Then ListBox2.List = b Else ListBox2.Clear

一指禅62

fighter222 发表于 2017-12-19 10:16
太强大了，谢谢了，基本实现我所要的功能。
还有点小问题，弹出窗体，一级菜单、二级菜单我选择后，再次 ...

级联多选.rar (25.65 KB, 下载次数: 212)

2017-12-19 15:06 上传

点击文件名下载附件

如果使用 Listview 控件或许会更完美些。