ExcelVBA編程150實例大全

1、Excel VBA編程實例150例VBE編輯器及VBA代碼輸入和調(diào)試的基本知識在學習這些實例的過程中，最好自已動手將它們輸入到VBE編借器中調(diào)試運行，來査看它們的結(jié)果。當 然，您可以偷賴，將它們復制/粘貼到代碼編輯窗口后，進行調(diào)試運行。下面，對VBE編借器界而進行介 紹，并對VBA代碼輸入和調(diào)試的基本知識進行簡單的講解。激活VBE編輯器一般可以使用以下三種方式來打開VBE編輯器：使用工作表菜單具宏一Visual Basic編借器”命令，如圖0001所示;在Visual Basic工具欄上，按Visual Basic編輯器”按鈕,如圖0002所示;按AIUF11組合鍵。宋體鍵入辛工具遼）丨數(shù)據(jù)

2、窗口 幫肋Q?）拼寫檢查si信息檢索（K）. Alt+CLick 諸誤檢查（K）語音迖）共享工作區(qū)（）.共享工作簿QB）.修訂0）比較和臺并工作潯址）保護d）單變量求解方秦廈）公式審孩）圖00-01：選擇菜單TE具宏Visual Basic編輯器”命令來打開VBE編輯器聯(lián)機協(xié)作）圖00-02：選擇Visual Basic I具欄上的Visual Basic編輯器”命令按鈕來打開VBE編輯器 此外，您也可以使用下而三種方式打開VBE編輯器：在任一工作表標簽上單擊鼠標右鍵，在彈出的菜單中選擇查看代碼，則可進入VBE編輯器訪問該 工作表的代碼模塊，如圖00-03所示；在工作簿窗口左上角的Excel圖

3、標上單擊鼠標右鍵，在彈岀的菜單中選擇查看代碼”，則可進入VB E編輯器訪問活動工作簿的ThisWorkbook代碼模塊，如圖00-04所示：選擇菜單“工具一宏宏”命令打開宏對話框，若該工作薄中有宏程序，則單擊該對話框中的編 輯按鈕即可進行VBE編輯器代碼模塊，如圖00-05所示。圖00-03：右擊工作表標簽彈出菜單并選擇查看代碼”打開VBE編輯器題文件電）編輯0）拔保存另存為打E卩迥頁面設置 拼寫檢查新連窗口 01） 重排窗口 顯示比例.甲查看代碼辺圖00-04：右擊Excel圖標彈出菜單并選擇“查看代碼”打開VBE編輯器圖00-05：任宏對話框中單擊編輯”按鈕打開VBE編借器VBE編輯器窗口

4、簡介剛打開VBE編輯器時，所顯示的窗口如圖0006所示，其中沒有代碼模塊窗口。乞 Microsoft Visual Basic - Bookl文件O赭視與）#A格式調(diào)試iG工貝外接程序 fin WS- Sheetl|Sheetl Worksheet按字踴|能類序|SheetlDi spl ayf agsBr ds FdsZJDisplavRihtToLeft False 圖00-06：剛打開VBE編輯器時的窗口可以在“工程資源管理器中雙擊任一對象打開代碼窗口，或者選擇菜單“插入模塊”或插入一類模塊 來打開代碼窗口。一般VBE編輯器窗口及各組成部件名稱如圖0007所示，可以通過“視圖”菜單中的菜

5、單 項選擇所出現(xiàn)的窗口。同時，可以在“工程屬性”窗口中設置或修改相應對象的屬性。標題欄對象卜拉列丿菜單欄；*2| Microsoft Visual Basic - Boole 1 -模塊 1 （代碼）磯文件0)編輯觀圖 插入格式調(diào)試運行 工具遼)外接程序 窗I匚具欄1S - YBAProjectOption Explicit竹丿J如如曰越VBAFroject gkl)I L S J Q日囹Micm価E花沁對勢 Sheetl (Sheetl) 打前T崔已紡畫濃建:器 代碼模航麗J模塊於模塊 占“寧豐豐一:熾類.程資源管理器窗口性模塊】模V按宇母序匡分類序awn代碼模塊窗口圖00-07： VBE編

6、借器窗口下面是帶有用戶窗體的VBE編輯器窗口，如圖00-08所示。選擇VBE菜單插入用戶窗體”，即可插 入一個用戶窗體。當插入用戶窗體后，在工程資源管理器”窗口中會出現(xiàn)一個用戶窗體對象，工程屬性” 窗口顯示當前用戶窗體的屬性，可對相關(guān)屬性進行設置或修改。同時，在用戶窗體上用鼠標單擊，會出現(xiàn) 控件工具箱役在“工程資源管理器窗口雙擊用戶窗體圖標，會出現(xiàn)相應的用戶窗體：在用戶窗體圖標或者是在用戶窗體上單擊鼠標右鍵，然后在彈岀的菜單中選擇“查看代碼”，則會出現(xiàn)用戶窗體代碼窗口。圖00-08： VBE編借器窗口（帶有用戶窗體）在VBE編輯器中輸入VBA代碼如前所述，您可以選擇VBE菜單“插入用戶窗體/模

7、塊/類模塊”來插入模塊或用戶窗體以及相應的代碼 窗口。此外，您也可以在“工程資源管理器中單擊鼠標右鍵，從彈岀的菜單中選擇插入用戶窗體/模塊 /類模塊來實現(xiàn)上而的操作。在獲取相應的代碼模塊窗口后，就可以輸入VBA代碼了。在VBE編輯器的代碼模塊中輸入VBA代碼，通常有以下幾種方法：手工鍵盤輸入：使用宏錄制器，即選擇菜單工具宏一錄制新宏”命令，將所進行的操作自動錄制成宏代碼；復制/粘貼代碼，即將現(xiàn)有的代碼復制后，粘貼到相應的代碼模塊中：導入代碼模塊，即在VBE編輯器中選擇菜單文彳導入文件”或在工程資源管理器”的任一對象上右 擊鼠標選擇菜單“導入文件”，選擇相應的代碼文件導入。如果不想要某個模塊了，

8、可以選擇菜單文件一移除模塊”，也可以在相應的模塊上單擊鼠標右鍵，從彈 出的菜單中選擇“移除模塊。此時，會彈出一個警告框，詢問在移除模塊前是否將其導出，可以根據(jù)需要 進行選擇。也可以選擇菜單“文件導出文件或在相應的模塊上單擊鼠標右鍵后，從彈出的菜單中選擇導出文件”, 將移除的模塊保存在相應的文件夾中。這樣，以后可以對其進行導入，從而加以利用。調(diào)試VBA代碼在VBE編輯器的菜單中，有兩項與調(diào)試運行有關(guān)的菜單項，即“調(diào)試”菜單和“運行”菜單，它們提供了各種 調(diào)試和運行的手段。在我現(xiàn)階段進行代碼調(diào)試時，常用到的有以下幾個：逐語句?？梢园碏8鍵對代碼按順序一條一條語句運行，從而找岀語句或邏輯錯誤。設置斷

9、點。在可能存在問題的語句處設置斷點（可通過在相應代碼前的空白部位單擊，將會出現(xiàn)一個深 紅色的橢圓即斷點），當程序運行至斷點處時，會中止運行。在語句的適當部位設K Debug.Print語句，運行后英結(jié)果會顯示在立即窗口”中，可以此測試或跟蹤變 量的值。在立即窗口沖測試。對值的測試或跟蹤，也可以以“？ ”開頭，在立即窗口”中輸入需要測試值的語句， 按Enter回車鍵后將立即出現(xiàn)結(jié)果：對執(zhí)行語句的測試，可直接在立即窗口”中輸入，按Enter回車鍵后 將執(zhí)行?？梢园碏5鍵直接運行光標所在位巻的子程序。在執(zhí)行程序后，必須在Excel工作表中查看所得到的結(jié)果。可以用鼠標單擊VBE編輯器左上角的Excel

10、 圖標或者是按AIUF11組合鍵切換到Excel界面。（當然，對程序代碼的調(diào)試有很多方法和技巧，留待以后對VBA進一步研究和理解更透徹后一并討論。） 利用VBA幫助系統(tǒng)如果遇到疑問或錯誤，可以利用Excel自帶的VBA幫助系統(tǒng)?？梢栽谌鐖D00-09所示的部位輸入需要幫助的關(guān)鍵詞，按Enter回車鍵后將會出現(xiàn)相關(guān)主題。用鼠標單 擊相應的主題即會出現(xiàn)詳細的幫助信息。圖00-09：幫助搜索窗口可以按F2鍵，調(diào)出對象瀏覽器”窗口（如圖00-10所示），在搜索文本框中輸入需要幫助的關(guān)鍵詞，將會 在搜索結(jié)果”中出現(xiàn)一系列相關(guān)的對象及方法、屬性列表，單擊相應的對象則會在“類”和“成員列表框中顯 示相應的對象

11、和方法、屬性成員列表，在成員列表中相應的項目上按F1鍵即會出現(xiàn)詳細的幫助信息。（對 象瀏覽器”是一個很好的幫助工具，值得好好研究）乞 MicKosoft Visual Basic - Bookl -對象淡I芫器答 文件的 編輯 視國辺 插入 格式 調(diào)試 運行 工具 外接程序念)窗口迫 幫助妁 團國魁轟靜丨町叫ai諒丨廳密裁汝砲 /搜索框S-VBAProjert|Skeel Worksheet1 (名稱)SheetlDisplayFageBreaksFalseDisplayRightl oLeftFlseEnablekutoF literFlseEnabl eC al cul at i oxiT

12、rueEnabl eO utl i ni ngFlseEnableP ivotTableFlseEnibleSelection0 - xlNoRstrieti onsNameSheetlScr olLkreaStandardWidth8.38Visible1 - xlSheetVisible按字母序I按分類序I圖00-10：對象瀏覽器窗口I術(shù)有庫 range庫-眺 Excel 眺 Excel 肌 Excel 肌 Excel 眺 Excel 眺 Excel 磯 Excl T?1.T? c /%TZxcel類Q侄局Addin 曲 AddinsAdjustmeiits AliowEdi tRnge

13、iAllowEdi tRanges 也 AnzwerVi zard 遨 Anzwerffi zardTiles 迄J Application Areas 疵j Assi slant 曲 AutoCorrect 朗 AutoTilter 沏 AutoSecover 渤Ax” 也 Axis raftn i n . nClass AllovEditKangeExeL的成員立即宙口參考資料ExcelVBA編程入門例參考或引用了以下書籍和資料:(1) Excel 2003高級VBA編程寶典(2) Excel 2003與VBA編程從入門到精通(中文版)(3) 巧學巧用Excel 2003 VBA與宏(中文

14、版)ExcelVBA應用程序?qū)I(yè)設il實用指南(5) ExcelVBA應用開發(fā)與實例精講(6) 些網(wǎng)上資源2J搜縈按鈕ALLqwE di tRange趙J kllowE di tRange sProtectioR 血 Windows 遨 AutoCorrect 戲| PivotF ieLA 團| PivotT able 園 Li stObjectP y c T/%AllowEdi tRange 的成員% Change P as sw or d；：矗 Delate閩 Range 圏 Title令 Uaprotect畫 Users選屮某成員項即出現(xiàn)相應的韋更多的信息關(guān)于ExcelVBA的更多參考和

15、學習資源，可以在上查找,有疑問也可以在ExcelHome論 壇中提問。您也可以登錄我的博客,上而有很多Excel的學習資料。同時，歡迎 與我聯(lián)系交流，我的是：xhdsxfjy163.o學習Excel,使用VBA對Excel進行控制操作是我很熱衷的業(yè)余愛好之一?！眆anjy第一章 Excel應用程序?qū)ο螅ˋpplication對象）及其常用方法_基本操作應用示例分類:ExcelVBAExcelVBA編程入門例Application對象代表整個Microsoft Excel應用程序，帶有175個屬性和52個方法，可以設置整個應用 程序的環(huán)境或配置應用程序。示例0101：體驗開/關(guān)屏幕更新（Scre

16、enupdating屬性）Sub關(guān)閉屏幕 更 新（）MsgBox ”順序切換工作表Sheetl-Sheet2-Sheet3-Sheet2,先開啟屏幕更新，然后關(guān)閉屏幕更新”MWs0rck s h)X目e前e 屏t幕s 中( 顯1 ） 示工作s表e sh1 ee ect 1tfgBAP Pi1ca t i o n .sc re (n Updati ng=Tr ueW0rk s heets(2 )Se1 ectMsgBox顯示sh eet2了嗎91W0rk s heets(3 )se1 ectMsgBox顯示sh eet3T嗎?tW0rk s heets(2 )se1 ectM sg B0 :K下

17、而與前而執(zhí)行的程序代碼相同，但關(guān)閉屏幕更新功能1w0rk s heets(1 )se1 ectMsgBoxtl目前屏幕中顯示工作表SheetlM &Chr(1 0)& 11關(guān)屏屏幕更新功能 Ap p11ca t i o n .Sc re enup d a t1n gF aI sew0rk s heets(2 )se1 ectMsgBox顯示sh eet2T嗎91W0rk s heets(3 )se1 ectMsgBox顯示sh eet3T嗎?fW0rk s heets(2 )se1 ectAP P11ca t i on.sc re (n Updati ng=Tr ueEndSub示例說明：Sc

18、reenupdating屬性用來控制屏幕更新。當運行一個宏程序處理涉及到多個工作表或單元格 中的大量數(shù)據(jù)時，若沒有關(guān)閉屏幕更新，則會占用CPU的處理時間，從而降低程序的運行速度，而關(guān)閉 該屬性則可顯著提高程序運行速度。使用狀態(tài)欄（StatusBar 屬性）subtestS tatusBar ()AppI i c a t i on. D i s playStatusBar = True 開啟狀態(tài)欄顯示賦值狀態(tài)欄顯示的文本App I cation. Status B a r = H f a niy.bIo q. e x c eIho m e . n etEndSub示例說明：StatusBar屬性

19、用來指立顯示在狀態(tài)欄上的信息。若不想再顯示狀態(tài)欄文本，可使用Applicati on.StatusBar = False語句關(guān)閉狀態(tài)欄顯示，也可以在程序開始將原先的狀態(tài)欄設置存儲，如使用語句ol dStatusBar = Application.DisplayStatusBar將狀態(tài)欄原來的信息存儲在變量oldStatusBar,在程序運行 完成或退出時，將變量重新賦值給狀態(tài)欄，如使用語句Application.DisplayStatusBar = oldStatusBar,以 恢復狀態(tài)欄原狀。示例01-03：處理光標(Curso r屬性）SubViewCursors()A p p I i c

20、a t i o n C u r s or=x I N o r t hw e st A rr o wMsgBox您將使用箭頭光標,切換至ij Excel 界面査看光標形狀”A p p Ii c a t io nCur so r=X I IB ea mMsgBox您將使用工形光標,切換至ij Excel 界面查看光標形狀”A p p Ii c a ti o ncu rs o r=X IWa i tMsgBox您將使用等待形光標，切換到Excel界而查看光標形狀”A p p Ii c a t i (o nCu rs c r=xI D ef au I tMsgBox”您已將光標恢復為缺省狀態(tài)”End

21、Sub04:獲取系統(tǒng)信息t SystemIn f o()版本信息為：” & A p p I i c a t i o n. CalculationVersi on 當前允許使用的存為：” & A p p I i c a t i o n.M e m o r y F r e e示 例 01SubGM s g B o x M E x c e IM s g B o x Excel” Excel當前已使用的存為：& A p p I i c a t i o n.M emoryUsedApplicati on.M e m o r y To t a IM s g B o x M E x c e I可以使用的存為

22、：MsgBox ”本機操作系統(tǒng)的需稱和版本為廣 MsgBox 本產(chǎn)品所登記的組織需為廣& Applicati on.O perat in g Sy ste m Applicatio n. Orga ni zationNameMsgBox ”當前用戶名為：”&Applicati on. U s e r N a m e& Applicati on.V e r s i o n SubMsgBox ”當前使用的Excel版本為End 示例說明：可以使用給UserName屬性賦值以設置用戶名稱。示例0105：退出復制/剪切模式（CutCopyMode屬性） SubexitCutCopyMode（）App

23、licati on. CutCopyMode = False EndSub示例說明：退出復制/剪切模式后，在程序運行時所進行的復制或剪切操作不會在原單元格區(qū)域留下流動的 虛框線。需要提醒的是，在程序運行完后，應使用Application.CutCopyMode = False語句恢復該屬性的 默認設置。示例 0106：禁止彈出警告信息(DisplayAlerts 屬性)SubtestAlertsDisplay()A p p I i c a t i on. DisplayAlerts = False EndSub示例說明：在程序運行過程中，有時由于Excel本身設巻的原因，會彈出對話框，從而中斷

24、程序的運行， 您可以在程序之前加上Application.DisplayAlerts = False語句以禁止彈出這些對話框而不影響程序正常 運行。需要注意的是，在程序運行結(jié)朿前，應使DisplayAlerts屬性恢復為缺省狀態(tài)，即使用語句Applicat ion.DisplayAlerts = Trueo該屬性的默認設It為True,當將該屬性設置為False時，Excel會使直接使用 對話框中默認的選擇，從而不會因為彈出對話框而影響程序運行。示例0 1fl07將Ex ceI全屏幕顯示su bte stFu 11Sc r eJ n ()MsgB oX”運行后將Ex c e1的顯示模式設為全屏

25、幕fA p pI i cat i o n DIs P1 a yF uI ISc r e en=T r ueMsgB oX1” 恢復為原 來的狀 態(tài)1A p pI i cat i o n Di sp1 a yF u 1I scr e e n=F a I seEndsub示例01-0 8 :EXc e1啟動的文件夾路徑su bEx ceISt ;a rtf0 Ide r ()MsgBoxExcel啟動的文件夾路徑為:M &Chr(1O)&Applicatio n.StartupPathEnd Sub示例0109:打開最近使用過的文檔su b0penReCe nt F i I e s()MsgBox

26、顯示最近使用過的第三個文件名，并打開該文件MsgBox ”最近使用的第三個文件的名稱為& Application.RecentFiles(3).NameA p p I i c a t i on. RecentFiles(3 ).OpenEnd Sub示例 0110SubFOnE打開文件（Find F iI e 方法)ndFile0pen()0rR e s um eN eXtvbln formation, ”打開文件MsgBox ”請打開文件JI f N o t A p p IMsgBox 文件未找到,EbOKOnly + c a t i onv b O K Only +vbln formati

27、on,，打開失敗”EndSub示例說明：本示例將顯示甘T開”文件對話框，若用戶未打開文件（即點擊械消”按鈕），則會顯示“打開失敗” 信息框。示例中使用了 FindFile方法，用來顯示“打開對話框并讓用戶打開一個文件。如果成功打開一個 新文件，則該值為True.如果用戶取消了操作并退出該對話框，則該值為Falseo示例01-11：文件對話框操作(F i I e Di aI o g屬性)subU seFi I eD Ia Io g0P en()Di mIng c oun tAsL0ng，開啟”打開文件對話框W it hA p p I i ca ti on F i I e Di aI 0g ( m

28、 s o F i Ie Di a I o g0 pe rI)A I I0wMultIselect=True顯示所選的每個文件的路徑F o r IngC ou n t =1 T o Selecte d I t e ms C0 un tMsgB ox. Se I e c t e d I t e ms ( I n gC ou nt )NextIngCountEndW1thEndSub示例說明：本示例顯示甘r開文件”對話框，當用戶在其中選擇一個或多個文件后，將依次顯示每個文件的路徑。其中，F(xiàn)ileDialog屬性返回打開和保存對話框中一系列對象的集合，您可以對該集合對象的屬性進 行進一步的設置，如上例

29、中的AllowMultiSelect屬性設宜為True將允許用戶選擇多個文件。示例 0112： 保存 Excel 的工作環(huán)境 Sub保 存 Excel 的 工 作 環(huán) 境 （）M s g B o x 將 Excel的工作環(huán)境保存到 D:ExcelSample 中 A p p I i c a t i on. SaveWorkspace M D:ExcelSampleSample M EndSub示例說明：運行本程序后，將工作簿以帶后綴名xlw保存到D盤的ExcelSample文件夾中，生成的文件 全名為Sample.xlw,當改變工作簿并保存時，Excel會詢問是覆蓋原文件還是保存副本。示例改變

30、 Excel工作簿名字（Caption屬性）SubSetCaPtion()A Pp I i c a t i on Caption=M M yE x c e I Bo o kEndSub示例說明：運行本程序后，將工作簿左上角Excel圖標右側(cè)的Microsoft Excel”改為知y ExcelBook：示例0 1-14:使用InP ut B o x方法subS am p I e InP ut B oX ()DimvInPutvlnput = InputBox(Mit輸入用戶名：代，”獲取用戶需”，Application.UserName)Msg Box ”您好！” & vln put & ”很

31、髙興能認識您”，vbOK Only, ”打招呼”End Sub示例 011 5 : 設置頁邊距(CentimetersToPoints方法) SubSetLeftMargin()M s g B o x 將工作表 S h e e t 1 的左頁邊距設為 5厘米”Worksheets(MSheet1 w).PageSetup.LeftMargi n = Application.Ce ntimetersToPoi nts(5) End Sub示例 01 16：使用 Windows 的計算器(A c t i v a t e M i c r o s o f t A p p 方法) SubCallCalc

32、ulate()Applicatio n. ActivateMicrosoftApp In d e x : = 0 EndSub示例說明：運行本程序后，將調(diào)用Windows的計算器。示例 0117： 在程序中運行另一個宏（Run 方法）SubrunOtherMacro（）MsgBox ”本程序先選擇A 1至C 6單元格區(qū)域后執(zhí)行DrawL ine宏柿ActiveSheet Range(A2:C6” ) Select Application Run M D r a w L i n e End Sub示例 0118： 在指定的時間執(zhí)行宏(OnTime 方法) SubAfterTimetoR un()

33、M s g B o x 從現(xiàn)在開始，10秒后執(zhí)行程序CtestFullScree n Appl icati on. On Time Now + TimeValue(” 00:00:10”), MtestFullScree n” EndSub示例說明：運行本程序后，在10秒后將執(zhí)行程序testFullScreeno示 例示SubCalcA p p I i c a nd新計算工作簿2 1W o rk b o o k ()C a Ic u I a tesub1:重1 -a t e A I示例 01-19:暫時停止宏運行(Wait方法)su bst0 p5s M a cr o R un()DImS e

34、 tT im eA sDateM s g B 0 X“按_FI確定,5秒后執(zhí)行程序rt e s t F u 1 1 S cr e enMS e tT im e=D a te A c1 d ( M :s H,5 ,No w()A ppI ica t i on .W a itS e tT imecaI It es tF u11 S c reenEndsub示例說明：運行本程序后.按下彈岀的提示框中的托舫按鈕，等待5秒后執(zhí)行另一程序testFullScreen.示例 0 120 :按下指定的按鍵后執(zhí)行程序(O n K ey 方法)示例0 1-20 -1Subpre ssKe ytoRun()M s

35、g B0 X-按下C t r I + D后將執(zhí)行程序r te s t F u 1 1 S cr e enMAppli ca t i on O n KeyM A |d ”， te s t F u 1 1 Sc r ee nEndsub示例0 1-20 -2SubResetKey()Msg bo xH恢復原來的按鍵狀態(tài)1A ppI iCa t i on O n Ke yH A dEndsub示例說明：Onkey方法的作用主要是指泄特左的鍵，當按下指立的鍵時運行相應的宏程序，或者按下指左的鍵時使Excel屏蔽特左的功能匚示例說明：當工作簿的計算模式被設置為手動模式后，運用Calculate方法可以重

36、新計算所有打開的工作 簿、工作簿中特能的工作表或者工作表中指定的單元格區(qū)域。示例01-21-2Sub CalculateFullSample()If Application.CalculationVersion v Workbooks(1).CalculationVersion Then Application. CalculateFullEndSub示例說明：本示例先將當前Microsoft Excel的版本與上次計算該工作簿的Excel版本進行比較，如果兩 個版本不同，則對所有打開工作簿中的數(shù)據(jù)進行一次完整訃算。其中，Calculationversion屬性返回工作 薄的版本信息。示例0

37、1-22 : 控制函數(shù)重新計3* ( vo I a t iI e方法）FUn c ti o nN0nS ta ti c R and()1當工作表中任意單元格重新計算時本函數(shù)更新A p p Ii c at i0n .V oI atileTrueNonS t at icRa nd=Rnd()EndFuncti0n示例說明：本示例摸仿Excel中的Rand（）函數(shù)，當工作表單元格發(fā)生變化時，都會重新計算該函數(shù)。在例 子中，使用了 Volatile方法，強制函數(shù)進行重新計算，即無論何時重新計算工作表，該函數(shù)都會重新計算。示例 0123： 利用工作表函數(shù)(WorksheetFunction 屬性) Su

38、b WorksheetFunctionSample()D i m m y R a n g e A s Ran g e , an s w e r S e t m y R a nge = Worksheets(” Sheetl )Ran g e ( M A 1 : C 1 0 M ) answer = A p p I i c a t i o n. WorksheetFunctio n.Min(m yRa nge) M s g B o xan s w e rEndSub示例說明：本示例獲取工作表Sheetl中單元格區(qū)域A1:C1O中的最小值，使用了工作表函數(shù)Min()。一般， 使用Worksheet

39、Function屬性引用工作表函數(shù)，但如果VBA自帶有實現(xiàn)相同功能的函數(shù)，則宜接使用該 函數(shù)，否則會岀現(xiàn)錯誤。示例0 124 :獲取重疊區(qū)域（1 nt er s e c t 方法)SubInt ers ectRa n g e ()D i mr Sec tAsRangewo r k sh ee t s(Sheet 1M ).A c t i v a teSetr S e ct =Applicatio n.l ntersect(Range(rg1I M), R a n g e (H r g 2M)IfrS ec tIsN0th ingThenMsg b0X沒有交叉區(qū)域1EIsersectselect

40、EndIfEndsub示例說明：本示例在工作表Sheetl中選左兩個命名區(qū)域rgl和rg2的重疊區(qū)域，如果所選區(qū)域不重疊， 則顯示一條相應的信息。其中,Intersect方法返回一個Range對象，代表兩個或多個用重疊的矩形區(qū)域。示例 0125：獲取路徑分隔符（Pathseparator屬性） SubGetPathSeparator（）M s g B o x 路徑分隔符為” & A p p I i c a t i on. PathSeparator EndSub示例說明：本示例使用PathSeparator屬性返回路徑分隔符代）。示例 0126： 快速移至指定位置（Goto 方法)SubGot

41、oSamPIe()Applicati on. Goto Ref ere nee: = Worksheets(” Sheet*!”).Ra nge(”A1 54)scr0II：=TrueEndsub示例說明：本示例運行后，將當前單元格移至工作表Sheetl中的單元格A154.示例0 1 .2 7 :顯示置對話框（D i alogs屬性)subDiaI0g samp Ie()A pp I i ca t i on.D i alogs(x I D ii a I o gOpen).sh owEndSub示例說明：本示例顯示Excel的“打開”文件對話框。英中，Dialogs屬性返回的集合代表所有的Exc

42、el宜對 話框。示例012 8 : 退出 E x ce I (S e n d Ke y s方法）SubS e n d K ey sSamp Ie ()Ap p I i c a t i on.SendKeys(w %f x w )EndSub示例說明:本示例使用SendKeys方法退出Excel.若未保存，則會彈出提示對話框并讓用戶作出相應的選擇。SendKeys方法的作用是摸擬鍵盤輸入，如例中的f塔表示在Excel中同時按下Alt、F和X三個 鍵。示例01- 29:關(guān)閉ExceISub關(guān)閉ExceI()M s g B o xExcel將會 關(guān) 閉1AppI icationQuitEndsUb示

43、例說明：運行本程序后，若該工作簿未保存,則會彈出對話框詢問是否保存。(by fanjy)第二章 窗口 （Window對象）基本操作應用示例（一）分類：ExcelVBAExcelVBA編程入門例Window對象代表一個窗口，約有48個屬性和14個方法，能對窗口特性進行設置和操作.Window對象 是Windows集合中的成員，對于Application對象來說，Windows集合包含該應用程序中的所有窗口：對 于Workbook對象來說，Windows集合只包含指左工作簿中的窗口。下面介紹一些示例，以演示和說明W indow對象及英屬性和方法的運用。示例 0201： 激活窗 口( Activate 方法)S