Excel VBA常用对象剖析课件.ppt

Excel VBA,常用对象,Excel对象模型的层次结构。,2,Application 对象,Application对象代表整个Microsoft Excel应用程序本身，所有打开的工作簿都是属于一个Excel应用程序，即一个Application对象。通过Application对象提供的属性和方法，可控制Excel应用程序的外观和状态。,使用Application对象,3,Application对象的常用属性获取对象的引用ActiveWorkbook属性ActiveSheet属性ActiveCell属性Workbooks属性Sheets属性Cells属性Selection属性WorksheetFunction属性,使用Application对象,4,使用Application对象,Application 对象,ActiveSheet 属性返回活动工作表。如果没有活动的工作表，则返回 Nothing。Sub 活动工作表()Debug.Print 当前活动工作表是：;Application.ActiveSheet.NameEnd Sub,Workbook对象和 Workbooks集合,Workbook 对象：代表一个 Microsoft Excel 工作簿Workbooks 对象：Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合Workbook.Name 属性：它代表对象的名称Workbook.FullName 属性：返回对象的名称（以字符串表示），包括其磁盘路径Workbook.Sheets 属性：返回一个 Sheets 集合，它代表指定工作簿中所有工作表,Workbooks.Add 方法：新建工作簿，新建的工作簿将成为活动工作簿。Workbooks.Open 方法：打开一个工作簿Workbooks.Close 方法：关闭对象,Workbook对象和 Workbooks集合,Workbook对象和 Workbooks集合,例1 创建一个新的工作簿。Workbooks.Add由 Add 方法返回的Workbook 对象分配给对象变量 NewBook。然后，对 NewBook进行操作。Set NewBook=Workbooks.Add NewBook.SaveAs Filename:=Test.xlsSet语句语法形式：Set=New|NothingNew创建对象的一个新实例。Nothing释放该对象资源。,Workbook对象和 Workbooks集合,例2 打开工作簿用Open方法：Workbooks.Open(“D:Test.xls”)即打开D盘根目录中的Test.xls 工作簿。,Worksheet对象和 Worksheets集合,Worksheet 对象：代表一个工作表Worksheets 对象：指定的或活动工作簿中所有 Worksheet 对象的集合常用属性Worksheet.Cells 属性：返回一个 Range 对象，它代表工作表中的所有单元格（不仅仅是当前使用的单元格）。Worksheet.Columns 属性：返回一个 Range 对象，它代表活动工作表中的所有列Worksheet.Name 属性：返回或设置一个 String 值，它代表对象的名称,常用方法：Worksheets.Add 方法：新建工作表。新建的工作表将成为活动工作表Worksheets.Copy 方法：将工作表复制到工作簿的另一位置Worksheets.Delete 方法：删除对象Worksheets(工作表).Activate方法：激活工作表,Worksheet对象和 Worksheets集合,Workbook对象和 Workbooks集合,例3 激活工作表（激活工作簿中的Sheet1工作表）Worksheets(Sheet1).Activate 或 Worksheets(1).Activate,Workbook对象和 Workbooks集合,例4：新建工作表Sub 新建工作表1()Worksheets.Add before:=Sheet1End SubSub 新建工作表2()Worksheets.Add after:=Sheet4,Count:=2End SubCount可选。要新建的工作表的数目。默认值为 1。,Workbook对象和 Workbooks集合,例5：保存工作表Sub 保存工作表()ActiveWorkbook.SaveAs Filename:=D:第一个保存工作表.xlsxEnd Sub,Workbook对象和 Workbooks集合,例6：重命名工作表Sub 重命名工作表()Sheets(1).Select Sheets(1).Name=helloEnd Sub,Workbook对象和 Workbooks集合,例7：复制和删除工作表Sub 复制和删除工作表()Sheets(1).Name=原始表 Sheets(原始表).Copy before:=Sheets(原始表)Sheets(1).Name=副本1 Sheets(原始表).DeleteEnd Sub,Excel VBA,怎样引用区域,目录,引用一个单元格引用一个区域引用整行引用整列引用所有单元格引用相对位置单元格引用特殊区域（一）引用特殊区域（二）引用特殊区域（三）,引用一个单元格,举例：引用单元格B5B5直接写地址，没有引号，无法循环Range(B5)地址为字符串，可行循环，但书写麻烦Cells(5,B)先行后列,行地址为数字，列地址为字符串，无法引用区域Cells(5,2)地址为数字，先行后列，行列都可循环，无法引用区域,引用一个区域,举例：引用区域B5:D10B5:D10地址用冒号连接Range(B5:D10)Range(B5,D10)起止地址分别用引号括起来，中间用逗号连接Range(Range(B5）,Range(D10)Range嵌套Range(Cells(5,2),Cells(10,4)Range与Cells混合,引用整行,举例：引用第一行1:1Range(1:1)Rows(1)利用Rows（行）集合举例：引用第一到第三行1:3Range(1:3)Rows(1:3),引用整列,举例：引用A列（第一列)A:ARange(A:A)Columns(1)利用Columns（列）集合Columns(A)举例：引用A到C列（第一到第三列）A:CRange(A:C)Columns(A:C),引用所有单元格,引用所有单元格Cells利用Cells（单元格）集合Range(Cells(1,1),_Cells(Cells.Rows.Count,Cells.Columns.Count)从第一行第一列到最后一行最后一列引用所有行Rows利用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当前区域是以空行和空列围成的区域任何一个区域都有自己所属的当前区域引用已用区域ActiveSheet.UsedRange不仅包括有数据的区域，还包括曾经用过的区域以所有用过区域的中最上行最左列和最下行最右列围成一个工作表只有一个用过区域如果没有用过任何单元格，则已用区域为A1单元格,引用特殊区域（三）,引用活动单元格Range(B5).Activate只能用于活动工作表引用当前选区ActiveCell.CurrentRegion引用偏移区域Range(B5:D10).Offset(2,1)引用C7:E12，偏移地址可正可负，默认为0，偏移地址先行后列,引用命名区域,引用命名区域将当前工作表中名为“AA”的单元格区域内容设置为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(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行数据区末尾列号,实例,编程序，打印九九乘法表如下。,实例,编程序，打印九九乘法表如下。,