張文曉

摘要：本文旨在介紹一種方法，實現(xiàn)如何用VBA的字典對象，處理多列數(shù)據(jù)。并且結(jié)合工程實際，說明此方法在實際編程中如何應(yīng)用。

關(guān)鍵詞：Excel;VBA;字典;多列數(shù)據(jù)

中圖分類號：TP311? ? ? 文獻(xiàn)標(biāo)識碼：A? ? ? 文章編號：1009-3044（2019）02-0214-04

當(dāng)我們基于VBA編程的時候，往往面對的源數(shù)據(jù)，是存儲在多個表單里的。并且每一個表單一般含有多列數(shù)據(jù)。在運算過程中，要調(diào)用這些源數(shù)據(jù)，就涉及數(shù)據(jù)的查詢、檢索。當(dāng)然，最簡單的方式就是去遍歷單元格，如果數(shù)據(jù)量不大，這樣的方式也是可以的。但如果數(shù)據(jù)量很大，需要頻繁讀寫操作，往往會導(dǎo)致程序運行效率較低。

這時經(jīng)常用到的解決方法就是使用數(shù)組保存數(shù)據(jù)，在內(nèi)存中進(jìn)行數(shù)據(jù)處理和加工，最后一次性更新工作表，這樣的操作方式往往會極大提升程序的運行效率。

但是，數(shù)組只能用于存儲數(shù)據(jù)，而我們往往需要對數(shù)據(jù)進(jìn)行查詢，用于計算。有時，我們也需要判斷某個數(shù)在數(shù)組里是否存在，有時要對數(shù)組進(jìn)行擴(kuò)展。同時，數(shù)組中的各個數(shù)據(jù)，它們的類型必須是相同的。

Dictionary是隨著Visual Basic 6.0新增的，具有某些強(qiáng)大功能的對象。字典不是VBA內(nèi)置的類型，它是Windows腳本語言的。但其實字典在VBA中也是非常重要的，它非常適用于需要進(jìn)行非重復(fù)性數(shù)據(jù)的操作。字典其實就是一些“鍵-值”對。在很多場合，它都能起到很大的作用，使用起來非常方便，有類似于微型數(shù)據(jù)庫的作用，可用于臨時保存一些數(shù)據(jù)信息?；谧值浯鎯?shù)據(jù)的特點，人們往往認(rèn)為字典只能實現(xiàn)字典里的“值”，只能是單一的一個數(shù)據(jù)。

本文的目的是介紹如何把多個數(shù)據(jù)作為字典的“值”裝入字典。

1 了解字典

1.1 什么是字典？

Dictionary 對象是“Scripting? ?Runtime? ?Library”的一部分，最早VBScript 中實現(xiàn).（SCRRUN.DLL），它可以將任何形式的數(shù)據(jù)的條目存儲在數(shù)組中。每個條目都與一個唯一的關(guān)鍵字相關(guān)聯(lián)。該關(guān)鍵字用來檢索單個條目，通常是整數(shù)或字符串，也可以是對象、集合等任何類型。

字典對象的關(guān)鍵功能以及代碼：

1.2 VBA中的字典與現(xiàn)實世界中的字典

為了說明什么是字典，可以拿現(xiàn)實世界中的字典來舉例。例如，你如果想查一個詞的意思，你會直接在字典里查這個詞，而不會把整個字典都通讀一遍。這個詞，在VBA的字典對象里，就是Key，而詞的意思，就是Item。

再舉一個實際生活中的例子，像手機(jī)里的電話本，人名就是Key（鍵），電話號碼就是Item（值）。

1.3 使用字典的實例

下面舉一個使用字典的實例，下面代碼按照下面步驟運行：

1） 將三個人名，每個賦一個值代表年齡，添加到字典;

2） 彈出對話框讓用戶輸入一個人名

3） 在字典里檢索此人是否在字典里

4） 如果是，顯示人名和它的年齡

5） 如果不是通知用戶不存在

Sub CheckAge（）

' 在Visual Basic里選 Tools->References

' 在下拉菜單里勾選 "Microsoft Scripting Runtime"

Dim dict As New Scripting.Dictionary

' 將人添加到字典

dict.Add key：="Vincent"， Item：=33

dict.Add key：="Terry"， Item：=34

dict.Add key：="Jerry"， Item：=23

Dim sPerson As String

' 要求用戶輸入人名

sPerson = InputBox（"Please enter the name of a person"）

If dict.Exists（sPerson） Then

MsgBox sPerson & " exists and the age is " & dict（sPerson）

Else

MsgBox sPerson & " does not exist."

End If

Set dict = Nothing

End Sub

1.4 如何創(chuàng)建字典

通過上述實例，我們可以大概了解在程序里怎么使用字典對象。下面我們來說明如何創(chuàng)建字典。

要使用字典對象，首先要在VBA里添加引用：

1） 在Visual Basic 菜單里，選Tools->References

2） 找到Microsoft Scripting Runtime勾選

在程序代碼里聲明字典如下：

Dim dict As New Scripting.Dictionary

或者：

Dim dict As Scripting.Dictionary

Set dict = New Scripting.Dictionary

像這樣創(chuàng)建字典叫“早期綁定”，當(dāng)然還有“延遲綁定”，下面我將討論二者的區(qū)別。

1.5 早期綁定與延遲綁定

如果用如下方式創(chuàng)建字典，我們稱之為延遲綁定。如果用延遲綁定，則不需要1.4節(jié)的添加引用。

Dim dict As Object

Set dict = CreateObject（"Scripting.Dictionary"）

技術(shù)層面上，早期綁定意味著我們實現(xiàn)已經(jīng)決定好要用什么，從而在用之前就綁定好。對于延遲綁定，意味著用什么這件事是在程序運行的時候臨時決定的。簡單理解二者的區(qū)別是：

1） 早期綁定需要引用參考，延遲綁定不需要;

2） 早期綁定允許編碼的時候使用*Intellisense，延遲綁定不可以;

3） 早期綁定需要手動添加引用參考Microsoft Scripting Runtime。

（*Intellisense是一個特征，當(dāng)你鍵入一個條目的時候，編輯器會自動給出可選的屬性、方法）

一般我們推薦用早期綁定的辦法。

1.6 如何填充字典

我們可以用Add函數(shù)，向字典里加項，在加項的同時，也可以給其賦值。

我們先看Add函數(shù)，Add函數(shù)有兩個參數(shù)：Key 和 Item。

dict.Add Key：="Orange"， Item：=45

dict.Add "Apple"， 66

dict.Add "12/12/2018"， "John"

dict.Add 10， 45.56

值得注意的是，Key和Item可以是任何數(shù)據(jù)類型。例如對象，數(shù)組，甚至是字典本身。所以你可以創(chuàng)建包含字典、數(shù)組、集合的字典。本文的核心，就是利用把一個對象放到字典里，從而實現(xiàn)字典里存儲多個數(shù)據(jù)。

1.7 判斷鍵是否已經(jīng)存在

我們可以用Exist函數(shù)來判斷鍵在字典里是否已經(jīng)存在。示例代碼如下：

' Checks for the key 'Orange' in the dictionary

If dict.Exists（"Orange"） Then

MsgBox "The number of oranges is " & dict（"Orange"）

Else

MsgBox "There is no entry for Orange in the dictionary."

End If

1.8 如何賦值

我們可以用下面代碼給字典賦值：

dict（"Orange"） = 75

如果這個Key在字典里不存在，則會在字典里自動添加這組Key-Item。

' 添加Orange并賦值45

dict（"Orange"） = 45

' 將Orange的值改為100

dict（"Orange"） = 100

2 如何在字典里存儲多列數(shù)據(jù)

有了上面字典的基礎(chǔ)知識，我們就可以開始真正的內(nèi)容——如何在字典里用一個鍵，控制多個數(shù)據(jù)。

假如，我們有如下表格的數(shù)據(jù)：

從表中我們可以看出，每個CustomerID對應(yīng)兩個參數(shù)，Amout和Items，而字典只能存一個值，那么我們該如何存這兩個數(shù)據(jù)？

當(dāng)然，我們可以使用令值為數(shù)組或者集合的辦法實現(xiàn)。但最好的辦法是——用類模塊。

見下面實例代碼：

' Define Class Module Code

Public CustomerID As String

Public Amount As Long

Public Items As Long

' Create a new clsCustomer object

Set oCust = New clsCustomer

' Set the values

oCust.Customer = rg.Cells（i， 1）.Value

oCust.Amount = rg.Cells（i， 2）.Value

oCust.Items = rg.Cells（i， 3）.Value

' Add the new clsCustomer object to the dictionary

dict.Add oCust.Customer， oCust

通過上述代碼，可以看出，我們可以用這種方式存儲多個數(shù)據(jù)。這里，相當(dāng)于把一個對象當(dāng)作一個值裝進(jìn)了字典，而對象又有多個屬性，每個屬性可以單獨賦值。通過這種方法，我們即可實現(xiàn)將多個值裝入字典，用一個鍵來控制。

3 處理多個數(shù)據(jù)工程實例

下面，我們舉一個實際工程中的例子，來說明用字典存儲多個數(shù)據(jù)的巧妙用法。

在空調(diào)箱產(chǎn)品的風(fēng)機(jī)段排布過程中，有很多數(shù)據(jù)表作為設(shè)計輸入，如：風(fēng)機(jī)尺寸表、電機(jī)尺寸表、風(fēng)機(jī)底盤尺寸表、以及其他基礎(chǔ)數(shù)據(jù)表格。在進(jìn)行風(fēng)機(jī)與電機(jī)排布計算的時候，需要頻繁進(jìn)行數(shù)據(jù)查詢，數(shù)據(jù)調(diào)用操作。當(dāng)然，我們可以用數(shù)組來做，字典與數(shù)組相比，有很多優(yōu)勢。因此，我們使用字典實現(xiàn)。

以電機(jī)尺寸表為例：電機(jī)尺寸表里，有計算要用到的幾個參數(shù)——普通電機(jī)長度、變頻電機(jī)長度、IE3電機(jī)長度。我們按照如下步驟使用字典：

1） 如第2節(jié)所述方法，在VBA Class Modules模塊里新增Motor類;

2） 在Motor類里增加MotorID，MotorStandardL，MotorIE3L，MotorBPL等屬性;

3） 在VBA Modules模塊里，增加CreateDic模塊，并添加如下代碼;

4） 在CreateDic模塊里添加下面代碼，代碼的主要功能是——定義一個將給定區(qū)域里的數(shù)據(jù)，裝入字典的函數(shù)。此函數(shù)的返回值是一個字典對象。

5） 在風(fēng)機(jī)排布計算的主函數(shù)里，調(diào)用步驟4中創(chuàng)建的函數(shù)，用于建字典、裝字典;

6） 在計算過程中查字典;

首先定義查字典相關(guān)參數(shù)

按照MotorKey的值查詢;

注意下面代碼中用到了Exist方法來判斷數(shù)據(jù)在字典里是否存在，如果存在，直接就得到查詢數(shù)據(jù)。這個過程對于編程人員無疑是很好用的，因為我們不用去再單獨寫過程來完成。

2） 在實際計算語句中使用查詢結(jié)果;

注意這里就體現(xiàn)出了定義類的好處，在編輯代碼的時候，可以清楚地知道調(diào)用的參數(shù)代表什么，并且編輯器會自動給出此類所有可選的屬性。

通過上述步驟，即可完成了從建字典、裝字典、查字典的整個過程，從而實現(xiàn)了用字典對象處理表格里有多列數(shù)據(jù)的情況。

4 用字典對象優(yōu)勢分析

4.1 字典與數(shù)組對比

字典與數(shù)組的區(qū)別在于：

1） 數(shù)組更適用于實現(xiàn)知道數(shù)據(jù)量（行列數(shù)）的情況，而字典不需要定義邊界;

2） 字典對象內(nèi)部封裝了很多實用的方法，如Exist，Remove等，而使用數(shù)組需要重新編寫這些方法的代碼;

3） 數(shù)組存儲需要定義數(shù)據(jù)類型，字典里的值可以是數(shù)值、數(shù)組、對象，甚至字典里可以再裝字典。

4） 字典最重要的特點是便于檢索，給一個Key，即可得到一個對應(yīng)的Item。用數(shù)組的話需要再用其他函數(shù)去檢索數(shù)據(jù)。

5） 字典的缺點是——字典里的鍵必須有唯一性，不能有重復(fù)數(shù)據(jù)。而數(shù)組沒有這樣的限制。這也決定了字典的使用場合。

4.2 字典與集合對比

字典與集合（Collection）的區(qū)別：

1） 字典能用Exist方法查“鍵”是否存在，集合沒有這樣的方法;

2） 字典能改鍵和值，而集合具有只讀性，鍵和值不能改。

5 字典的使用場合

經(jīng)過上述闡述，以及諸多實例，可以看出，如果我們有這樣的數(shù)據(jù)結(jié)構(gòu)的時候，我們就可以使用字典對象：

1） 數(shù)據(jù)中的索引ID是一列非重復(fù)的數(shù)值;

2） 需要通過索引ID檢索數(shù)據(jù)。

6 結(jié)束語

本文主要闡述了什么是字典，字典與數(shù)組、集合之間比較有什么優(yōu)勢，在什么場合可以使用。更重要的，說明了如何使用字典對象來存儲多列數(shù)據(jù)，并在工程中加以應(yīng)用。

當(dāng)然，字典對象還有其他實用的經(jīng)典用法，如在遞歸算法中遍歷樹，數(shù)據(jù)去重、排序等場合，都大有用處。

參考文獻(xiàn)：

[1] Excel Home，Excel VBA 實戰(zhàn)技巧精粹[M].人民郵電出版社，2013