excel vba 常見(jiàn)字典用法集錦及代碼詳解(全)

1、常見(jiàn)字典用法集錦及代碼詳解前言凡是上過(guò)學(xué)校的人都使用過(guò)字典，從新華字典、成語(yǔ)詞典，到英漢字典以及各種各樣數(shù)不勝數(shù)的專業(yè)字典，字典是上學(xué)必備的、經(jīng)常查閱的工具書。有了它們，我們可以很方便的通過(guò)查找某個(gè)關(guān)鍵字，進(jìn)而查到這個(gè)關(guān)鍵字的種種解釋，非?？旖輰?shí)用。凡是上過(guò)EH論壇的想學(xué)習(xí)VBA里面字典用法的，幾乎都看過(guò)研究過(guò)nthwolves狼版主、oobird版主的有關(guān)字典的精華貼和經(jīng)典代碼。我也是從這里接觸到和學(xué)習(xí)到字典的，在此，對(duì)他們表示深深的

2、謝意，同時(shí)也對(duì)很多把字典用得出神入化的高手們致敬，從他們那里我們也學(xué)到了很多，也得到了提高。字典對(duì)象只有4個(gè)屬性和6個(gè)方法，相對(duì)其它的對(duì)象要簡(jiǎn)潔得多，而且容易理解使用方便，功能強(qiáng)大，運(yùn)行速度非?？?，效率極高。深受大家的喜愛(ài)。本文希望通過(guò)對(duì)一些字典應(yīng)用的典型實(shí)例的代碼的詳細(xì)解釋來(lái)給初次接觸字典和想要進(jìn)一步了解字典用法的朋友提供一點(diǎn)備查的參考資料，希望大家能喜歡。給代碼注釋估計(jì)是大家都怕做的，因?yàn)橥浅隽Σ挥懞玫?，稍不留神或者自己確實(shí)理解

3、得不對(duì)，還會(huì)貽誤他人。所以下面的這些注釋如果有不對(duì)或者不妥當(dāng)?shù)牡胤?，?qǐng)大家跟帖時(shí)指正批評(píng)，及時(shí)改正。字典的簡(jiǎn)介字典（Dictionary）對(duì)象是微軟Windows腳本語(yǔ)言中的一個(gè)很有用的對(duì)象。附帶提一下，有名的正則表達(dá)式（RegExp）對(duì)象和能方便處理驅(qū)動(dòng)器、文件夾和文件的（FileSystemObject）對(duì)象也是微軟Windows腳本語(yǔ)言中的一份子。字典對(duì)象相當(dāng)于一種聯(lián)合數(shù)組，它是由具有唯一性的關(guān)鍵字（Key）和它的項(xiàng)（Item）聯(lián)

4、合組成。就好像一本字典書一樣，是由很多生字和對(duì)它們對(duì)應(yīng)的注解所組成。比如字典的“典”字的解釋是這樣的：“典”字就是具有唯一性的關(guān)鍵字，后面的解釋就是它的項(xiàng)，和“典”字聯(lián)合組成一對(duì)數(shù)據(jù)。3Exists方法如果Dictionary對(duì)象中存在所指定的關(guān)鍵字則返回true，否則返回false。object.Exists(key)參數(shù)object必選項(xiàng)?？偸且粋€(gè)Dictionary對(duì)象的名稱。key必選項(xiàng)。需要在Dictionary對(duì)象中搜索的k

5、ey值。常用語(yǔ)句：Dimdmsg$Setd=CreateObject(“ing.Dictionary“)d.Add“a““Athens“d.Add“b““Belgrade“d.Add“c““Cairo“Ifd.Exists(“c“)Thenmsg=“指定的關(guān)鍵字已經(jīng)存在?！癊lsemsg=“指定的關(guān)鍵字不存在。“EndIf代碼詳解代碼詳解1、Dimdmsg$：聲明變量，d見(jiàn)前例；msg$聲明為字符串?dāng)?shù)據(jù)類型(String)，一般寫法為D

6、immsgAsString。String的類型聲明字符為美元號(hào)($)。2、Ifd.Exists(“c“)Then：如果字典中存在關(guān)鍵字”c”，那么執(zhí)行下面的語(yǔ)句。3、msg=“指定的關(guān)鍵字已經(jīng)存在?！埃喊选爸付ǖ年P(guān)鍵字已經(jīng)存在?！白址x給變量msg。4、Else：否則執(zhí)行下面的語(yǔ)句。5、msg=“指定的關(guān)鍵字不存在?！埃喊选爸付ǖ年P(guān)鍵字不存在。“字符串賦給變量msg。6、EndIf：結(jié)束If…Else…Endif判斷。Keys方法返回