字典的应用

我们知道字典对象由关键字 Key 和数据项 Item 构成。通常情况下 Key 是字符串，实际上也可以是其它数据类型，比如整数、小数等。而数据项则可以是任何数据类型，包括字典对象本身。这样我们就可以创建多层的字典对象了。利用多层字典对象，我们可以实现诸如级联菜单、联动数据有效性序列、联动下拉框等等应用

例子

 1 Option Explicit
 2 Public Const PR_SALARY_GROUP = "班组"
 3 Public Const PR_SALARY_POSITION = "工位"
 4 Public Const PR_SALARY_NAME = "姓名"
 5 Public Const PR_SALARY_BASE = "基本工资"
 6 Public Const PR_SALARY_BONUS = "绩效奖金"
 7 
 8 Sub Main()
 9     Dim Ar
10     Debug.Print ParseData("乙")("焊接")("B")("基本工资")
11 End Sub
12 
13 Public Function ParseData()
14     Dim DTitle, Arr, I&, Dic, DTemp
15     Arr = Sheet1.[a1].CurrentRegion
16     Set DTitle = CreateObject("Scripting.Dictionary")
17     '======列字段字典=======
18     For I = 1 To UBound(Arr, 2)
19         DTitle(Arr(1, I)) = I
20     Next
21     
22     Set Dic = CreateObject("Scripting.Dictionary")
23     For I = 2 To UBound(Arr)
24         '依据(班组)创建字典
25         If Not Dic.Exists(Arr(I, DTitle(PR_SALARY_GROUP))) Then _
26             Set Dic(Arr(I, DTitle(PR_SALARY_GROUP))) = _
27             CreateObject("Scripting.Dictionary")
28             
29         Set DTemp = Dic(Arr(I, DTitle(PR_SALARY_GROUP)))
30         '依据(班组)(工位)创建字典
31         If Not DTemp.Exists(Arr(I, DTitle(PR_SALARY_POSITION))) Then _
32             Set DTemp(Arr(I, DTitle(PR_SALARY_POSITION))) = _
33             CreateObject("Scripting.Dictionary")
34             
35         Set DTemp = DTemp(Arr(I, DTitle(PR_SALARY_POSITION)))
36         '依据（班组）（工位）（姓名）创建字典
37         If Not DTemp.Exists(Arr(I, DTitle(PR_SALARY_NAME))) Then _
38             Set DTemp(Arr(I, DTitle(PR_SALARY_NAME))) = _
39             CreateObject("Scripting.Dictionary")
40             
41         Set DTemp = DTemp(Arr(I, DTitle(PR_SALARY_NAME)))
42         '字典（班组）（工位）（姓名） & (基本工资) =Arr(I, DTitle(PR_SALARY_BASE))
43         DTemp(PR_SALARY_BASE) = Arr(I, DTitle(PR_SALARY_BASE))
44         '字典（班组）（工位）（姓名） & (绩效奖金) =Arr(I, DTitle(PR_SALARY_BONUS))
45         DTemp(PR_SALARY_BONUS) = Arr(I, DTitle(PR_SALARY_BONUS))
46     Next
47     'dic（班组）（工位）（姓名） &(基本工资|绩效奖金)=基本工资|绩效奖金
48     Set ParseData = Dic
49     Set DTitle = Nothing
50     Set DTemp = Nothing
51     Set Dic = Nothing
52 End Function

dicSalary字典树型结构

├─甲班

│ ├─拼装

│ │ ├─张三

│ │ │ ├─基本工资 -> $1000

│ │ │ │

│ │ │ └─绩效奖金 -> $800

│ │ │

│ │ └─李四

│ │ ├─基本工资 -> $1000

│ │ │

│ │ └─绩效奖金 -> $800

│ │

│ └─焊接

│ ├─王二麻子

│ │ ├─基本工资 -> $1100

│ │ │

│ │ └─绩效奖金 -> $900

│ │

│ └─赵大

│ ├─基本工资 -> $1100

│ │

│ └─绩效奖金 -> $900

│

└─乙班

├─拼装

│ ├─诸葛

│ │ ├─基本工资 -> $1000

│ │ │

│ │ └─绩效奖金 -> $800

│ │

│ └─南宫

│ ├─基本工资 -> $1000

│ │

│ └─绩效奖金 -> $800

│

└─焊接

├─西门

│ ├─基本工资 -> $1100

│ │

│ └─绩效奖金 -> $900

│

└─轩辕

├─基本工资 -> $1100

│

└─绩效奖金 -> $900