1、Excel VBA,常用對象,1,Excel對象模型的層次結構。,2,Application 對象,2,Application對象代表整個Microsoft Excel應用程序本身，所有打開的工作簿都是屬于一個Excel應用程序，即一個Application對象。 通過Application對象提供的屬性和方法，可控制Excel應用程序的外觀和狀態(tài)。,使用Application對象,3,Application對象的常用屬性 獲取對象的引用 ActiveWorkbook屬性 ActiveSheet屬性 ActiveCell屬性 Workbooks屬性 Sheets屬性 Cells屬性 Selec

2、tion屬性 WorksheetFunction屬性,使用Application對象,4,使用Application對象,5,Application 對象,ActiveSheet 屬性 返回活動工作表。如果沒有活動的工作表，則返回 Nothing。 Sub 活動工作表() Debug.Print 當前活動工作表是：; Application.ActiveSheet.Name End Sub,6,Workbook對象和 Workbooks集合,Workbook 對象：代表一個 Microsoft Excel 工作簿 Workbooks 對象：Microsoft Excel 應用程序中當前打開的所

3、有 Workbook 對象的集合 Workbook.Name 屬性：它代表對象的名稱 Workbook.FullName 屬性：返回對象的名稱（以字符串表示），包括其磁盤路徑 Workbook.Sheets 屬性：返回一個 Sheets 集合，它代表指定工作簿中所有工作表,7,Workbooks.Add 方法：新建工作簿，新建的工作簿將成為活動工作簿。 Workbooks.Open 方法 ：打開一個工作簿 Workbooks.Close 方法：關閉對象,Workbook對象和 Workbooks集合,8,Workbook對象和 Workbooks集合,例1 創(chuàng)建一個新的工作簿。 Workboo

4、ks.Add 由 Add 方法返回的Workbook 對象分配給對象變量 NewBook。然后，對 NewBook進行操作。 Set NewBook = Workbooks.Add NewBook.SaveAs Filename:=Test.xls Set語句語法形式： Set = New |Nothing New創(chuàng)建對象的一個新實例。 Nothing釋放該對象資源。,9,Workbook對象和 Workbooks集合,例2 打開工作簿用Open方法： Workbooks.Open (“D:Test.xls”) 即打開D盤根目錄中的Test.xls 工作簿。,10,Worksheet對象和 W

5、orksheets集合,Worksheet 對象：代表一個工作表 Worksheets 對象：指定的或活動工作簿中所有 Worksheet 對象的集合 常用屬性 Worksheet.Cells 屬性 ：返回一個 Range 對象，它代表工作表中的所有單元格（不僅僅是當前使用的單元格）。 Worksheet.Columns 屬性：返回一個 Range 對象，它代表活動工作表中的所有列 Worksheet.Name 屬性：返回或設置一個 String 值，它代表對象的名稱,11,常用方法： Worksheets.Add 方法：新建工作表。新建的工作表將成為活動工作表 Worksheets.Copy

6、 方法：將工作表復制到工作簿的另一位置 Worksheets.Delete 方法：刪除對象 Worksheets(工作表).Activate方法：激活工作表,Worksheet對象和 Worksheets集合,12,Workbook對象和 Workbooks集合,例3 激活工作表（激活工作簿中的Sheet1工作表） Worksheets(Sheet1).Activate 或 Worksheets(1).Activate,13,Workbook對象和 Workbooks集合,例4：新建工作表 Sub 新建工作表1() Worksheets.Add before:=Sheet1 End Sub S

7、ub 新建工作表2() Worksheets.Add after:=Sheet4, Count:=2 End Sub Count 可選。要新建的工作表的數(shù)目。默認值為 1。,14,Workbook對象和 Workbooks集合,例5：保存工作表 Sub 保存工作表() ActiveWorkbook.SaveAs Filename:=D:第一個保存工作表.xlsx End Sub,15,Workbook對象和 Workbooks集合,例6：重命名工作表 Sub 重命名工作表() Sheets(1).Select Sheets(1).Name = hello End Sub,16,Workbook

8、對象和 Workbooks集合,例7：復制和刪除工作表 Sub 復制和刪除工作表() Sheets(1).Name = 原始表 Sheets(原始表).Copy before:=Sheets(原始表) Sheets(1).Name = 副本1 Sheets(原始表).Delete End Sub,17,Excel VBA,怎樣引用區(qū)域,18,目錄,引用一個單元格 引用一個區(qū)域 引用整行 引用整列 引用所有單元格 引用相對位置單元格 引用特殊區(qū)域（一） 引用特殊區(qū)域（二） 引用特殊區(qū)域（三）,19,引用一個單元格,舉例：引用單元格B5 B5 直接寫地址，沒有引號，無法循環(huán) Range(B5) 地

9、址為字符串，可行循環(huán)，但書寫麻煩 Cells(5, B) 先行后列,行地址為數(shù)字，列地址為字符串，無法引用區(qū)域 Cells(5,2) 地址為數(shù)字，先行后列，行列都可循環(huán)，無法引用區(qū)域,20,引用一個區(qū)域,舉例：引用區(qū)域B5:D10 B5:D10 地址用冒號連接 Range(B5:D10) Range(B5, D10) 起止地址分別用引號括起來，中間用逗號連接 Range(Range(B5）,Range( D10) Range嵌套 Range(Cells(5, 2), Cells(10, 4) Range與Cells混合,21,引用整行,舉例：引用第一行 1:1 Range(1:1) Rows(

10、1) 利用Rows（行）集合 舉例：引用第一到第三行 1:3 Range(1:3) Rows(1:3),22,引用整列,舉例：引用A列（第一列) A:A Range(A:A) Columns(1) 利用Columns（列）集合 Columns(A) 舉例：引用A到C列（第一到第三列） A:C Range(A:C) Columns(A:C),23,引用所有單元格,引用所有單元格 Cells 利用Cells（單元格）集合 Range(Cells(1, 1), _ Cells(Cells.Rows.Count, Cells. Columns.Count) 從第一行第一列到最后一行最后一列 引用所有行

11、 Rows 利用Rows（行）集合 引用所有列 Columns 利用Columns（列）集合,24,引用特殊區(qū)域（一）,引用多個區(qū)域 B5:D10, A1:C9 可以多個區(qū)域 Range(B5:D10, A1:C9,) 逗號在引號內部 Union(Range(B5:D10),Range(A1:C9) 可以有多個Range型參數(shù) 引用交叉(公共)區(qū)域 Intersect(Range(B5:D10),Range(A1:C9) 可以有多個Range型參數(shù),25,引用特殊區(qū)域（二）,引用當前區(qū)域 Range(B1).CurrentRegion 當前區(qū)域是以空行和空列圍成的區(qū)域 任何一個區(qū)域都有自己所屬

12、的當前區(qū)域 引用已用區(qū)域 ActiveSheet.UsedRange 不僅包括有數(shù)據(jù)的區(qū)域，還包括曾經用過的區(qū)域 以所有用過區(qū)域的中最上行最左列和最下行最右列圍成 一個工作表只有一個用過區(qū)域 如果沒有用過任何單元格，則已用區(qū)域為A1單元格,26,引用特殊區(qū)域（三）,引用活動單元格 Range(B5).Activate 只能用于活動工作表 引用當前選區(qū) ActiveCell.CurrentRegion 引用偏移區(qū)域 Range(B5:D10).Offset(2,1) 引用C7:E12，偏移地址可正可負，默認為0，偏移地址先行后列,27,引用命名區(qū)域,引用命名區(qū)域 將當前工作表中名為“AA”的單元

13、格區(qū)域內容設置為30。 AA.Value = 30,28,相對引用區(qū)域,相對引用 將位于活動工作表上活動單元格下1行和右3列的單元格設置為雙下劃線格式。 ActiveCell.Offset(1, 3).Font.Underline = xlDouble,29,單元格和區(qū)域的操作,求數(shù)據(jù)區(qū)末尾行號： r = Range(A1).End(xlDown).Row 求A1單元格數(shù)據(jù)區(qū)末尾行號 r = Cells(1, 1).End(xlDown).Row 求A1單元格數(shù)據(jù)區(qū)末尾行號 r = Range(A65536).End(xlUp).Row 求A列數(shù)據(jù)區(qū)末尾行號 r = Cells(65536, 1).End(xlUp).Row 求A列數(shù)據(jù)區(qū)末尾行號 r = Columns(1).End(xlDown).Row 求A列數(shù)據(jù)區(qū)末尾行號,30,單元格和區(qū)域的操作,求數(shù)據(jù)區(qū)末尾列號： c = Range(A1).End(xlToRight).Colu