vba字典功能十分有用，如果对其它编程有一定了解，那么对于字典也不陌生，它代表着高效和强大数据处理功能。
字典功能介绍
那么如何在vba中运用字典功能？
首先，想用就必须有这个东西，如果拥有，这就用到下面这条语句了：
Set DicObj=CreateObject("Scripting.Dictionary")'创建字典
没错，就是创建字典，其中DicObj是首先申明的一个 Object变量，如：dim DicObj as Object
之后就可以用DicObj这个东西了，这就是字典。
创建之后，它还是个空字典，就是说你买了一台电脑，里面什么软件也没有安装，目前这台电脑毫无用处，跟一堆废铁的区别在于，它没有放在垃圾桶里。
接下来就是给字典添加各种键和值。
代码如：Dicobj.Add keys, items '字典赋值 Keys 键名，items 键值
有了键就可以对字典数据进行各种操作，如查找、查看、修改、删除等操作。
具体格式，看下图
字典应用
大概介绍完字典如何应用，进入正题。
这个例子很简单，对颜色RGB值和名称进行字典存储，然后再应用，字典值对表格颜色设置的过程。
下图为颜色值表
单击按钮可将颜色值和名称添加到另一张表中，并建立字典，进行保存。
这个过程有一些代码，过程不很复杂，但实现的功能很高效。
颜色修改
上图为新建的字典内容页，包含了颜色名和颜色RGB值。
根据表内容可实现随机更换颜色，颜色就表内保存的值。
随机效果很好，至少在单击按钮之前，对于出现什么颜色稍微有一点点不可预知的期待。
顺便说一下，这个表内有380种颜色，一定有你喜欢的颜色。
颜色更改代码
Option Explicit
Private Sub CommandButton1_Click()
Dim Dicobj As Object
Set Dicobj = CreateObject("scripting.dictionary") '新建字典
Dim rowi As Integer, i As Integer
rowi = Me.Range("A65535").End(xlUp).Row
For i = 2 To rowi '添加字典
Dicobj.Add Me.Range("A" & i).Value, Me.Range("B" & i).Value
Next i
Dim n As Integer, nX, Cx
n = VBA.Rnd() * (Dicobj.Count - 1) + 1 '随机取值
nX = VBA.Split(Dicobj.Item(Range("A" & n).Value), " ")
Cx = VBA.RGB(nX(0), nX(1), nX(2)) '颜色值
MsgBox "键名：" & Dicobj.Keys()(n) & VBA.vbCrLf & "键值：" & Dicobj.items()(n), vbOKOnly, "当前字典信息"
'''设置表格属性
With Me.UsedRange
.RowHeight = 20
.ColumnWidth = 50
.Interior.Color = Cx
.Borders.LineStyle = 1
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
With .Font
.Size = 12
.Name = "微软雅黑"
End With
End With
With Me.Range("A1:B1")
n = VBA.Rnd() * (Dicobj.Count - 1) + 1
nX = VBA.Split(Dicobj.Item(Range("A" & n).Value), " ")
Cx = VBA.RGB(nX(0), nX(1), nX(2)) '颜色值
.Interior.Color = Cx
End With
End Sub
结尾
字典功能的应用还有很多需要逐渐学习的内容，以后在vba编程过程中遇到，再做详细的应用介绍，这个功能很好也是vba进阶学习的一个必修课。
希望对大家学习能有帮助。
欢迎关注、收藏和转发
