《excel_vba常用对象》由会员分享，可在线阅读，更多相关《excel_vba常用对象（33页珍藏版）》请在金锄头文库上搜索。
1、Excel VBA,常用对象,Excel对象模型的层次结构。,2,Application 对象,Application对象代表整个Microsoft Excel应用程序本身，所有打开的工作簿都是属于一个Excel应用程序，即一个Application对象。 通过Application对象提供的属性和方法，可控制Excel应用程序的外观和状态。,使用Application对象,3,Application对象的常用属性 获取对象的引用 ActiveWorkbook属性 ActiveSheet属性 ActiveCell属性 Workbooks属性 Sheets属性 Cells属性 Selection
2、属性 WorksheetFunction属性,使用Application对象,4,使用Application对象,Application 对象,ActiveSheet 属性 返回活动工作表。如果没有活动的工作表，则返回 Nothing。 Sub 活动工作表() Debug.Print “当前活动工作表是：“; Application.ActiveSheet.Name End Sub,Workbook对象和 Workbooks集合,Workbook 对象：代表一个 Microsoft Excel 工作簿 Workbooks 对象：Microsoft Excel 应用程序中当前打开的所有 Work
3、book 对象的集合 Workbook.Name 属性：它代表对象的名称 Workbook.FullName 属性：返回对象的名称（以字符串表示），包括其磁盘路径 Workbook.Sheets 属性：返回一个 Sheets 集合，它代表指定工作簿中所有工作表,Workbooks.Add 方法：新建工作簿，新建的工作簿将成为活动工作簿。 Workbooks.Open 方法 ：打开一个工作簿 Workbooks.Close 方法：关闭对象,Workbook对象和 Workbooks集合,Workbook对象和 Workbooks集合,例1 创建一个新的工作簿。 Workbooks.Add 由 A
4、dd 方法返回的Workbook 对象分配给对象变量 NewBook。然后，对 NewBook进行操作。 Set NewBook = Workbooks.Add NewBook.SaveAs Filename:=“Test.xls“ Set语句语法形式： Set = New |Nothing New创建对象的一个新实例。 Nothing释放该对象资源。,Workbook对象和 Workbooks集合,例2 打开工作簿用Open方法： Workbooks.Open (“D:Test.xls”) 即打开D盘根目录中的Test.xls 工作簿。,Worksheet对象和 Worksheets集合,W
5、orksheet 对象：代表一个工作表 Worksheets 对象：指定的或活动工作簿中所有 Worksheet 对象的集合 常用属性 Worksheet.Cells 属性 ：返回一个 Range 对象，它代表工作表中的所有单元格（不仅仅是当前使用的单元格）。 Worksheet.Columns 属性：返回一个 Range 对象，它代表活动工作表中的所有列 Worksheet.Name 属性：返回或设置一个 String 值，它代表对象的名称,常用方法： Worksheets.Add 方法：新建工作表。新建的工作表将成为活动工作表 Worksheets.Copy 方法：将工作表复制到工作簿的另
6、一位置 Worksheets.Delete 方法：删除对象 Worksheets(工作表).Activate方法：激活工作表,Worksheet对象和 Worksheets集合,Workbook对象和 Workbooks集合,例3 激活工作表（激活工作簿中的Sheet1工作表） Worksheets(“Sheet1“).Activate 或 Worksheets(1).Activate,Workbook对象和 Workbooks集合,例4：新建工作表 Sub 新建工作表1() Worksheets.Add before:=Sheet1 End Sub Sub 新建工作表2() Workshee
7、ts.Add after:=Sheet4, Count:=2 End Sub Count 可选。要新建的工作表的数目。默认值为 1。,Workbook对象和 Workbooks集合,例5：保存工作表 Sub 保存工作表() ActiveWorkbook.SaveAs Filename:=“D:第一个保存工作表.xlsx“ End Sub,Workbook对象和 Workbooks集合,例6：重命名工作表 Sub 重命名工作表() Sheets(1).Select Sheets(1).Name = “hello“ End Sub,Workbook对象和 Workbooks集合,例7：复制和删除工
8、作表 Sub 复制和删除工作表() Sheets(1).Name = “原始表“ Sheets(“原始表“).Copy before:=Sheets(“原始表“) Sheets(1).Name = “副本1“ Sheets(“原始表“).Delete End Sub,Excel VBA,怎样引用区域,目录,引用一个单元格 引用一个区域 引用整行 引用整列 引用所有单元格 引用相对位置单元格 引用特殊区域（一） 引用特殊区域（二） 引用特殊区域（三）,引用一个单元格,举例：引用单元格B5 B5 直接写地址，没有引号，无法循环 Range(“B5“) 地址为字符串，可行循环，但书写麻烦 Cells
9、(5, “B“) 先行后列,行地址为数字，列地址为字符串，无法引用区域 Cells(5,2) 地址为数字，先行后列，行列都可循环，无法引用区域,引用一个区域,举例：引用区域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混合,引用整行,举例：引用第一行 1:1 Range(“1:1“) Rows(1) 利用Rows（行）集合
10、 举例：引用第一到第三行 1:3 Range(“1:3“) Rows(“1:3“),引用整列,举例：引用A列（第一列) A:A Range(“A:A“) Columns(1) 利用Columns（列）集合 Columns(“A“) 举例：引用A到C列（第一到第三列） A:C Range(“A:C“) Columns(“A:C“),引用所有单元格,引用所有单元格 Cells 利用Cells（单元格）集合 Range(Cells(1, 1), _ Cells(Cells.Rows.Count, Cells. Columns.Count) 从第一行第一列到最后一行最后一列 引用所有行 Rows 利用
11、Rows（行）集合 引用所有列 Columns 利用Columns（列）集合,引用特殊区域（一）,引用多个区域 B5:D10, A1:C9 可以多个区域 Range(“B5:D10, A1:C9,“) 逗号在引号内部 Union(Range(“B5:D10“),Range(“A1:C9“) 可以有多个Range型参数 引用交叉(公共)区域 Intersect(Range(“B5:D10“),Range(“A1:C9“) 可以有多个Range型参数,引用特殊区域（二）,引用当前区域 Range(“B1“).CurrentRegion 当前区域是以空行和空列围成的区域 任何一个区域都有自己所属的当
12、前区域 引用已用区域 ActiveSheet.UsedRange 不仅包括有数据的区域，还包括曾经用过的区域 以所有用过区域的中最上行最左列和最下行最右列围成 一个工作表只有一个用过区域 如果没有用过任何单元格，则已用区域为A1单元格,引用特殊区域（三）,引用活动单元格 Range(“B5“).Activate 只能用于活动工作表 引用当前选区 ActiveCell.CurrentRegion 引用偏移区域 Range(“B5:D10“).Offset(2,1) 引用C7:E12，偏移地址可正可负，默认为0，偏移地址先行后列,引用命名区域,引用命名区域 将当前工作表中名为“AA”的单元格区域内
13、容设置为30。 AA.Value = 30,相对引用区域,相对引用 将位于活动工作表上活动单元格下1行和右3列的单元格设置为双下划线格式。 ActiveCell.Offset(1, 3).Font.Underline = xlDouble,单元格和区域的操作,求数据区末尾行号： r = Range(“A1“).End(xlDown).Row 求A1单元格数据区末尾行号 r = Cells(1, 1).End(xlDown).Row 求A1单元格数据区末尾行号 r = Range(“A65536“).End(xlUp).Row 求A列数据区末尾行号 r = Cells(65536, 1).End
14、(xlUp).Row 求A列数据区末尾行号 r = Columns(1).End(xlDown).Row 求A列数据区末尾行号,单元格和区域的操作,求数据区末尾列号： c = Range(“A1“).End(xlToRight).Column 求A1单元格数据区末尾列号 c = Cells(1, 1).End(xlToRight).Column 求A1单元格数据区末尾列号 c = Cells(1, 256).End(xlToLeft).Column 求第1行数据区末尾列号 c = Rows(1).End(xlToRight).Column 求第1行数据区末尾列号,实例,编程序，打印九九乘法表如下。,实例,编程序，打印九九乘法表如下。,
