1、Excel VBA常用對象nExcel對象模型的層次結構。2Application 對象pApplication對象代表整個Microsoft Excel應用程序本身，所有打開的工作簿都是屬于一個Excel應用程序，即一個Application對象。p通過Application對象提供的屬性和方法，可控制Excel應用程序的外觀和狀態(tài)。使用Application對象3pApplication對象的常用屬性n獲取對象的引用pActiveWorkbook屬性pActiveSheet屬性pActiveCell屬性pWorkbooks屬性pSheets屬性pCells屬性pSelection屬性pWo

2、rksheetFunction屬性使用Application對象4使用Application對象VBA操作操作立即窗口輸入立即窗口輸入獲取當前應用程序名稱?Application.Name將Excel應用程序標題改為“My Application” A ppl i c a t i on.C a pt i o n = M y Application將Excel應用程序標題改回為“Microsoft Excel” Application.Caption=Microsoft Excel”獲取Excel.exe保存的文件夾路徑 ?Application.Path退出Excel Application.

3、QuitApplication 對象nActiveSheet 屬性p返回活動工作表。如果沒有活動的工作表，則返回 Nothing。Sub 活動工作表() Debug.Print 當前活動工作表是：; Application.ActiveSheet.NameEnd SubWorkbook對象和 Workbooks集合nWorkbook 對象：代表一個 Microsoft Excel 工作簿nWorkbooks 對象：Microsoft Excel 應用程序中當前打開的所有 Workbook 對象的集合nWorkbook.Name 屬性：它代表對象的名稱nWorkbook.FullName 屬性：

4、返回對象的名稱（以字符串表示），包括其磁盤路徑nWorkbook.Sheets 屬性：返回一個 Sheets 集合，它代表指定工作簿中所有工作表nWorkbooks.Add 方法：新建工作簿，新建的工作簿將成為活動工作簿。nWorkbooks.Open 方法 ：打開一個工作簿nWorkbooks.Close 方法：關閉對象Workbook對象和 Workbooks集合Workbook對象和 Workbooks集合p例1 創(chuàng)建一個新的工作簿。 Workbooks.Addn由 Add 方法返回的Workbook 對象分配給對象變量 NewBook。然后，對 NewBook進行操作。 Set New

5、Book = Workbooks.Add NewBook.SaveAs Filename:=Test.xlsnSet語句語法形式： Set = New |NothingpNew創(chuàng)建對象的一個新實例。pNothing釋放該對象資源。Workbook對象和 Workbooks集合p例2 打開工作簿用Open方法： Workbooks.Open (“D:Test.xls”) 即打開D盤根目錄中的Test.xls 工作簿。Worksheet對象和 Worksheets集合pWorksheet 對象：代表一個工作表pWorksheets 對象：指定的或活動工作簿中所有 Worksheet 對象的集合p常

6、用屬性nWorksheet.Cells 屬性 ：返回一個 Range 對象，它代表工作表中的所有單元格（不僅僅是當前使用的單元格）。nWorksheet.Columns 屬性：返回一個 Range 對象，它代表活動工作表中的所有列nWorksheet.Name 屬性：返回或設置一個 String 值，它代表對象的名稱p常用方法：nWorksheets.Add 方法：新建工作表。新建的工作表將成為活動工作表nWorksheets.Copy 方法：將工作表復制到工作簿的另一位置nWorksheets.Delete 方法：刪除對象nWorksheets(工作表).Activate方法：激活工作表Wo

7、rksheet對象和 Worksheets集合Workbook對象和 Workbooks集合p例3 激活工作表（激活工作簿中的Sheet1工作表） Worksheets(Sheet1).Activate 或 Worksheets(1).ActivateWorkbook對象和 Workbooks集合p例4：新建工作表Sub 新建工作表1() Worksheets.Add before:=Sheet1End SubSub 新建工作表2() Worksheets.Add after:=Sheet4, Count:=2End SubpCount 可選。要新建的工作表的數目。默認值為 1。Workboo

8、k對象和 Workbooks集合p例5：保存工作表Sub 保存工作表() ActiveWorkbook.SaveAs Filename:=D:第一個保存工作表.xlsxEnd SubWorkbook對象和 Workbooks集合p例6：重命名工作表Sub 重命名工作表() Sheets(1).Select Sheets(1).Name = helloEnd SubWorkbook對象和 Workbooks集合p例7：復制和刪除工作表Sub 復制和刪除工作表() Sheets(1).Name = 原始表 Sheets(原始表).Copy before:=Sheets(原始表) Sheets(1)

9、.Name = 副本1 Sheets(原始表).DeleteEnd SubExcel VBA怎樣引用區(qū)域目錄引用一個單元格引用一個區(qū)域引用整行引用整列引用所有單元格引用相對位置單元格引用特殊區(qū)域（一）引用特殊區(qū)域（二）引用特殊區(qū)域（三）引用一個單元格p舉例：引用單元格B5nB5p直接寫地址，沒有引號，無法循環(huán)nRange(B5)p地址為字符串，可行循環(huán)，但書寫麻煩nCells(5, B)p先行后列,行地址為數字，列地址為字符串，無法引用區(qū)域nCells(5,2)p地址為數字，先行后列，行列都可循環(huán)，無法引用區(qū)域引用一個區(qū)域p舉例：引用區(qū)域B5:D10nB5:D10p地址用冒號連接nRange(

10、B5:D10)nRange(B5, D10)p起止地址分別用引號括起來，中間用逗號連接nRange(Range(B5）,Range( D10)pRange嵌套nRange(Cells(5, 2), Cells(10, 4)pRange與Cells混合引用整行p舉例：引用第一行n1:1nRange(1:1)nRows(1)p利用Rows（行）集合p舉例：引用第一到第三行n1:3nRange(1:3)nRows(1:3)引用整列p舉例：引用A列（第一列)nA:AnRange(A:A)nColumns(1)p利用Columns（列）集合nColumns(A)p舉例：引用A到C列（第一到第三列）nA:

11、CnRange(A:C)nColumns(A:C)引用所有單元格p引用所有單元格nCellsp利用Cells（單元格）集合nRange(Cells(1, 1), _Cells(Cells.Rows.Count, Cells. Columns.Count)p從第一行第一列到最后一行最后一列p引用所有行nRowsp利用Rows（行）集合p引用所有列nColumnsp利用Columns（列）集合引用特殊區(qū)域（一）p引用多個區(qū)域nB5:D10, A1:C9p可以多個區(qū)域nRange(B5:D10, A1:C9,)p逗號在引號內部nUnion(Range(B5:D10),Range(A1:C9)p可以有

12、多個Range型參數p引用交叉(公共)區(qū)域nIntersect(Range(B5:D10),Range(A1:C9)p可以有多個Range型參數引用特殊區(qū)域（二）p引用當前區(qū)域nRange(B1).CurrentRegionp當前區(qū)域是以空行和空列圍成的區(qū)域p任何一個區(qū)域都有自己所屬的當前區(qū)域p引用已用區(qū)域nActiveSheet.UsedRangep不僅包括有數據的區(qū)域，還包括曾經用過的區(qū)域p以所有用過區(qū)域的中最上行最左列和最下行最右列圍成p一個工作表只有一個用過區(qū)域p如果沒有用過任何單元格，則已用區(qū)域為A1單元格引用特殊區(qū)域（三）p引用活動單元格nRange(B5).Activatep只能

13、用于活動工作表p引用當前選區(qū)nActiveCell.CurrentRegionp引用偏移區(qū)域nRange(B5:D10).Offset(2,1)p引用C7:E12，偏移地址可正可負，默認為0，偏移地址先行后列引用命名區(qū)域p引用命名區(qū)域將當前工作表中名為“AA”的單元格區(qū)域內容設置為30。 AA.Value = 30相對引用區(qū)域p相對引用n將位于活動工作表上活動單元格下1行和右3列的單元格設置為雙下劃線格式。 ActiveCell.Offset(1, 3).Font.Underline = xlDouble單元格和區(qū)域的操作p求數據區(qū)末尾行號：r = Range(A1).End(xlDown).Row 求A1單元格數據區(qū)末尾行號r = Cells(1, 1).End(xlDown).Row 求A1單元格數據區(qū)末尾行號r = Range(A65536).End(xlUp).Row 求A列數據區(qū)末尾行號r = Cells(65536, 1).End(xlUp).Row 求A列數據區(qū)末尾行號r = Columns(1).End(xlDown).Row 求A列數據區(qū)末尾行號單元格和區(qū)域的操作p求數據區(qū)末尾列號：c = Range(A1)