1、實(shí)用標(biāo)準(zhǔn)文案Excel VBA類模塊入門(mén)教程示例一示例二集合示例文檔VBA類：隱者的秘密刖言寫(xiě)下這個(gè)題目，可能會(huì)讓很多朋友疑惑，筆者先埋下一個(gè) 關(guān)子，很快我會(huì)讓您知道這個(gè)標(biāo)題的寓意。這份禮物送給現(xiàn)在想學(xué)習(xí)類知識(shí)或曾經(jīng)學(xué)過(guò)但因?yàn)楦鞣N 原因沒(méi)有“修成正果”的朋友，我期望的結(jié)果是這篇文章后， 您可以在類模塊中像在標(biāo)準(zhǔn)模塊中寫(xiě)代碼一樣熟練，我也期 望不至于太乏味而使您沒(méi)有耐心看完整篇文章，或者說(shuō)期望 您學(xué)習(xí)的過(guò)程是輕松愉悅的，但愿我可以做到。文章構(gòu)劃為 8部分：1 .什么是類2. 為什么要學(xué)習(xí)類3. 類的預(yù)備知識(shí)4. 創(chuàng)建類屬性5. 創(chuàng)建類方法6. 創(chuàng)建類事件7. 個(gè)完整的類實(shí)例&未完的結(jié)尾什

2、么是類在我們身邊，相同或相似的物品無(wú)處不在，從生活用品，到工業(yè)產(chǎn)品，通常它們都是由同一個(gè)可以稱為“模具”的 東西生產(chǎn)出來(lái)。理解類，一般要先從對(duì)象談起，但由于從不同的角度，有不 同的理解，從而也有不同的關(guān)于類的定義，本文不去探討一 個(gè)完整并且公認(rèn)的類概念，在這一部分后，只要你有一個(gè)基 本的判斷并且在遇到時(shí)知道是類就可以了。在上面的這個(gè)例 子中，一個(gè)“模具”就是一個(gè)“類”，而由它生產(chǎn)出的每一 個(gè)產(chǎn)品，就是一個(gè)“對(duì)象”。看下面的 VBA語(yǔ)句：Dim tx1 As Textbox 不用解釋它的意思吧，這里我們用到一個(gè)類 Textbox 定義了 一個(gè)對(duì)象 tx1 ，再來(lái)看：Dim tx1 As Text

3、boxDim tx2 As Textbox又定義了一個(gè)對(duì)象 tx2 ，如果你不嫌煩， 我還可以繼續(xù)下去。 對(duì)象增加了，但 As 后的 Textbox 沒(méi)有變，它可以無(wú)限制的 使用下去。類是一個(gè)隱者，上面 Textbox是VBA已經(jīng)給我們準(zhǔn)備好的一 個(gè)類，我們無(wú)法知道VBA是怎么準(zhǔn)備的（它的真身被隱藏了） 但我們可以知道對(duì)象tx1怎么用。VBA把對(duì)對(duì)象的使用劃分 為三種，屬性、方法和事件（后面預(yù)備知識(shí)我們?cè)偬幔Ｈ欢?Textbox 是一個(gè)類，仍然不是本文要說(shuō)的類，因?yàn)樗?是VBA已經(jīng)給我們準(zhǔn)備好了的，我們要做的，只是知道如何 使用它而已。本文要介紹的，是利用VBA已經(jīng)給我們提供的資源，來(lái)構(gòu)建

4、我們自己的類，姑且可稱之為自定義類。這需 要在VBE下，通過(guò)插入類模塊，然后向類模塊中寫(xiě)入代碼來(lái) 完成。這就是你常常聽(tīng)說(shuō)的類，本文的主題就是這個(gè)包含代 碼的模塊！通過(guò)這個(gè)模塊，可以提供給我們一個(gè)和VBA提供給我們的諸如 Textbox 功能性質(zhì)完全相同的類，然后，再由 我們自己象使用 Textbox 一樣使用！ 類是一個(gè)隱者，她把自己藏在所有模塊的最后，甚至在多數(shù) 情況，她從不出場(chǎng)。現(xiàn)在，她掛著神秘的微笑，向你走來(lái)， 你要拒絕嗎為什么要學(xué)習(xí)類模塊類通常被認(rèn)為是學(xué)習(xí) VBA的難點(diǎn)之一，之所以如此，因?yàn)橄?對(duì)于制造一個(gè)標(biāo)準(zhǔn)模塊或用戶窗體，我們可以找到的類的學(xué) 習(xí)資源少之又少，甚至很多 VB的書(shū)籍也

5、只有繆繆字語(yǔ)（在 后面的預(yù)備知識(shí)，我們?cè)偬崃硪粋€(gè)重要的原因）。從技術(shù)角 度上看，類的構(gòu)建，不象窗體，VBA的類也不象有些語(yǔ)言提供了可視的設(shè)計(jì)界面，感性上那樣直接，隱者！她是不可視的設(shè)計(jì)，所有的構(gòu)建都是通過(guò)在類模塊中寫(xiě)代碼來(lái)實(shí)現(xiàn)的。1學(xué)習(xí)是一種興趣的追求俗語(yǔ)云： 學(xué)的千千萬(wàn)， 用的有幾何？又曰： 書(shū)到用時(shí)方恨少。 林語(yǔ)堂先生將做學(xué)問(wèn)劃分為三重境界，第二重說(shuō)“為伊消得 人憔悴，衣帶漸寬終不悔”，大多數(shù)朋友，包括本人，都不 是專業(yè)程序員，學(xué)習(xí)程序只是一種興趣和愛(ài)好，就好象有人 喜歡修煉網(wǎng)游一樣，對(duì)喜歡程序的人，不斷地學(xué)習(xí)和提高， 也是一種追求優(yōu)秀的態(tài)度，并且樂(lè)意享受這個(gè)追求的過(guò)程。 模塊、控件、鏈接

6、庫(kù)和類構(gòu)成軟件工程開(kāi)發(fā)的四大技術(shù)，而 類技術(shù)是控件和鏈接庫(kù)技術(shù)的基礎(chǔ)，我們不得不學(xué)。2類有什么用 如你前面看到的我們使用 Textbox 類，類可以創(chuàng)建大量性質(zhì) 相近的對(duì)象，減輕我們的程序量，簡(jiǎn)潔代碼并提高效率。 類定義后，在其它模塊中使用時(shí)，我們就可以暫時(shí)忘記或不 必考慮它內(nèi)部復(fù)雜的細(xì)節(jié)，讓我們變得輕松，VBA雖然不能真正封裝類的形式，但在這里，我們可以封裝它的概念。 這并不是類的全部好處，其它的，留著朋友們用的時(shí)候慢慢 體會(huì)吧。類掛著神秘的微笑，已經(jīng)走到你的大門(mén)口，開(kāi)門(mén)迎接她吧， 你還等什么？類的預(yù)備知識(shí)廣義上講，所有 VBA的知識(shí)，包括語(yǔ)句、函數(shù)以及為我們提供的標(biāo)準(zhǔn)類甚至第三方的資源都可

7、以在類中被使用。本文無(wú) 法也不準(zhǔn)備逐一探討，這里只說(shuō)一些最密切最基本的，但即 使這樣，筆者仍然不能把這些點(diǎn)的知識(shí)都寫(xiě)到，甚至因?yàn)閷?duì) 問(wèn)題解釋清晰或符合邏輯的需要，采用非規(guī)范的表述，對(duì)專 門(mén)問(wèn)題的全面理解，請(qǐng)讀者注意參考有關(guān)標(biāo)準(zhǔn)幫助文檔并加 以甄別。1從構(gòu)建者的角度理解對(duì)象上一回我們提到，類被認(rèn)為是 VBA難點(diǎn)還有一個(gè)原因，這就 是我們的思想！ VBA提供了大量的現(xiàn)成的類，我們幾乎不再 需要去構(gòu)建自己的類，這種結(jié)果，我們熟練地習(xí)慣了從使用 者的角度去理解類的實(shí)例：對(duì)象，包括它的屬性、方法和 事件。但是，現(xiàn)在你還要嘗試做一個(gè)提供者，這和你作為使 用者時(shí)的思考方法是完全不同的，甚至是革命性的。這種角

8、 色的轉(zhuǎn)位是痛苦的，它需要你放棄你原本可以自豪地解釋出 對(duì)象以及它的屬性、方法、事件的定義，它們?cè)臼侨绱诉?輯地被劃分，如此清晰，但現(xiàn)在，類模塊中的一切，彼此交 織，你會(huì)發(fā)現(xiàn)它們都模糊了！是需要你忘掉所有固執(zhí)的“招 勢(shì)”的時(shí)候了，當(dāng)你心中無(wú)劍時(shí)，轉(zhuǎn)位也就完成了，隱者變 得清晰了，她是如此美麗。且慢，在你完全忘掉前，讓我們 最后再看一眼它們的樣子，呵呵，如果你實(shí)在忘不掉，你就 提醒一下自己構(gòu)建者的身份吧。下面是通常情況下關(guān)于對(duì) 象、屬性、方法、事件的基本表述，如果你以前沒(méi)了解過(guò)， 則應(yīng)當(dāng)找些資料先認(rèn)真地理解它們，然后再按照上面的提示 去做。對(duì)象是由類創(chuàng)建的一個(gè)實(shí)例，它是類的實(shí)體化。 對(duì)象的引用

9、和操作被邏輯上劃分為不重疊的三個(gè)部分： 屬性是指對(duì)象的特性。以前面的 Textbox 為例，有長(zhǎng)度，高 度，框中顯示的文字等等。方法是指對(duì)象的某個(gè)操作。 如讓 Textbox 成為當(dāng)前的焦點(diǎn) （即 光標(biāo)移動(dòng)到它上面）。事件是指對(duì)象對(duì)外部動(dòng)作的響應(yīng)。如我們用鼠標(biāo)點(diǎn)擊 Textb ox 時(shí)，會(huì)產(chǎn)生一個(gè) Click 事件，改變它的值，則產(chǎn)生一個(gè) C hange 事件變量的作用域變量因?yàn)槁暶鞯奈恢煤头绞讲煌瑥亩胁煌淖饔糜颉Ｗ?用域是指變量在多大范圍內(nèi)能被代碼識(shí)別。可以劃分為過(guò)程 級(jí)、模塊級(jí)和全局變量。過(guò)程級(jí)變量在過(guò)程中聲明，這里過(guò)程指的是一個(gè)Sub 或 Function ，也包括后面提到到屬性過(guò)

10、程。通常用Dim 或 Static進(jìn)行聲明。 Dim 聲明的變量，只在該過(guò)程執(zhí)行時(shí)存在，過(guò)程 結(jié)束， 變量的值也就消失了。 Static 聲明的變量稱為靜態(tài)變 量，這個(gè)值在整個(gè)程序運(yùn)行期間都存在。 模塊級(jí)變量對(duì)整個(gè)模塊的所有過(guò)程都有效，但對(duì)其它模塊不 可用。可以在模塊頂部聲明。聲明模塊級(jí)變量用 Private 關(guān) 鍵字和直接使用 Dim 沒(méi)有區(qū)別。但推薦使用 Private 進(jìn)行聲 明，因?yàn)檫@樣可以方便地與后面的全局變量區(qū)分開(kāi)來(lái)。全局變量是對(duì)整個(gè) VBA工程的所有過(guò)程都有效的變量，使用 Public 關(guān)鍵字在標(biāo)準(zhǔn)模塊的頂部來(lái)聲明。在類模塊中，對(duì)變量作用域的理解要注意下面兩點(diǎn)：(a) 由于類是生

11、成對(duì)象的模具，每生成一個(gè)對(duì)象，相當(dāng)于 產(chǎn)生了一個(gè)副本，這個(gè)副本就是對(duì)象的“真身”，副本間是 相互獨(dú)立的，從而，模塊級(jí)的變量只作用于副本自身。(b) 類模塊中使用Public關(guān)鍵字，只有當(dāng)對(duì)象變量是這個(gè) 類的實(shí)例時(shí)，才能被訪問(wèn)。過(guò)程和函數(shù)變量、過(guò)程(Sub)、函數(shù)(Function )是我們?cè)跇?biāo)準(zhǔn)模塊中使用的最基本的構(gòu)件，在類摸塊中，它們?nèi)匀皇亲罨竞?重要的角色。對(duì)于它們，你已經(jīng)再熟悉不過(guò)，之所以前面還 要花這么多文字，是為了突出它的重要，也是想讓你放松一 下，哦，我花了很短的時(shí)間已經(jīng)看了這么多(我也寫(xiě)了這么 多！)。過(guò)程和函數(shù)并無(wú)實(shí)質(zhì)的區(qū)別，當(dāng)需要返回值時(shí)，就使用 Fun ction ，如果

12、不需要返回任何結(jié)果，隨你的愛(ài)好，但這時(shí)推 薦你使用Sub,因?yàn)檫@樣更符合微軟的本意。過(guò)程（Sub）、函數(shù)（ Function ）也有作用域，在標(biāo)準(zhǔn)模塊中通過(guò)使用 Pri vate 和 Public 關(guān)鍵字（可以省略 Public 關(guān)鍵字, 因?yàn)樗?默認(rèn)的）,可以劃分為模塊級(jí)和全局級(jí),以決定它是在當(dāng)前 的模塊有效還是整個(gè)工程有效。同變量一樣,在類模塊中使用 Public 關(guān)鍵字,只有當(dāng)引用 對(duì)象變量是這個(gè)類的實(shí)例時(shí),才能被訪問(wèn)通用內(nèi)部控件 Control （ s）VBA提供Control類作為一般內(nèi)部控件類型，當(dāng)使用Dim Ct As Control聲明了一個(gè)變量后,就可以將任何控件賦給該變量

13、,而不管 具體的類型,因?yàn)樵陬惖氖褂猛ǔＪ翘幚泶罅肯嘟膶?duì)象, 所以這種特性非常有用。在實(shí)際使用時(shí),我們多是通過(guò)容器 控件的 Controls 屬性來(lái)返回一個(gè) Control 的集合對(duì)象。Dim Ct As ControlFor Each Ct In Me.ControlsIf TypeName（Ct） = "CommandButton" Then MsgBox Ct.CaptionNext上面這段代碼可以遍歷窗體的所有控件并報(bào)告找到的命令 按鈕。集合 CollectionCollection 是我們?cè)谑褂妙悤r(shí)最常用到的對(duì)象。一個(gè) Colle ction 對(duì)象代表一組相關(guān)的

14、項(xiàng)目，雖然它的成員并不被強(qiáng)制 要求是同一類型的的，但請(qǐng)記住，這通常并不能給我們帶來(lái) 額外的方便，相反，我們通常是用來(lái)收集同一類型的數(shù)據(jù)。建立集合的方法和建立其它對(duì)象一樣，如：Dim col As New Collection集合建立后，可以使用Add方法添加成員，用Remove方法刪除成員，用 Item 方法從集合中返回特定成員。Private Sub CommandButton1_Click()Dim col As New CollectionDim i%Dim ct As ControlFor Each ct In Me.ControlsIf Left(ct.Name, 7) = &quo

15、t;TextBox" Then col.Add ctNext ctFor i = col.Count To 1 Step -1MsgBox " 下面刪除成員 " & col.Item(i).Namecol.Remove iNext iEnd Sub上面的代碼先將窗體上所有的 TextBox 加入到集合中，然后 再刪除掉。Count屬性返回集合的成員數(shù)量，Remove方法后 面的參數(shù)是集合成員的索引號(hào)。成員的索引號(hào)通常是按照加入的順序自然編號(hào)，從 1開(kāi)始，但可以在加入時(shí)使用 Add方 法的參數(shù)進(jìn)行改變。Add方法的完整語(yǔ)法是：object .Add item

16、 , key , before , afteritem 必需的。任意類型的表達(dá)式，指定要添加到集合中的成員。key 可選的。 唯一字符串表達(dá)式， 指定可以使用的鍵字符串， 代替位置索引來(lái)訪問(wèn)集合中的成員。before/after 可選的。表達(dá)式，指定集合中的相對(duì)位置。 下面語(yǔ)句向集合增加一個(gè)對(duì)象 TextBox1 ，并定義該成員的關(guān) 鍵字為 tx1 。col.Add TextBox1, "tx1"然后， 下面兩句都可以向集合中增加一個(gè) TextBox2 ，并把它 放在成員 TextBox1 的前面。col.Add TextBox2, , col.Countcol.Add T

17、extBox2, , "tx1"第一句中，因?yàn)橹挥幸粋€(gè)成員，所以col.Count也是索引號(hào)使用事件的WithEvents變量WithEvents不是一個(gè)單獨(dú)的語(yǔ)句，為了使用對(duì)象的事件，需要在聲明該對(duì)象時(shí)使用WithEvents關(guān)鍵字。例如：Dim WithEvents app As Application將上面的語(yǔ)句寫(xiě)入 ThisWorkBook的模塊，可以看到在通用 框中出現(xiàn)了一個(gè)變量app：此主題相關(guān)圖片如下:S Microsofl. Visual Basic - Book! - ThisWorkbook (代碼)婦 丈件）編輯 視圈邊 插入 格式辺 調(diào)試 運(yùn)行

18、74; 工具 外接程存® I-題 ¥BA?raject 3onkl)j込 licraEoft Excel 對(duì)象Sh&etl (Sh&etl)SkeetS (Shtet?)Sheets CSheet) Thi WorkbookWW«)聲明）Option ExplicitDim Vfi tKEveiits 電pp Am Appliation冋3模塊戰(zhàn)模塊1iF、類梗塊占類1屋牲-1 hi曲決Moi|TKi sf orkboa Workbook * ；按字魚(yú)序I按分類序佟稱）Thi sc-rkboolc 生AcceptLabsl eI Pals &

19、; AutoUpdateFre0 ChangeKi stcry0在通用框選擇app后，左邊的聲明框便會(huì)顯示 app的事件。此主題相關(guān)圖片如下:J J羽丨勺程-VBAProject縄文件歸編輯（1）視閣插入格式辺調(diào)試運(yùn)行® 工具外接程序）i d VBAPrnj ect (Boakl)F3 巴？ Microsoft Ixcel 對(duì)象O Sheetl Gheetl)S Sheets (Sheet?) 雹)Sheet3 (SheetS) Q Thi sWcrkboflkL=l - i檯塊我模塊1TH類模塊類1岡u Hi hmlfl片險(xiǎn)瞪髦MR|ThisVorkboo arkbook按字母序|

20、按分類序丨名稱）A.cceptL.belI FalseAutoUpdateFr e 0ChangeHi story 0<* c d cn 41 iri二2 » z丿址憩蘭"曽®行id “列1需要注意的是，使用WithEvents只是聲明了對(duì)象變量，而并不實(shí)際生成對(duì)象，為了生成真實(shí)的對(duì)象，你仍然需要在聲 明后向生成其它對(duì)象一樣，使用Set語(yǔ)句進(jìn)行指定。此外，WithEvents變量不能是通用類變量如Object，而必須指定類名，也不能把 WithEvents變量聲明為 As New。不能在標(biāo) 準(zhǔn)模塊中使用 WithEvents初識(shí)類模塊現(xiàn)在，請(qǐng)打開(kāi)你的 VBE

21、主菜單-插入-類模塊。插入了一個(gè)類模塊，也就建立了一個(gè)類。類模塊的名字就是類的名字。你現(xiàn)在看到的，她的名字叫“類1”，這是VBA按她姐妹排行給她取的的，是的，VBA一貫如此，你早就熟悉了這種規(guī)則，現(xiàn)在，在標(biāo)準(zhǔn)模塊或其它模塊中輸入 Dim As的時(shí)候，提示框中她已經(jīng)出現(xiàn)了。但我知道，有件事你正 耿耿于懷，“類1”，太沒(méi)個(gè)性了，想改成自己要的名字吧。 很容易，和你改標(biāo)準(zhǔn)模塊的名字一樣，打開(kāi)屬性窗口，看到 了吧，第一行就是她的名字，隨你的意愿修改吧。此主題相關(guān)圖片如下：Micros Ft Visual 陰引 t - Bookl -類 1 (代瑪)繩文件漏輯（T 視團(tuán)插入格式Q）調(diào)試助運(yùn)行®

22、 工具外接程序 1越Sheet】&he泌打 彎 Sheets (SheetS) 團(tuán) 1 Sh&et3 (SheetS)Q ThisWorkbook T H檯塊懸模塊1 白由牌塊丿叱鬆宜歲 o行3，列堆Option Esplicitdim xx負(fù)呂七 ImlMaps越幺XmlHameEpace4 XmlNam&spaces XmlSchema XmlSchemasL XgT) <（名稱）Instinc 1 ng 1 - Private碣豳名I類i類t類檯塊轅字母序I植佔(zhàn)蘭卓你或許已經(jīng)注意到，在名字下面，只有一個(gè)屬性：Instancing,其值也只有兩個(gè)選項(xiàng)：Priv

23、ate 和PublicNotCreatable 。事實(shí)上，你完全可以忽略這個(gè)Instancing ，就象你完全忽略 條件編譯指令一樣，因?yàn)樵赩BA中我們幾乎用不到它們，而只需維持她的默認(rèn)值即可。至少我是這樣認(rèn)為的，但我給不 了您充足的理由，而只是個(gè)人的一種狹隘經(jīng)歷。既然提到了，就簡(jiǎn)單說(shuō)明一下：Instancing 屬性決定該“類”在其它工程中是否可以被使用。 我們知道，標(biāo)準(zhǔn)模塊中的 Public過(guò)程，可以保存在宏工作 簿甚至直接被另一工作簿的工程調(diào)用，但類中的代碼是不可 分割的整體，所以必須整體決定是否允許外用。當(dāng)Instancing屬性設(shè)為Private （默認(rèn)）時(shí)，不允許其它工程訪問(wèn)。當(dāng)設(shè)

24、置為 PublicNotCreatable 時(shí)，只有在自己的工程創(chuàng)建 了該類的對(duì)象時(shí)，其它工程才允許使用這個(gè)對(duì)象，注意，僅 僅是在本工程中創(chuàng)建的對(duì)象，而不能用她在其它工程中創(chuàng)建 對(duì)象。隱者已經(jīng)來(lái)到你的身邊，透過(guò)薄薄的面紗，你似乎已看到她 神秘的微笑。站起身來(lái)，走過(guò)去吧！創(chuàng)建類屬性讓我們想一下作為類的使用者時(shí)，我們是如何操作對(duì)象的屬 性的，對(duì)象屬性的操作不外乎讀和寫(xiě)兩種。當(dāng)我們要給對(duì)象 的某個(gè)屬性賦值時(shí)，我們會(huì)：TextBox1.Text= ” abc ”當(dāng)我們要讀取對(duì)象的屬性時(shí)，S= TextBox1.Text現(xiàn)在，看看作為類的提供者需要怎樣做。我們將“類 1”改名為“ MyClass ”并為

25、它創(chuàng)建一個(gè)名稱為 x 的字符型屬性。1使用 Public 變量創(chuàng)建類屬性在類模塊中寫(xiě)下行代碼：Public x$ 是的，就這么簡(jiǎn)單，通常情況下，只需要這么簡(jiǎn)單使用 Property 過(guò)程創(chuàng)建類屬性Private s$Public Property Get x() As Stringx = sEnd PropertyPublic Property Let x(ByVal c As String)s = cEnd Property 我們可以省去上面默認(rèn)的 Public 。但看上去還是有點(diǎn)麻煩 哦，不僅需要兩個(gè)公共過(guò)程，而且還要一個(gè)輔助的私有變量 s 和一個(gè)參數(shù) c 。在類模塊中， Property

26、 過(guò)程把對(duì)屬性的讀 寫(xiě)分開(kāi)了，說(shuō)一下 Property 過(guò)程的工作機(jī)制，當(dāng)標(biāo)準(zhǔn)模塊 中的代碼讀取對(duì)象的屬性時(shí)，便會(huì)觸發(fā)存在的 Property Ge t 過(guò)程， 或者說(shuō) Property Get 過(guò)程提供了屬性的讀功能， 同 樣， Property Let 過(guò)程提供了寫(xiě)屬性。這樣，上面的兩個(gè)過(guò) 程(當(dāng)然在模塊中沒(méi)有先后的要求)，可以只有一個(gè)，或者 雖然兩個(gè)都有， 但卻不全是 Public ，從而提供出去的屬性是 只讀或只寫(xiě)(呵呵，沒(méi)見(jiàn)過(guò)只寫(xiě)哈)。僅僅是為了提供只讀 或只寫(xiě)的屬性，代碼就從一行變成了七行？！這樣的理由， 你不會(huì)信服， VBA 中的類通常是提供給我們自己使用的！ 如 果它確實(shí)是只讀

27、的，我們自覺(jué)地去只讀就是了！我們使用 roperty 過(guò)程還有其它理由，最基本的一條，我們可以利用 這個(gè)“過(guò)程”來(lái)做我們想做的事。看一看： Public Property Let x(ByVal c As String)s = Format(c, "0000")End Property 這里我們只是簡(jiǎn)單的利用了一下，更多的在后面你會(huì)看到。此外，誰(shuí)會(huì)保證有一天你不使用VB給別人提供類呢，這個(gè)技術(shù)可是通用的。提供一段標(biāo)準(zhǔn)模塊的測(cè)試代碼，來(lái)看看我 們上面構(gòu)建的類屬性，你自己試試吧。Sub aTest()Dim mc As New MyClassmc.x = "123&q

28、uot;Debug.Print mc.xEnd Sub 就象我們給普通變量和對(duì)象變量賦值的方式不同一樣，對(duì)象 變量是使用Set賦值的。對(duì)“對(duì)象”屬性，VBA提供了 Property Set 來(lái)代替構(gòu)建“普通”屬性使用的 Property Let 。 來(lái)看一段代碼：Private tx As ObjectProperty Get x() As ObjectSet x = txEnd PropertyProperty Set x(ByVal o As Object)Set tx = oEnd Property 和前面的比較一下，除了多一個(gè)Set ，實(shí)在沒(méi)有什么不同。告訴你一個(gè)小秘訣， 你可以按照

29、Function 去記住 Property Get的用法，按照 Sub去記住Property Let /Set 。屬性的初始值我們常常希望，當(dāng)一個(gè)對(duì)象建立的時(shí)候，它的某些屬性會(huì)被 自動(dòng)賦予一個(gè)初始值，這樣，對(duì)具有最常見(jiàn)的屬性值的對(duì)象 可以減少重復(fù)性的賦值工作。這需要借助于類的構(gòu)建函數(shù)來(lái) 完成。在類模塊代碼窗口的“通用”框中點(diǎn)擊向下的小三角箭頭， 選擇“ Class ”，右面聲明框中可以看到兩個(gè)選項(xiàng)，“ Initi alize ”和“ Terminate ”，我們對(duì)它們應(yīng)該不陌生，很多對(duì) 象都有這兩個(gè)事件， Initialize 事件當(dāng)對(duì)象建立時(shí)發(fā)生， T erminate 事件在對(duì)象對(duì)釋放時(shí)發(fā)

30、生。由于類是靜態(tài)存在的， 它并不是真正的對(duì)象，所以在類模塊中，它們通常被稱為構(gòu) 建函數(shù)和析構(gòu)函數(shù)，或構(gòu)建過(guò)程和析構(gòu)過(guò)程。對(duì)它們的理解 和你在對(duì)象中的用法并沒(méi)有什么不同。當(dāng)一個(gè)對(duì)象被建立 時(shí)，構(gòu)建函數(shù)將被首先執(zhí)行，同樣，當(dāng)對(duì)象釋放后，將執(zhí)行 析構(gòu)函數(shù)。下面建立MyClass，屬性x初始值為” 0001 ”的全部測(cè)試代 碼： 類模塊 MyClass 的代碼 Option ExplicitPrivate s$Public Property Get x() As Stringx = sEnd PropertyPublic Property Let x(ByVal c As String)s = cEn

31、d PropertyPrivate Sub Class_Initialize()s = "0001"End Sub 標(biāo)準(zhǔn)模塊 1 的代碼 Option ExplicitSub aTest()Dim mc As New MyClassDebug.Print mc.xEnd Sub 隱者為你揭開(kāi)了第一層面紗，你隱約已看到她美麗的面厐， 雖然還不是很清晰，但你知道，早晚會(huì)的創(chuàng)建類方法放松一下，請(qǐng)拿出你家的紫砂壺，泡上一壺好茶，聽(tīng)我給你 將類的方法的故事，你的茶品完了，我的故事也差不多就講 完了。1構(gòu)建類的方法其實(shí)就是在類模塊中寫(xiě)公共的Sub 和 Function現(xiàn)在我們給前面提到

32、的 MyClass 創(chuàng)建一個(gè)方法 PutIntoActi veCell ，功能是將 x 屬性值寫(xiě)入活動(dòng)單元格。Public x$Sub PutIntoActiveCell()ActiveCell = xEnd Sub 在標(biāo)準(zhǔn)模塊中用下面的代碼測(cè)試一下：Sub aTest()Dim mc As New MyClassmc.x = "abc"mc.PutIntoActiveCellEnd Sub 這是本回要告訴你的全部嗎？你還沒(méi)有開(kāi)始品茶吧？就這 樣了結(jié)束？這是最重要和基本的，但卻不是全部。 你是否有一種感覺(jué)，但你不能清楚地說(shuō)出來(lái)？ 端起你可愛(ài) 的茶杯，品一口茶，我們繼續(xù)。類的

33、方法環(huán)境借用廣為眾知的一個(gè)名詞“數(shù)據(jù)環(huán)境”，雖然不準(zhǔn)確，但我 實(shí)在想不出更好的稱謂來(lái)代替，姑且這么叫吧。稍后你就會(huì) 知道它的含義。類可以象VBA提供給我們的很多標(biāo)準(zhǔn)類一樣風(fēng)光無(wú)限，所有的程序設(shè)計(jì)者都在工程中使用它，但更多時(shí)候，我們所構(gòu)建 的類只在特定的環(huán)境下被使用，類的方法環(huán)境是指包括類所 在工程的其它成員在內(nèi)的， 可以調(diào)用的資源的集合。 工作簿、 工作表、窗體或其它，在類模塊中，你可以象在標(biāo)準(zhǔn)模塊中 一樣操作它們，千萬(wàn)不要因?yàn)閾Q成了類模塊而產(chǎn)生任何疑 慮，作為類的創(chuàng)建者，你要讓類模塊中的代碼象你在標(biāo)準(zhǔn)模 塊中一樣親近它們，只要你認(rèn)為必要。脫離了方法環(huán)境的、 謹(jǐn)小慎微的、封閉的類實(shí)在沒(méi)有什么意

34、義。如果你預(yù)期方法 環(huán)境在運(yùn)行時(shí)可能會(huì)有變化，你要事先預(yù)知它們并象在標(biāo)準(zhǔn) 模塊中一樣使用恰當(dāng)?shù)拇胧热缒悴荒艽_定運(yùn)行時(shí)活動(dòng)工 作表的名稱（但你確定屆時(shí)會(huì)是一個(gè)工作表），你可以使用 ActiveSheet 。我反復(fù)說(shuō)“和標(biāo)準(zhǔn)模塊一樣”，就是想告訴你在類模塊中創(chuàng) 建方法時(shí)，對(duì)工程中其它成員的操作，和你已經(jīng)熟悉的標(biāo)準(zhǔn) 模塊中的方式的實(shí)在沒(méi)有什么不同，這一原則適用于類模塊 中所有代碼（也許叫代碼環(huán)境更準(zhǔn)確些），而不僅僅是構(gòu)建 方法的代碼。現(xiàn)在，你知道了，你剛才的感覺(jué)到的是開(kāi)放的方法環(huán)境。是 的，以后你會(huì)更深地體會(huì)到，作為好的提供者，開(kāi)放的思維 有多重方法的兄弟成員事件 類方法的執(zhí)行需要在代碼中以顯性

35、的方式指定，象上面的 m c.PutIntoActiveCell ，有時(shí)候，當(dāng)最終操作者觸發(fā)類對(duì)象 成員（屬性）的某個(gè)事件，需要在事件發(fā)生時(shí)產(chǎn)生一系列的 操作，這時(shí)，我們要運(yùn)用成員事件。成員事件和方法都是類 提供的一系列代碼的操作，倆兄弟的區(qū)別在于，成員事件無(wú) 法也不必再由代碼顯性調(diào)用。我們來(lái)看一個(gè)具有普遍意義的事例。 重要例 窗體 UserForm1 上有 5 個(gè) CommandButton 控件（名稱分別為 默認(rèn) CommandButton 1- CommandButton 5）和 1 個(gè) TextBox 控件（名稱為 TextBox1 ）。要求當(dāng)各個(gè) CommandButton 控件 被

36、點(diǎn)擊時(shí)，它的按鈕文字（ Caption ）會(huì)寫(xiě)入 TextBox1 。如果不用類，我們需要為5個(gè)CommandButton控件分別寫(xiě)5個(gè)相同的 Click 事件代碼。如 :Private Sub CommandButton 1_Click（）TextBox1 = CommandButton 1.CaptionEnd Sub下面是用類的成員事件方法的代碼：類模塊Cmds的代碼Option ExplicitPublic WithEvents cmd As CommandButtonPrivate Sub cmd_Click()UserForm1.TextBox1 = cmd.CaptionEnd

37、Sub窗體 UserForm1 的代碼Option ExplicitDim co As New CollectionPrivate Sub UserForm_Initialize()Dim i%Dim myc As CmdsFor i = 1 To 5Set myc = New CmdsSet myc.cmd = Me.Controls("CommandButton" & i)co.Add mycNext iSet myc = NothingVBEnd Sub 仔細(xì)玩味上例的每一行代碼，直至品完你壺中的茶。呵呵， 因?yàn)樗鼘?shí)在很有用。最后提一下 Friend 關(guān)鍵字，

38、雖然在 A 中幾乎沒(méi)有什么用， 但如果有一天你要制作 ActiveX 部件， 可能會(huì)用到它。之所以要有 Friend 關(guān)鍵字，是因?yàn)轭惖乃?有部分在類模塊外是不可見(jiàn)的，但有時(shí)卻需要從外面訪問(wèn)這 些私有部分，這時(shí)，可以使用 Friend 關(guān)鍵字使屬性和方法 成為“友元成員”。友元成員在本工程中相當(dāng)于 Public ，但 在工程外，它仍是 Private 。 隱者為你揭去了第二層面紗，你幾乎已看清她美麗的面龐， 她帶著甜蜜的微笑，似乎在問(wèn)：什么才是最美的期待？創(chuàng)建類事件在VBA中，因?yàn)槲覀兗仁翘峁┱撸彩鞘褂谜撸酝ㄟ^(guò)良 好地構(gòu)建類的屬性和方法，已可以滿足我們需要全部的要 求。我不再去解釋這個(gè)觀

39、點(diǎn)，在本回后你自然會(huì)明白。從這 個(gè)意義上講，創(chuàng)建類事件實(shí)在沒(méi)有必要。唯一的遺憾是，我 們沒(méi)有體會(huì)到作為創(chuàng)建者的全部樂(lè)趣，標(biāo)準(zhǔn)類給我們提供了 各種事件，當(dāng)然希望自己也可以做到，想象中這應(yīng)當(dāng)是一件 激動(dòng)人心的事，所以，追求快樂(lè)是創(chuàng)建類事件的重要理由， 另一個(gè)理由，前面已經(jīng)提到。回到前面我們的 MyClass 類，我們將 x 屬性改名為 Value 屬 性，雖然對(duì)屬性、方法以及事件的命名，VBA沒(méi)有特別的限制，但建議您不要象我前面那樣，隨便取一個(gè)x，可能的話，要盡量和標(biāo)準(zhǔn)類的成員 (屬性、 方法以及事件) 名稱相一致。現(xiàn)在我們?yōu)椤笆褂谩闭咛峁┮粋€(gè)“Change”事件，不錯(cuò)，我們給它取名為“ Chan

40、ge”，而不再是隨意的“ y”或其它(雖 然也可以) ，這樣， 我也不用解釋這個(gè)事件的用意了， 呵呵。 為了做到這一點(diǎn)，看看我們應(yīng)該做什么。1第一步：使用 Event 語(yǔ)句聲明事件 看一下類模塊中現(xiàn)在的代碼：Option ExplicitPublic Event Change(ByRef Cancel As Boolean)Private s$Public Property Get Value() As StringValue = sEnd PropertyPublic Property Let Value(ByVal c As String)s = cEnd PropertyPrivate

41、Sub Class_Initialize()s = "abc" 初始值End Sub和前面的代碼比較，多出了一句：Public Event Change(ByRef Cancel As Boolean)這就是 Event 語(yǔ)句，只此一句， 我們已經(jīng)為我們的類聲明 (我 想使用“注冊(cè)” 一詞是不是更妥切)了一個(gè)事件Changeo在看 Event 語(yǔ)句產(chǎn)生的效果前，先來(lái)看它的特性：(1)為了聲明事件，Event總是Public的，這好理解吧。( 2)事件可以不帶參數(shù)，如 Public Event Change() ，也可以帶參數(shù)，如我們上面給出的，但參數(shù)不能是命名參數(shù)，可選參數(shù)

42、或數(shù)組參數(shù)。這里我只解釋一下命名參數(shù)的含義。我們知道，事件可以因特定的用戶事件而觸發(fā)，也可以在代碼 中象方法一樣指定執(zhí)行，如下面的 CommandButton1_Click ：Private Sub CommandButton2_Click()CommandButton1_ClickEnd Sub但在調(diào)用對(duì)象的方法時(shí)我們通常喜歡這樣的方式：Selection.Sort Key1:=Range("A2"), Order1:=xlAscending這里 Key1、Order1 就是命名參數(shù)，命名參數(shù)的好處是我們 不必記住它們的次序，調(diào)用時(shí)直接以名稱和冒號(hào)后加等于號(hào) 指定它的值，

43、但對(duì)事件的調(diào)用卻不允許這樣。( 3)事件沒(méi)有返回值。現(xiàn)在我們看一下， Event 為我們做了什么。建立一窗體 UserForml，添加一個(gè) TextBox控件(名稱為 Te xtBoxI )，兩個(gè) CommandButton控件(名稱為 CommandButt on1 和 CommandButton2)， CommandButton1 的 Caption 設(shè)置 為“賦值”，CommandButton2的Caption設(shè)置為“讀值”， 窗體的代碼如下：Option ExplicitDim WithEvents mc As MyClassPrivate Sub CommandButton1_Cli

44、ck()mc.Value = TextBox1 ' 賦值End SubPrivate Sub CommandButton2_Click()MsgBox "mc 當(dāng)前的值為 " & mc.Value ' 讀值End SubPrivate Sub UserForm_Initialize()Set mc = New MyClassEnd Sub上面這段代碼實(shí)現(xiàn)的是，當(dāng)點(diǎn)擊CommandButtonl時(shí)便會(huì)將TextBoxl 的值賦給 me的 Value，當(dāng)點(diǎn)擊 CommandButton2時(shí) 便會(huì)顯示me當(dāng)前的Value值。來(lái)運(yùn)行一下這個(gè)窗體，先點(diǎn)擊Com

45、mandButton2,此時(shí)顯示“ a be”，是me的初始值，然后在 TextBox1輸入“ 123”，點(diǎn)擊 CommandButtonl,再點(diǎn)擊 CommandButton2 顯示 “ 123” ,說(shuō)明賦值成功了。呵呵，忘了，我們要做什么了！現(xiàn)在，請(qǐng)從 UserForml代碼 窗口的“通用”框中選擇me,哇！我們聲明的事件在右邊 “聲 明”框中已經(jīng)出現(xiàn)了！此主題相關(guān)圖片如下:UserFormlMicrosoft Visual Basic = BookLmIs -垮 文件 編輯® 觀圖世）插入 格式 調(diào)試 運(yùn)行® 工具 外按程序國(guó)毎oa齟丨刁6丨工三p M國(guó)乂程會(huì)爭(zhēng)處丨金

46、丨行皿列-：題 VBAJfrojtct (Bookl.xls)-Microsoft Excel 對(duì)隊(duì)題 Sheetl (Sheetl)蜀 ShetS (Shet3) 窗 ThisWcrkbookS-已窗體圉 UserFormlEl - &類模塊丈1 NlyClasDjjn. WithEvents me As N)v)21assFr iv<te Sub CommazidBu.11on 1 Cl i ck 0 me. ¥alu& 二 TextBoxl ' RS值End Sub =_ ” Private Sub ConumaiiiBKitton2_Cli ck

47、 0"me當(dāng)前的值為"& me. Value，讀值 End EubFr £va tg Suber Formal ai ti ali zeSet me - New NlyClassEnd SubPrivate Sub mc_Chang(SyRe£ Cancel Boolean)End SubHUinidhlE我們定義這個(gè)事件是希望當(dāng)me的值改變時(shí)響應(yīng)的，現(xiàn)在就迫不及待地給它寫(xiě)一句代碼吧：Private Sub mc_Change（ByRef Cancel As Boolean）If MsgBox（" 要改變 mc的值嗎?", v

48、bYesNo） = vbNo ThenCancel = TrueEnd Sub上面這句代碼你不會(huì)陌生吧，希望當(dāng)用戶選擇了在改變時(shí)給 用戶一個(gè)確認(rèn)的機(jī)會(huì)。但是，現(xiàn)在點(diǎn)擊 CommandButtonl,卻不會(huì)給你選擇的機(jī)會(huì)， 我們還有一步?jīng)]有做。使用 RaiseEvent 語(yǔ)句引發(fā)事件第二步：使用 RaiseEvent 語(yǔ)句引發(fā)事件 聲明了事件后，我們要做的，便是找到所有與事件發(fā)生關(guān)聯(lián) 的地方，使用 RaiseEvent 語(yǔ)句引發(fā)事件，這里引發(fā)的含義 相當(dāng)于 Call ，就是調(diào)用用戶在事件中寫(xiě)的代碼。在本例中， 只有一個(gè)地方，就是 Property Let Value 過(guò)程中：Dim chyn A

49、s BooleanRaiseEvent Change(chyn)If chyn Then Exit Property通過(guò)傳遞回的chyn，決定是否執(zhí)行后面的賦值語(yǔ)句。下面就是添加了 RaiseEvents 語(yǔ)句后的類模塊的代碼：Option ExplicitPublic Event Change(ByRef Cancel As Boolean)Private s$Public Property Get Value() As StringValue = sEnd PropertyPublic Property Let Value(ByVal c As String)Dim chyn As BooleanRaiseEvent Change(chyn)If chyn Then Exit Propertys = cEnd PropertyPrivate Sub Class_Initialize()s = "abc"End Sub 現(xiàn)在你可以去運(yùn)行你的窗體了，我們要的效