用一个字典代替字典嵌套完成多级联动功能

赵莲

好的东西必须收藏标记！

HUA79100101

用一个字典代替字典嵌套完成多级联动功能

piaoyibiao

太强大了，非常感谢，我正在找这些！！

piaoyibiao

感谢分享！！！！！ 受益匪浅！

448478825

此程序价值很大，如果是7到10级联动就好了，可以解决物料需求计划问题。

zglibk

膜拜！从度娘又回到了excelhome。还是这里牛人多

用心修炼

版主牛人，不知道字典还可以模仿树形结构的用法

用心修炼

三级联动指点，使用一个字典模仿树形结构：
(我也是菜鸟，根据自己的理解写的！请各位大佬多指正)
Private Sub ListBox1_Click()
  ListBox2.List = d(ListBox1.Text).keys
End Sub


Private Sub ListBox2_Click()
ListBox3.List = VBA.Split(d(ListBox1.Text)(ListBox2.Text), ",")
End Sub

Private Sub UserForm_Initialize()
Dim arr(), i As Integer, s$
Dim shi_name As String, xiang_name As String, xian_name As String, sandx_name As String
Set d = CreateObject("scripting.dictionary")
arr = Sheets("字典").Range("a3").CurrentRegion.Value

For i = 2 To UBound(arr)
    shi_name = arr(i, 1)
    xiang_name = arr(i, 2)
    sandx_name = arr(i, 1) & arr(i, 2)
    xian_name = arr(i, 3)
    If Not d.exists(shi_name) Then
       Set d(shi_name) = CreateObject("scripting.dictionary")
           d(shi_name)(xiang_name) = xian_name
    Else
       s = IIf(d(shi_name)(xiang_name) = "", "", ",")
       d(shi_name)(xiang_name) = d(shi_name)(xiang_name) & s & xian_name
    End If
      
Next
Me.ListBox1.List = d.keys

End Sub

陈功

学习赵老师作品，收藏中

wggx4

看了字典的基本语句，但还是不懂，留言以便学习