資源描述：
《Excel VBA習題》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。
1、例題和習題Application對象的屬性和方法6.3把當前工作簿中的所有工作表的名稱寫在sheet1從A1開始的單元格中6.4使用Application顯示標準應用程序的名稱6.5重計算sheet1工作表上已使用區(qū)域中A、B、C列的公式。啟動并激活Word。6.6打開“打開”對話框6.7設置從現(xiàn)在開始15秒后運行my_procedure1；下午5點運行my_procedure2；撤銷OnTime設置6.10退出excel6.11調用“人口預測”宏控制Windows6.12將活動窗口擴展為可用的最大值(非最大化)控制Excel狀態(tài)和顯示6.13禁止事件觸發(fā)，如禁止workbook
2、_BeforeSave、workbook_Change、worksheet_Change觸發(fā)。關閉屏幕更新。6.14為“Ctrl+加號”分配“InserProc”過程為“Shift+Ctrl+向右鍵”分配“SpecialPrintProc”過程為“Shift+Ctrl+向右鍵”重新設為正常含義為“Shift+Ctrl+向右鍵”設為不發(fā)生任何操作為Excel2007應用程序指定快捷鍵為功鍵F3Application對象的事件工作表行為SheetActivate事件：Excel傳遞一個Object變量給該事件處理過程，Object變量包含一個對激活工作表的引用。Object變量必須強
3、制轉換為正確類型的變量(Worksheet、Chart等)，才可使用。SheetBeforeDoubleClick事件SheetBeforeRightClick事件：不會發(fā)生于圖表工作表SheetCalculate事件：重新計算任意工作表時發(fā)生SheetChange事件：任意工作表中的單元格發(fā)生更改時發(fā)生SheetDeactivate事件：工作表失去焦點時發(fā)生SheetFollowHyperlink事件：單擊表中任意超鏈接時發(fā)生SheetSelectionChange事件：工作表中所選內容發(fā)生更改時發(fā)生，不會發(fā)生于圖表工作表窗口行為(Application獨特的事件，需在類模塊中
4、通過定義響應事件的對象，通過此對象編寫事件的響應過程)WindowActivate事件：激活任意窗口時發(fā)生WindowDeactivate事件WindowResize事件：調整窗口大小時發(fā)生6.15工作簿窗口被激活時將窗口最大化6.16工作簿窗口失去焦點時將窗口最小化6.17工作簿窗口調整大小時，設置應用程序狀態(tài)欄標題為工作簿名稱+“重新設置窗口”+現(xiàn)在的時間工作簿管理NewWorkbook事件：創(chuàng)建新工作簿時發(fā)生WorkbookActivate事件WorkbookBeforeClose事件WorkbookBeforePrint事件WorkbookBeforeSave事件Work
5、bookDeactivate事件WorkbookNewSheet事件：將新的工作表添加到工作簿時發(fā)生WorkbookOpen事件6.18創(chuàng)建新工作簿時，對打開的窗口進行排列6.19關閉工作簿前詢問用戶是否關閉6.20打印工作簿前對所有工作表進行重新計算6.21保存工作簿前詢問用戶是否保存6.22將新建的工作表移動到工作簿末尾6.23打開一個工作簿時，對所有打開的窗口進行排列常用的文件操作FileDialog對象的方法，用于打開文件、獲取文件名、在一個文件夾中瀏覽文件名等6.24使用Show方法在Excel中打開文件對話框，允許用戶選擇一個或多個文件。選中后，Excel逐條顯示每個
6、文件的路徑，并保存于工作中。6.25打開標準圣誕框，選定指定類型的文件6.26GetSaveAsFilename方法的使用6.27獲取不含路徑的純文件名Sub例6_3()DimiAsIntegerFori=1ToWorksheets.CountSheet1.Range("A"&i)=Worksheets(i).NameNextiMsgbox“本過程設置了快捷鍵F3”EndSubSub例6_4()Debug.PrintApplication.Application‘Application屬性返回對象的名稱，即Excel應用程序的名稱MsgBox("這是"&Application.A
7、pplication&"對象")EndSubsheet1.UsedRange.Columns("A:C").calculateSub例6_5Application.ActivateMicrosoftAppxlMicrosoftWordEndsubSub例6_6()Application.FindFileEndSubSub例6_7()Application.OnTimeearliesttime:=Now+TimeValue("00:00:15"),procedure:="my_pr
