EXCEL加載宏制作攻略

7頁腳內(nèi)容Excel中如何實(shí)現(xiàn)比對(duì)不同工作表中相同信息EXCEL加載宏制作攻略一、概述1．制作加載宏的一般步驟(1)創(chuàng)建一個(gè)新的工作薄，在其中添加代碼。(2)在“文件”菜單上單擊“屬性”。在“文件名屬性”對(duì)話框中，單擊“摘要信息”選項(xiàng)卡，然后在“標(biāo)題”框中為加載宏指定一個(gè)您希望在“加載宏”對(duì)話框中出現(xiàn)的名稱，在“備注”框中輸入您希望當(dāng)用戶從“加載宏”對(duì)話框選擇該加載宏時(shí)在“加載宏”對(duì)話框下方出現(xiàn)的說明信息。(3)在“文件”菜單上單擊“另存為”。在“另存為”對(duì)話框中，從“保存類型”框中選擇“MicrosoftOfficeExcel加載宏(*.xla)”，然后再選擇保存路徑，并可在“文件名”框中修2．加載宏的加載和卸載可以在“加載宏”對(duì)話框中單擊“瀏覽”找到它，當(dāng)某個(gè)加載宏名稱前的復(fù)選框被選中時(shí)，(1)加載宏對(duì)所有打開的EXCEL文件都生效。普通工作簿的代碼一般只在特定的工作簿中才生效。(2)加載宏不受宏安全級(jí)的限制，也不會(huì)有宏運(yùn)行的提示。即使將安全級(jí)設(shè)為“非常高”，加載宏就象EXCEL本身固有的功能一樣工作。同樣，它也不會(huì)被按住的Shift屏蔽。特別提請(qǐng)不習(xí)慣使用加載宏而專門VBA代碼書寫的朋友們注意的是，加載宏的所有好處和EL(3)加載宏在運(yùn)行時(shí)其工作簿窗口是隱藏的，因此普通用戶并不會(huì)感覺到它的存在。二、處理加載宏函數(shù)加載宏函數(shù)似乎是制作加載宏中最簡(jiǎn)單的，通常它只需要在模塊中寫一段Function代碼，1．為函數(shù)添加說明信息在編輯時(shí)使用組合鍵CTRL+ENTER)，這些信息當(dāng)用戶使用“插入函數(shù)”對(duì)話框時(shí)就會(huì)看到。需要說明的是，在對(duì)象瀏覽器中為函數(shù)添加說明信息必須在“另存為”加載宏之前，一旦文7頁腳內(nèi)容Excel中如何實(shí)現(xiàn)比對(duì)不同工作表中相同信息Functiondx(n)'bygly1126金額小寫轉(zhuǎn)換為大寫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ù)")EndFunction如果覺得必要，你可以設(shè)置文件屬性(見一、1．(2))并為該函數(shù)添加說明，先把它做為普通的工作簿保存(我們后面還會(huì)繼續(xù)用它)再另存為XLA，然后感受一下它的效果吧。book (1)AddinInstall和AddinUninstall。這兩個(gè)事件分別發(fā)生在加載宏加載和卸載時(shí)的，因此使用這兩個(gè)事件的工作簿一定是XLA工作簿，你需要記住的是，它們?cè)诩虞d宏作用期內(nèi)各自只會(huì)發(fā)生一次，加載宏加載后每次EXCEL的打開和關(guān)閉都不會(huì)觸發(fā)它們。(2)Open和BeforeClose。和上兩個(gè)事件不同，這兩個(gè)事件在加載宏作用期內(nèi)會(huì)被多次觸清楚了上述特性，你就應(yīng)該知道如何合理安排加載宏的初始化代碼。2．為函數(shù)分類Application.MacroOptionsMacro:="dx",Category:=1不熟悉這個(gè)方法不要緊，看完后面的例子你再去查看一下它的幫助，很快就會(huì)掌握的?，F(xiàn)在的問題，上面的語句放在哪兒呢？首先把它放在AddinInstall事件中看看，你會(huì)發(fā)現(xiàn)，PrivateSubWorkbook_Open()ThisWorkbook.IsAddin=FalseApplication.MacroOptionsMacro:="dx",Category:=1ThisWorkbook.IsAddin=TrueThisWorkbook.Saved=True了后綴形式上的區(qū)別外，一個(gè)重要的內(nèi)在區(qū)別就是IsAddin屬性，該屬性為True說明是加載宏工作簿，MacroOptions方法對(duì)宏的設(shè)置不能在隱藏的工作簿中進(jìn)行，需要先將還原為ThisWorkbook.Saved=True以使EXCEL忘記這種改變。4：統(tǒng)計(jì)5：查找與引用6：數(shù)據(jù)庫7：文本8：邏輯9：信息7頁腳內(nèi)容Excel中如何實(shí)現(xiàn)比對(duì)不同工作表中相同信息如果你不想記住這些整數(shù)的含義，你可以直接寫成：Application.MacroOptionsMacro:="dx",Category:="財(cái)務(wù)"那么是否可以為加載宏函數(shù)增加一個(gè)新類別呢？很簡(jiǎn)單！只需要將上面的Category參數(shù)改Application.MacroOptionsMacro:="dx",Category:="財(cái)務(wù)擴(kuò)展函數(shù)"MacroOptions方法還有其它一些參數(shù)，可以幫助我們，包括為函數(shù)添加說明，下面語句在分類的同時(shí)會(huì)為函數(shù)增加說明。Application.MacroOptionsMacro:="dx",Description:="金額小寫轉(zhuǎn)換為大寫"&vbCr&"參數(shù)N：ThisWorkbook.IsAddin=FalseThisWorkbook.IsAddin=TrueThisWorkbook.Saved=True在加載宏文件中使用類似在無耐情況下才采用的變通代碼，達(dá)到的目的僅僅是一般人并不注意的函數(shù)分類，我想我已經(jīng)把你引入歧途，真的很抱歉。我該如何糾正呢？我無意保留一個(gè)沒有多大實(shí)用價(jià)值的技巧，我更希望由你說出來……三、處理加載宏過程加載宏的另一個(gè)重用功能就是提供擴(kuò)展的操作，這通常是寫在模塊中的Sub過程。設(shè)計(jì)加載在代碼實(shí)體的設(shè)計(jì)上，加載宏代碼與其它VBA代碼看上去也許沒有太多的差別，但它要求混用ThisWorkbook和ActiveWorkbook的朋友要好好看看幫助文檔中二者的差別了。在模塊中粘貼下面的代碼：SubHVCenter()'這段代碼的含義很簡(jiǎn)單，讓選定區(qū)域文字水平垂直居中WithSelection.HorizontalAlignment=xlCentertxlCenterEndWith在接口處理上，一般有3種處理方式。Application.MacroOptionsMacro:="",HasShortcutKey:=True,ShortcutKey:="A"2．菜單通過在系統(tǒng)菜單上增加菜單項(xiàng)可以將操作提供給使用者，加載宏是對(duì)EXCEL基本功能的擴(kuò)充，一般不提倡使用自定義菜單來代替系統(tǒng)菜單。以使用EXCEL現(xiàn)有的工具欄上增加按鈕也可以通過新建工具欄來完成。下面代碼將前面的過程關(guān)聯(lián)到新建的菜單項(xiàng)和工具欄上。7頁腳內(nèi)容Excel中如何實(shí)現(xiàn)比對(duì)不同工作表中相同信息PrivateSubWorkbook_AddinInstall()OnErrorResumeNext'新建菜單WithApplication.CommandBars(1).Controls.Add(Type:=msoControlPopup).Caption="測(cè)試(&T)"With.Controls.Add(Type:=msoControlButton).Caption="居中".OnAction="HVCenter"EndWithEndWith'新建工具欄WithApplication.CommandBars.Add(Name:="myCmdbar")msoBarTopWith.Controls.AddaceId.Caption="居中"OnAction"HVCenter"EndWitheEndWith寫在AddinInstall事件中，并且在加載宏卸載時(shí)隨之卸載。下面代碼卸載前面創(chuàng)建的工具欄PrivateSubWorkbook_AddinUninstall()OnErrorResumeNextDimctlAsCommandBarControl'卸載工具欄和菜單Application.CommandBars("myCmdbar").DeleteForEachctlInApplication.CommandBars(1).ControlsIfctl.Caption="測(cè)試(&T)"Thenctl.Delete四、處理加載宏事件力。具體設(shè)計(jì)主要應(yīng)解決兩方面問題，一是事件代碼本身，二是將預(yù)作的“事件代碼”和對(duì)(1)分析要用的對(duì)象和事件7頁腳內(nèi)容Excel中如何實(shí)現(xiàn)比對(duì)不同工作表中相同信息Workbook對(duì)象的SheetSelectionChange的事件。首先使用WithEventsDimWithEventswkbAsWorkbook(2)書寫事件代碼PrivateSubwkb_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)Application.StatusBar="你選擇的區(qū)域:"&Replace(Target.Address,"$","")2．關(guān)聯(lián)對(duì)象(1)分析需要關(guān)聯(lián)的所有情況本例，大體我們將需要(改變)關(guān)聯(lián)，即活動(dòng)工作簿發(fā)生變化的情況列示如下：a.當(dāng)新建工作簿時(shí)，關(guān)聯(lián)對(duì)象為新建的工作簿b.當(dāng)新打開工作簿時(shí)，關(guān)聯(lián)對(duì)象為新打開工作簿c.當(dāng)在兩個(gè)工作簿之間切換時(shí)，關(guān)聯(lián)對(duì)象為新切換到的工作簿(2)完成關(guān)聯(lián)代碼DimWithEventsappAsApplicationDimWithEventswkbAsWorkbookPrivateSubapp_NewWorkbook(ByValWbAsWorkbook)Setwkb=WbPrivateSubapp_WorkbookOpen(ByValWbAsWorkbook)Setwkb=WbPrivateSubapp_WorkbookActivate(ByValWbAsWorkbook)Setwkb=WbPrivateSubwkb_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)Application.StatusBar="你選擇的區(qū)域:"&Replace(Target.Address,"$","")PrivateSubWorkbook_Open()Setapp=Application可以在上面的Open事件中加入：Setwkb=ActiveWorkbook7頁腳內(nèi)容ExcelExcel中如何實(shí)現(xiàn)比對(duì)不同工作表中相同信息ThisWorkbook中加入下面的屬性過程：PropertyLetActiveWkb(ByValwkAsWorkbook)Setwkb=wkdProper