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进阶学习的一个必修课。

希望对大家学习能有帮助。

欢迎关注、收藏和转发