绑定dictionary 给定关键字不再字典中_VBA数组与字典解决方案第51讲：字典嵌套及二级下拉菜单的制作...

大家好，今日我们继续讲解VBA数组与字典解决方案，今日讲解第51讲：对字典嵌套的理解及二级下拉菜单的制作.

在讲字典的时候,我反复说明,字典看视非常简单,由于它具有直达性可以省略去我们大量的循环查找代码,所以使用起来要特别留意很多用法和常规思路是不一致的,对于字典的理解：

1：键key、键值(或者较项)item 是非常重要的，key 一定是字符串，具有唯一性，item 可以为任何类型的数据.

2：keys 和items 是一维数组，他们的开始是从0开始到count-1结束。

3：再次理解字典的直达性，对于给定的键，可以直接得出键值不必循环查找.

今日我们利用字典的嵌套完成一个两级下拉菜单的制作，大家要认真理解，如下面的数据：

我要在一级菜单中实现A列的数值，在二级下拉菜单中实现对应于A列的B列的值，下面看我给出的代码：

Private Sub ComboBox1_Change()

ComboBox2.Clear

'二级下拉框对应的是第一级字典的键值为键的字典

ComboBox2.List = mydic(ComboBox1.Value).keys

End Sub

Private Sub UserForm_Activate() '第51讲 字典的嵌套的理解及二级下拉菜单的制作

'将数据装入数组

myarr = Range("a1").CurrentRegion.Value

Set mydic = CreateObject("Scripting.Dictionary")

For i = 2 To UBound(myarr)

strF = myarr(i, 1)

strS = myarr(i, 2)

If Not mydic.Exists(strF) Then

'建立嵌套字典，第一重字典的键对应的键值为字典

Set mydicTemp = CreateObject("Scripting.Dictionary")

'注意下面的两种写法

'Set mydic.Item(strF) = mydicTemp

Set mydic(strF) = mydicTemp

End If

'注意下面的两种写法，嵌套字典的字典的键记入，键值为空

'mydic.Item(strF).Item(strS) = ""

mydic(strF)(strS) = ""

Next i

'一级下拉框对应的是第一级字典的键

ComboBox1.List = mydic.keys

End Sub

代码截图：

代码讲解：

1 上述代码利用了字典的嵌套，解决了两级下拉菜单的制作问题，在利用前要先加上一个窗体：

2 '将数据装入数组

myarr = Range("a1").CurrentRegion.Value

上述代码将源数据写入数组中备用

3 Set mydic = CreateObject("Scripting.Dictionary")

上述代码定义外层的字典.

4 For i = 2 To UBound(myarr)

strF = myarr(i, 1)

strS = myarr(i, 2)

If Not mydic.Exists(strF) Then

'建立嵌套字典，第一重字典的键对应的键值为字典

Set mydicTemp = CreateObject("Scripting.Dictionary")

'注意下面的两种写法

'Set mydic.Item(strF) = mydicTemp

Set mydic(strF) = mydicTemp

End If

'注意下面的两种写法，嵌套字典的字典的键记入，键值为空

'mydic.Item(strF).Item(strS) = ""

mydic(strF)(strS) = ""

Next i

上述代码中利用FOR NEXT在数组中建立循环,当Not mydic.Exists(strF),将数据存入字典,键是strF ,键值是一个字典:mydicTemp,如果能够找到外层字典的键,那么将建立内层字典的,即: mydic(strF)(strS) =