“1个类模块+1个字典”实现N级联动

venomlk

确保“联动基础数据列数=ComboBox控件个数”即可正常实现N级联动

“类模块、字典”的相关知识均是我在这个论坛的各位版主和各位大神的教学帖中学到的，受益匪浅，在此多谢各位老师了！现把学习到的“类模块+字典”做了一个N级联动，实验成功，欣喜之余，把这个简单的程序分享给后来需要了解这方面知识的朋友们。。高手直接跳过吧，毕竟我只是学了点儿皮毛，程序比较粗糙，呵呵



主程序：

1. Dim cbarr() As New cbc
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     Set zd = CreateObject("scripting.dictionary")
   
5.     sjarr = Cells(1, 1).CurrentRegion
   
6.     For i = 1 To UBound(sjarr)
   
7.     s = ""
   
8.     For j = 1 To UBound(sjarr, 2)
   
9.         s = s & sjarr(i, j) & "-"
   
10.         zd(Left(s, Len(s) - 1)) = ""    '
    
11.     Next j
    
12.     Next i
    
13.     For Each zds In zd.keys
    
14.      If UBound(Split(zds, "-")) = 0 Then
    
15.          Me.ComboBox1.AddItem zds
    
16.     End If
    
17.     Next
    
18.     ReDim cbarr(1 To UBound(sjarr, 2))
    
19.     For i = 1 To UBound(sjarr, 2) - 1
    
20.     cbarr(i).st Me.Controls("ComboBox" & i), zd.keys, i
    
21.     Next i
    
22.     Set zd = Nothing
    
23. End Sub

复制代码

类模块：

1. Private WithEvents cb As ComboBox, n, zds
   
2. 
   
3. Public Sub st(cbs, zdkeys, cbn)
   
4.     Set cb = cbs
   
5.     n = cbn
   
6.     zds = zdkeys
   
7. End Sub
   
8. 
   
9. Private Sub cb_Change()
   
10.     With UserForm1
    
11.     .Controls("ComboBox" & n + 1).Clear
    
12.     For i = 0 To UBound(zds)
    
13.         If UBound(Split(zds(i), "-")) = n Then
    
14.             s1 = ""
    
15.             s2 = ""
    
16.             For j = 0 To n - 1
    
17.                 s1 = s1 & Split(zds(i), "-")(j) & "-"
    
18.                 s2 = s2 & .Controls("ComboBox" & j + 1) & "-"
    
19.            Next j
    
20.            If s1 = s2 Then
    
21.                .Controls("ComboBox" & n + 1).AddItem Split(zds(i), "-")(n)
    
22.            End If
    
23.        End If
    
24.     Next i

复制代码

酷似内涵

写的很不错啊

venomlk

图片好像没显示出来？而且附件也忘放上去了，这里补一下。。

如要增加或减少联动级数，相应增加或减少ComboBox控件即可

venomlk

酷似内涵 发表于 2018-10-18 20:24
写的很不错啊

多谢朋友捧场。。之前发帖都是问问题，这是第一次发分享帖。。呵呵

02761752696

venomlk 发表于 2018-10-19 08:48
多谢朋友捧场。。之前发帖都是问问题，这是第一次发分享帖。。呵呵

谢谢  分享

yunfei2018

venomlk 发表于 2018-10-19 08:44
图片好像没显示出来？而且附件也忘放上去了，这里补一下。。

如要增加或减少联动级数，相应增加或减少Co ...

能否多来个示例？
如果是工作表中，数据有效性下拉框能否实现？
谢谢！

venomlk

yunfei2018 发表于 2018-10-20 09:00
能否多来个示例？
如果是工作表中，数据有效性下拉框能否实现？
谢谢！

工作表中可以用“Worksheet_Change”事件来实现，可在论坛中搜索相关帖子

三坛老窖

楼主这个多级联动的思路很独特、有创意，代码简洁、清晰，很好！

venomlk

三坛老窖 发表于 2018-10-21 15:20
楼主这个多级联动的思路很独特、有创意，代码简洁、清晰，很好！

哈哈，想不到大神级别的高手来捧场了，多谢老师的好评。。呵呵

一指禅62

学习了