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

fighter222

大家好，像求助一个问题，如附件表格。我想通过数据字典，在第一页生成二级联动的下拉选择，并且每一级下拉框可支持多选。并且再次选择的时候，不会清楚前次选择结果，而是一并保存在单元格。好像越来越复杂了😓谢谢大家了！

microyip

论坛里有很多类似的案例

fighter222

参考了一些案例，不是很看得懂，尤其是选过之后，再次选择需要保存前一次的内容，不知道如何实现

liulang0808

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.     arr = Sheets(2).UsedRange
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For j = 2 To UBound(arr)
   
6.         If Len(arr(j, 1)) > 0 Then
   
7.             str1 = arr(j, 1)
   
8.         End If
   
9.         d(str1) = d(str1) & "," & arr(j, 2)
   
10.     Next j
    
11.     If Target.Column = 1 Then
    
12.         If Target.Row > 2 Then
    
13.             With Target.Validation
    
14.                 .Delete
    
15.                 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
16.                 xlBetween, Formula1:=Join(d.keys, ",")
    
17.             End With
    
18.         End If
    
19.     Else
    
20.         If Target.Column = 2 Then
    
21.             If Target.Row > 2 Then
    
22.             If d.exists(Cells(Target.Row, 1).Value) Then
    
23.                 With Target.Validation
    
24.                     .Delete
    
25.                     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
26.                     xlBetween, Formula1:=Mid(d(Cells(Target.Row, 1).Value), 2)
    
27.                 End With
    
28.             End If
    
29.         End If
    
30.         End If
    
31.     End If
    
32. End Sub
    

复制代码

liulang0808

附件内容供参考

fighter222

liulang0808 发表于 2017-12-18 08:45
附件内容供参考

谢谢版主，附件实现了级联功能。但是每个下拉框没法多选，版主帮帮忙，辛苦了

liulang0808

fighter222 发表于 2017-12-18 08:55
谢谢版主，附件实现了级联功能。但是每个下拉框没法多选，版主帮帮忙，辛苦了

多选？？？
数据有效性能参与多选吗？

fighter222

liulang0808 发表于 2017-12-18 08:56
多选？？？
数据有效性能参与多选吗？

这个不是很清楚咧。
主要这个功能是我需要实现的功能，可能是比较复杂了

liulang0808

fighter222 发表于 2017-12-18 08:59
这个不是很清楚咧。
主要这个功能是我需要实现的功能，可能是比较复杂了

多选也可以，就是将所有的可能再加入字典，关键多个选项之间，用什么隔开啊？逗号？

fighter222

liulang0808 发表于 2017-12-18 09:01
多选也可以，就是将所有的可能再加入字典，关键多个选项之间，用什么隔开啊？逗号？

用个逗号隔开是可以的。
如果是将所有可能加入字典，那这个组合还是不是太多了，能用程序自动实现么？