一、概述
1．制作加載宏的一般步驟
（1）創(chuàng)建一個(gè)新的工作薄，在其中添加代碼。
（2）在“文件”菜單上單擊“屬性”。在“文件名 屬性”對(duì)話框中，單擊“摘要信息”選項(xiàng)卡，然后在“標(biāo)題”框中為加載宏指定一個(gè)您希望在“加載宏”對(duì)話框中出現(xiàn)的名稱，在“備注”框中輸入您希望當(dāng)用戶從“加載宏”對(duì)話框選擇該加載宏時(shí)在“加載宏”對(duì)話框下方出現(xiàn)的說(shuō)明信息。
（3）在“文件”菜單上單擊“另存為”。在“另存為”對(duì)話框中，從“保存類型”框中選擇“Microsoft Office Excel 加載宏（*.xla）”，然后再選擇保存路徑，并可在“文件名”框中修改文件名。
2．加載宏的加載和卸載
通過(guò)在“工具”菜單上單擊“加載宏”，可以加載制作好的加載宏文件，如果它不在列表中，可以在“加載宏”對(duì)話框中單擊“瀏覽”找到它，當(dāng)某個(gè)加載宏名稱前的復(fù)選框被選中時(shí)，說(shuō)明它已經(jīng)加載，取消選中復(fù)選框即為卸載該加載宏。
3．加載宏的作用
加載宏可以擴(kuò)展EXCEL的功能，將代碼寫(xiě)在加載宏中和寫(xiě)在普通的工作簿中相比，有如下優(yōu)點(diǎn)：
（1）加載宏對(duì)所有打開(kāi)的EXCEL文件都生效。普通工作簿的代碼一般只在特定的工作簿中才生效。
（2）加載宏不受宏安全級(jí)的限制，也不會(huì)有宏運(yùn)行的提示。即使將安全級(jí)設(shè)為“非常高”，加載宏就象EXCEL本身固有的功能一樣工作。同樣，它也不會(huì)被按住的Shift屏蔽。
特別提請(qǐng)不習(xí)慣使用加載宏而專門(mén)VBA代碼書(shū)寫(xiě)的朋友們注意的是，加載宏的所有好處和優(yōu)點(diǎn)，都是屬于EXCEL的常規(guī)操作者的，雖然加載宏中的代碼可以被其他工作簿（中的代碼）調(diào)用，但這樣做是繁瑣而低效的，千萬(wàn)不要把它當(dāng)成了C中的“頭”文件或鏈接庫(kù)。也許不會(huì)有很多人這樣認(rèn)為，但筆者初學(xué)VBA的時(shí)候，真的這樣天真過(guò)。
（3）加載宏在運(yùn)行時(shí)其工作簿窗口是隱藏的，因此普通用戶并不會(huì)感覺(jué)到它的存在。二、處理加載宏函數(shù)加載宏函數(shù)似乎是制作加載宏中最簡(jiǎn)單的，通常它只需要在模塊中寫(xiě)一段Function代碼，它就會(huì)和EXCEL自身的函數(shù)一樣使用，并且出現(xiàn)在“插入函數(shù)”對(duì)話框的列表中。關(guān)于函數(shù)的制作，再?zèng)]有其它的嗎？
1．為函數(shù)添加說(shuō)明信息
至少你可以通過(guò)對(duì)象瀏覽器設(shè)置“屬性”為函數(shù)添加一段說(shuō)明信息（對(duì)需要換行的說(shuō)明可以在編輯時(shí)使用組合鍵CTRL+ENTER），這些信息當(dāng)用戶使用“插入函數(shù)”對(duì)話框時(shí)就會(huì)看到。需要說(shuō)明的是，在對(duì)象瀏覽器中為函數(shù)添加說(shuō)明信息必須在“另存為”加載宏之前，一旦文件名的后綴變?yōu)榱薠LA，函數(shù)的屬性設(shè)置將不被接受。
關(guān)于為函數(shù)定制說(shuō)明信息，請(qǐng)參見(jiàn)：圖示自定義函數(shù)描述信息及有關(guān)介紹。
現(xiàn)在，請(qǐng)你新建一個(gè)工作簿，插入模塊，粘貼下面的代碼：Function dx(n)
' by gly1126 金額小寫(xiě)轉(zhuǎn)換為大寫(xiě)
dx = Replace(Application.Text(Round(n+0.00000001, 2), "[DBnum2]"), ".", "元")
dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) & "角" & Right(dx, 1) & "分", IIf(Left(Right(dx, 2), 1) = "元", dx & "角整", IIf(dx = "零", "", dx & "元整")))
dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "負(fù)")
End Function
如果覺(jué)得必要，你可以設(shè)置文件屬性（見(jiàn)一、1．（2））并為該函數(shù)添加說(shuō)明，先把它做為普通的工作簿保存（我們后面還會(huì)繼續(xù)用它）再另存為XLA，然后感受一下它的效果吧。
對(duì)已經(jīng)成為XLA文件的函數(shù)說(shuō)明的添加及修改并不需要總是手工先還原為XLS文件，我們稍后就會(huì)提到MacroOptions方法。在此之前，先來(lái)說(shuō)一下與加載宏相關(guān)的Workbook事件：
（1）AddinInstall和AddinUninstall。這兩個(gè)事件分別發(fā)生在加載宏加載和卸載時(shí)的，因此使用這兩個(gè)事件的工作簿一定是XLA工作簿，你需要記住的是，它們?cè)诩虞d宏作用期內(nèi)各自只會(huì)發(fā)生一次，加載宏加載后每次EXCEL的打開(kāi)和關(guān)閉都不會(huì)觸發(fā)它們。
（2）Open和BeforeClose。和上兩個(gè)事件不同，這兩個(gè)事件在加載宏作用期內(nèi)會(huì)被多次觸發(fā)，除了分別發(fā)生在AddinInstall后和AddinUninstall前之外，每次打開(kāi)和關(guān)閉EXCEL時(shí)都會(huì)觸發(fā)它們。
清楚了上述特性，你就應(yīng)該知道如何合理安排加載宏的初始化代碼。
2．為函數(shù)分類
默認(rèn)情況下，當(dāng)用戶使用“插入函數(shù)”時(shí)，加載宏函數(shù)會(huì)被分類放在“用戶定義”類別中。
哦，沒(méi)有個(gè)性！有的朋友甚至還會(huì)有被歧視的感覺(jué)呢，怎樣才能和EXCEL自身的函數(shù)一樣被放在“財(cái)務(wù)”類呢？我們會(huì)想到MacroOptions方法：
Application.MacroOptions Macro:="dx", Category:=1
不熟悉這個(gè)方法不要緊，看完后面的例子你再去查看一下它的幫助，很快就會(huì)掌握的。
現(xiàn)在的問(wèn)題，上面的語(yǔ)句放在哪兒呢？首先把它放在AddinInstall事件中看看，你會(huì)發(fā)現(xiàn)，在第一次加載時(shí)，目的確實(shí)達(dá)到了，但當(dāng)你關(guān)閉EXCEL重新打開(kāi)時(shí)，卻發(fā)現(xiàn)它又回到了“用戶定義”中，看來(lái)需要放在Open事件中：
Private Sub Workbook_Open()
ThisWorkbook.IsAddin = False
Application.MacroOptions Macro:="dx", Category:=1
ThisWorkbook.IsAddin = True
ThisWorkbook.Saved = True
End Sub
你會(huì)發(fā)現(xiàn)，除了我們需要的，又增加了3條語(yǔ)句，這是因?yàn)榧虞d宏文件與普通EXCEL文件除了后綴形式上的區(qū)別外，一個(gè)重要的內(nèi)在區(qū)別就是IsAddin屬性，該屬性為T(mén)rue 說(shuō)明是加載宏工作簿，MacroOptions方法對(duì)宏的設(shè)置不能在隱藏的工作簿中進(jìn)行，需要先將還原為普通工作簿，加入宏設(shè)置后再改回。這兩次改變不會(huì)觸發(fā)AddinInstall和AddinUninstall事件，但EXCEL會(huì)記住普通EXCEL文件的修改，因此在完成設(shè)置后，還需要加一句ThisWorkbook.Saved = True以使EXCEL忘記這種改變。
下面列出了EXCEL內(nèi)部分類對(duì)應(yīng)的Category參數(shù)的整數(shù)。
1：財(cái)務(wù) 2：日期與時(shí)間 3：數(shù)學(xué)與三角函數(shù)
4：統(tǒng)計(jì) 5：查找與引用 6：數(shù)據(jù)庫(kù)
7：文本 8：邏輯 9：信息
如果你不想記住這些整數(shù)的含義，你可以直接寫(xiě)成：
Application.MacroOptions Macro:="dx", Category:= "財(cái)務(wù)"
那么是否可以為加載宏函數(shù)增加一個(gè)新類別呢？很簡(jiǎn)單！只需要將上面的Category參數(shù)改變一下就可以了：
Application.MacroOptions Macro:="dx", Category:= "財(cái)務(wù)擴(kuò)展函數(shù)"
上句會(huì)在“插入函數(shù)”對(duì)話框中增加一個(gè)新類別“財(cái)務(wù)擴(kuò)展函數(shù)”，并把dx函數(shù)放入其中。
MacroOptions方法還有其它一些參數(shù)，可以幫助我們，包括為函數(shù)添加說(shuō)明，下面語(yǔ)句在分類的同時(shí)會(huì)為函數(shù)增加說(shuō)明。
Application.MacroOptions Macro:="dx", Description:="金額小寫(xiě)轉(zhuǎn)換為大寫(xiě)" & vbCr & "參數(shù)N：要轉(zhuǎn)換的金額。", Category:="財(cái)務(wù)擴(kuò)展函數(shù)"
讓我們?cè)俅位氐絆pen事件中，看看這3句代碼：
ThisWorkbook.IsAddin = False
ThisWorkbook.IsAddin = True
ThisWorkbook.Saved = True
在加載宏文件中使用類似在無(wú)耐情況下才采用的變通代碼，達(dá)到的目的僅僅是一般人并不注意的函數(shù)分類，我想我已經(jīng)把你引入歧途，真的很抱歉。我該如何糾正呢？
我無(wú)意保留一個(gè)沒(méi)有多大實(shí)用價(jià)值的技巧，我更希望由你說(shuō)出來(lái)……
（我會(huì)等你一個(gè)禮拜）呵呵，也不能全怪我，因?yàn)閹缀跛械墓_(kāi)的資料都是這樣介紹的，事實(shí)上，實(shí)現(xiàn)函數(shù)的說(shuō)明和分類根本用不著明示的代碼，這意味著在open事件中使用MacroOptions根本就是多余的。因?yàn)镋XCEL會(huì)記錄并保存MacroOptions的操作，你只需在設(shè)計(jì)階段，在立即窗口，執(zhí)行需要的MacroOptions操作，或者寫(xiě)一段MacroOptions操作代碼，然后再刪除它就可以了。要記住的是，執(zhí)行后一定別忘了在VBE中點(diǎn)擊保存。結(jié)果竟然如此簡(jiǎn)單！請(qǐng)參考我在后面給你提供的附件實(shí)例。
3．函數(shù)規(guī)范
有些朋友認(rèn)為：Function和Sub的區(qū)別僅僅在于是否有返回值，在Sub中使用的代碼同樣可以在Function中使用。這種認(rèn)識(shí)最多對(duì)了一半。是的，對(duì)于在代碼中調(diào)用的Function和Sub，除了“返回值”，它們幾乎沒(méi)有區(qū)別，但是，全局宏的函數(shù)是準(zhǔn)備給用戶在工作表中使用，象我們前面的做的函數(shù)，用戶在使用時(shí)，通常會(huì)在工作表的B2單元格中輸入“=dx(A1)”，如果一個(gè)函數(shù)是為工作表準(zhǔn)備的，代碼就要受到限制。先來(lái)看一個(gè)錯(cuò)誤的函數(shù)：
Function TTT(rg As Range) As String
rg.Value = rg.Value + 1
TTT = rg.Value
End Function
上面的函數(shù)試圖將參數(shù)區(qū)域的值先加1，然后返回其值。如果你在代碼中使用
N=TTT([a1])
不會(huì)有任何問(wèn)題，現(xiàn)在，你在A2單元格輸入公式“=ttt(A1)”看看。
限于篇幅，本文不再探討理論問(wèn)題，而是直接給出這些應(yīng)該注意的結(jié)論：
（1）嚴(yán)格遵循“黑匣子”理論，不要試圖去改變外部對(duì)象的屬性，包括參數(shù)對(duì)象，即使它們是傳址方式的。對(duì)外部對(duì)象值的改變，會(huì)導(dǎo)致函數(shù)的結(jié)果錯(cuò)誤，如你在上面看到的“#VALUE！”，其它屬性的改變，通常會(huì)被忽略。
（2）不要使用Volatile 方法，除非你要構(gòu)建的函數(shù)確實(shí)是象RAND類型的易失性函數(shù)。在函數(shù)中加入：
Application.Volatile
會(huì)告訴系統(tǒng)該函數(shù)是易失性函數(shù)，則當(dāng)工作表的任何區(qū)域發(fā)生改變時(shí)，該函數(shù)都會(huì)被重算。這將嚴(yán)重影響系統(tǒng)的效率。要做到這一點(diǎn)，應(yīng)當(dāng)將所有影響函數(shù)值變動(dòng)的區(qū)域都作為參數(shù)，即使某些區(qū)域是固定的也要作為參數(shù)傳遞。
（3）函數(shù)中可以使用可選參數(shù)，但可選參數(shù)應(yīng)避免為Range類型。因?yàn)槭褂肦ange類型的可選參數(shù)，將不可避免地使用Application.Volatile。
三、處理加載宏過(guò)程加載宏的另一個(gè)重用功能就是提供擴(kuò)展的操作，這通常是寫(xiě)在模塊中的Sub過(guò)程。設(shè)計(jì)加載宏過(guò)程應(yīng)注意兩個(gè)方面，一是代碼實(shí)體，二是提供適當(dāng)?shù)慕涌诜绞揭员阌脩艨梢允褂眠@些操作。
在代碼實(shí)體的設(shè)計(jì)上，加載宏代碼與其它VBA代碼看上去也許沒(méi)有太多的差別，但它要求設(shè)計(jì)者更為密切地注意加載宏的運(yùn)行環(huán)境，對(duì)象成員的使用也更應(yīng)規(guī)范和嚴(yán)謹(jǐn)。比如，喜歡混用ThisWorkbook和ActiveWorkbook的朋友要好好看看幫助文檔中二者的差別了。
現(xiàn)在請(qǐng)?jiān)谀K中粘貼下面的代碼：
Sub HVCenter()
' 這段代碼的含義很簡(jiǎn)單，讓選定區(qū)域文字水平垂直居中
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End Sub
在接口處理上，一般有3種處理方式。
1．快捷鍵
為過(guò)程設(shè)置快捷鍵可以在另存為加載宏文件前在“工具”菜單上單擊“宏”-“宏”，在“宏”對(duì)話框中，單擊“選項(xiàng)”按鈕完成。也可使用前面介紹過(guò)的MacroOptions方法設(shè)置。
Application.MacroOptions Macro:="", HasShortcutKey:=True, ShortcutKey:="A"
2．菜單
通過(guò)在系統(tǒng)菜單上增加菜單項(xiàng)可以將操作提供給使用者，加載宏是對(duì)EXCEL基本功能的擴(kuò)充，一般不提倡使用自定義菜單來(lái)代替系統(tǒng)菜單。
3．工具欄
可以使用EXCEL現(xiàn)有的工具欄上增加按鈕也可以通過(guò)新建工具欄來(lái)完成。下面代碼將前面的過(guò)程關(guān)聯(lián)到新建的菜單項(xiàng)和工具欄上。
Private Sub Workbook_AddinInstall()
On Error Resume Next
'新建菜單
With Application.CommandBars(1).Controls.Add(Type:=msoControlPopup)
.Caption = "測(cè)試(&T)"
With .Controls.Add(Type:=msoControlButton)
.Caption = "居中"
.OnAction = "HVCenter"
End With
End With
'新建工具欄
With Application.CommandBars.Add(Name:="myCmdbar")
.Position = msoBarTop
With .Controls.Add
.FaceId = 352
.Caption = "居中"
.OnAction = "HVCenter"
End With
.Visible = True
End With
End Sub由于工具欄和菜單生成后不會(huì)隨EXCEL的關(guān)閉而消失，因此創(chuàng)建工具欄和菜單的代碼一般應(yīng)寫(xiě)在AddinInstall事件中，并且在加載宏卸載時(shí)隨之卸載。下面代碼卸載前面創(chuàng)建的工具欄和菜單。
Private Sub Workbook_AddinUninstall()
On Error Resume Next
Dim ctl As CommandBarControl
'卸載工具欄和菜單
Application.CommandBars("myCmdbar").Delete
For Each ctl In Application.CommandBars(1).Controls
If ctl.Caption = "測(cè)試(&T)" Then ctl.Delete
Next ctl
End Sub
四、處理加載宏事件原則上講，加載宏事件應(yīng)對(duì)所有打開(kāi)工作簿發(fā)生的事件進(jìn)行處理。加載宏事件的設(shè)計(jì)相對(duì)函數(shù)和過(guò)程的設(shè)計(jì)而言通常要復(fù)雜得多，它要求設(shè)計(jì)者具有一定的類知識(shí)和良好的代碼組織能力。具體設(shè)計(jì)主要應(yīng)解決兩方面問(wèn)題，一是事件代碼本身，二是將預(yù)作的“事件代碼”和對(duì)象關(guān)聯(lián)。我們?nèi)酝ㄟ^(guò)實(shí)例，繼續(xù)前面的設(shè)計(jì)來(lái)介紹。
任務(wù)：讓加載宏實(shí)現(xiàn)當(dāng)用戶在活動(dòng)工作簿的活動(dòng)工作表選擇某一區(qū)域時(shí)，狀態(tài)欄顯示該區(qū)域的范圍。
1．設(shè)計(jì)事件代碼
（1）分析要用的對(duì)象和事件
不難知道，本例需要Workbook對(duì)象的SheetSelectionChange的事件。首先使用WithEvents關(guān)鍵字定義一個(gè)Workbook對(duì)象。
Dim WithEvents wkb As Workbook
注意，WithEvents關(guān)鍵字不能在標(biāo)準(zhǔn)模塊中使用，因此，代碼一般寫(xiě)在Thisworkbook中。
（2）書(shū)寫(xiě)事件代碼
Private Sub wkb_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.StatusBar = "你選擇的區(qū)域:" & Replace(Target.Address, "$", "")
End Sub
2．關(guān)聯(lián)對(duì)象
（1）分析需要關(guān)聯(lián)的所有情況
寫(xiě)好了上面的代碼，如何將它與活動(dòng)工作簿關(guān)聯(lián)呢？首先應(yīng)該分析可能進(jìn)行關(guān)聯(lián)的時(shí)機(jī)。以本例，大體我們將需要（改變）關(guān)聯(lián)，即活動(dòng)工作簿發(fā)生變化的情況列示如下：
a.當(dāng)新建工作簿時(shí)，關(guān)聯(lián)對(duì)象為新建的工作簿
b.當(dāng)新打開(kāi)工作簿時(shí)，關(guān)聯(lián)對(duì)象為新打開(kāi)工作簿
c.當(dāng)在兩個(gè)工作簿之間切換時(shí)，關(guān)聯(lián)對(duì)象為新切換到的工作簿
（2）完成關(guān)聯(lián)代碼
上面的分析知道，需要用到Application級(jí)的事件。定義Application對(duì)象，寫(xiě)入相應(yīng)的事件，然后在Open事件中將它關(guān)聯(lián)到當(dāng)前的Application即可。匯合前面的代碼如下：
Dim WithEvents app As Application
Dim WithEvents wkb As Workbook
Private Sub app_NewWorkbook(ByVal Wb As Workbook)
Set wkb = Wb
End Sub
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
Set wkb = Wb
End SubPrivate Sub app_WorkbookActivate(ByVal Wb As Workbook)
Set wkb = Wb
End SubPrivate Sub wkb_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.StatusBar = "你選擇的區(qū)域:" & Replace(Target.Address, "$", "")
End SubPrivate Sub Workbook_Open()
'關(guān)聯(lián)到Application
Set app = Application
End Sub
還有一個(gè)問(wèn)題，上面處理的都是加載宏加載后的關(guān)聯(lián)，當(dāng)加載宏加載時(shí)，調(diào)用加載宏的工作簿呢？你是否認(rèn)為可以在上面的Open事件中加入：
Set wkb = ActiveWorkbook
就可以了呢？答案是否定的。正確的做法是使用屬性過(guò)程和Auto_Open，首先在ThisWorkbook中加入下面的屬性過(guò)程：
Property Let ActiveWkb(ByVal wk As Workbook)
Set wkb = wk
End Property
然后再在模塊代碼中加入Auto_Open過(guò)程：
Private Sub Auto_Open()
ThisWorkbook.ActiveWkb = ActiveWorkbook
End Sub
我把這個(gè)放在最后，目的是提請(qǐng)你注意Open和Auto_Open的區(qū)別。五、加載宏制作的其它技巧1．靜態(tài)和動(dòng)態(tài)數(shù)據(jù)
我們一直沒(méi)有提到加載宏的工作表，它們可用來(lái)做什么呢？利用加載宏的工作表隱藏而具有良好的保護(hù)性，它們可以用來(lái)存儲(chǔ)“系統(tǒng)”使用的大量數(shù)據(jù)（包括格式），從而實(shí)現(xiàn)所謂代碼和數(shù)據(jù)的分離，使代碼更清晰簡(jiǎn)潔。這些數(shù)據(jù)是靜態(tài)的，在運(yùn)行過(guò)程中允許加載宏中使用代碼對(duì)它們進(jìn)行修改（包括增刪工作表），從而實(shí)現(xiàn)動(dòng)態(tài)數(shù)據(jù)的要求。然而，這些修改在EXCEL關(guān)閉的時(shí)候，不會(huì)象普通文件那樣給出類似“加載宏文件已經(jīng)修改，是否保存？”之類的提示，當(dāng)你下次打開(kāi)EXCEL時(shí)，加載宏工作表仍然會(huì)回到它最初的樣子。呵呵，是不是有點(diǎn)象“模板”??？只有一種情況例外，就是在加載宏中使用了明示的保存代碼如Thisworkbook.Save。
2．加載宏的調(diào)試
當(dāng)加載宏文件需要修改的時(shí)候，有些朋友習(xí)慣于先關(guān)閉所有的EXCEL文件，然后單獨(dú)打開(kāi)加載宏文件進(jìn)行修改。其實(shí)是不必要的，加載宏可以在加載的狀態(tài)下調(diào)試并且進(jìn)行修改，必要時(shí)可以先將它的IsAddin屬性設(shè)置為False（調(diào)試結(jié)束記得改回去），完成后在VBE中點(diǎn)擊“保存”（注意不能在主界面下保存）。
3．使用窗體
加載宏可以使用窗體為用戶提供友好的界面。其設(shè)計(jì)和普通工作簿沒(méi)有什么區(qū)別，不再贅述。
聯(lián)系客服
