Excel VBA常用对象及应用

1、第五章：认识Excel VBA 对象,5.2 Excel VBA常用对象及应用,一、 Excel VBA中常用对象,四个对象： 1、Application 对象 2、Workbook 对象 3、Worksheet 对象 4、Range 对象,实战：完善“制作成绩条”宏,二、 Application 对象,Application 对象是 Excel 对象模型的最上部的对象，代表了 Excel 应用程序本身。 Application 对象提供了大量属性、方法和事件，用来操作 Excel 程序。,二、 Application 对象,因为 Application 对象是 Excel 对象模型的最顶端对

2、象，逻辑上所有 Excel 对象都需要使用 Application 对象来引用。 你可以使用Application属性返回Application对象。获取一个Application对象后，如需访问它下面的对象，可以在对象模型层级中往下移动。例如要引用第一个工作薄中的第一个工作表的“A1”单元格，并将“A1”单元格内容设为66，我们可以这么做：,Application.Workbooks(1).Worksheets(1).Cells(1, 1) = 66,二、 Application 对象,Application 对象有许多属性，方法，事件可以使用。下面的几个示例代码作为参考。,功能：显示程序名

3、字。 Application.Name,功能：保存所有打开的工作簿，然后退出 Microsoft Excel。 For Each w In Application.Workbooks w.Save Next w Application.Quit,三、【Workbook】对象,代表 Microsoft Excel 工作簿。Workbook 对象是 Workbooks 集合的成员。 Workbooks 集合包含 Microsoft Excel 中所有当前打开的 Workbook 对象。,Application 对象 是顶级对象，该对象下又包括许多其它对象和集合，我们可以把集合也看作是对象，在集合中

4、又包括许多相同的对象。,返回Workbook对象的属性,可用 Workbooks(index)（其中 index 为工作簿名称或编号）返回单个 Workbook 对象。 下例激活第一个工作簿。,1、Workbooks 属性,Workbooks(1).Activate,编号指示创建或打开工作簿的顺序。,返回Workbook对象的属性,Name 属性返回工作簿名称。不能用该属性设置名称；如果需要更改名称，应当用 SaveAs 方法以其他名称保存工作簿。 下例激活工作簿“Cogs.xls”中的工作表“Sheet1” （该工作簿必须已在 Microsoft Excel 中打开）。,1、Workbook

5、s 属性,Workbooks(Cogs.xls).Worksheets(Sheet1).Activate,返回Workbook对象的属性,ActiveWorkbook 属性返回当前处于活动状态的工作簿。下例设置活动工作簿的作者名称。,2、ActiveWorkbook 属性,ActiveWorkbook.Author = Jean Selva,返回Workbook对象的属性,ThisWorkbook 属性返回 Visual Basic 代码正在运行的工作簿。在绝大多数情况下，这也就是活动工作簿。然而，如果 Visual Basic 代码是加载宏的一部分，那么 ThisWorkbook 属性就不会

6、返回活动工作簿。在这种情况下，活动工作簿是调用加载宏的工作簿，而 ThisWorkbook 属性将返回该加载宏工作簿。,3、ThisWorkbook 属性,创建一个新的工作簿 Workbooks.Add 关闭所有打开的工作簿 Workbooks.Close 打开一个现有的工作簿 Workbooks.Open C: Workbook.xls,四、 Worksheet 对象,Worksheet对象代表一张工作表。Worksheet 对象是 Worksheets 集合的成员。Worksheets 集合包含工作簿中所有的 Worksheet 对象。,返回Worksheet对象的属性,可用 Worksh

7、eets(index)（其中 index 为工作表编号或名称）返回单个 Worksheet 对象。 例如隐藏活动工作簿中的第一张工作表。可采用下列代码：,1、Worksheets 属性,Worksheets(1).Visible = False,工作表编号指示该工作表在工作簿的标签栏上的位置。 工作表的名称显示在工作表的标签上。使用 Name 属性可设置或返回工作表的名称。,返回Worksheet对象的属性,当工作表处于活动状态时，可用 ActiveSheet 属性来引用它。下例使用 Activate 方法激活工作表 Sheet1，将页方向设置为横向，然后打印该工作表。,2、ActiveShe

8、et 属性,Worksheets(Sheet1).Activate ActiveSheet.PageSetup.Orientation = xlLandscape ActiveSheet.PrintOut,五、 Range对象,Range 对象是 Excel 应用程序中最经常使用的对象。在操作 Excel 内的任何区域之前，都需要将其表示为一个 Range 对象，然后使用该 Range 对象的方法和属性。 基本上来说，一个 Range代表某一单元格、某一行、某一列、某一选定区域（该区域可包含一个或若干连续单元格区域），或者某一三维区域。,（一）、返回Range 对象的属性和方法,当可用 Ran

9、ge(arg)（其中 arg 为区域名称）来返回代表单个单元格或单元格区域的 Range 对象。下例将单元格 A1 中的值赋给单元格 A5。,1、Range 属性,Worksheets(Sheet1).Range(A5).Value = Worksheets(Sheet1).Range(A1).Value,Worksheets(1).Range(Criteria).ClearContents,下例清除区域 Criteria 中的内容。,可用 Cells(row, column)（其中 row 为行号，column 为列标）返回单个单元格。下例将单元格 A1 赋值为 24。,2、Cells 属性

10、,Worksheets(1).Cells(1, 1).Value = 24,ActiveSheet.Cells(2, 1).Formula = =Sum(B1:B5),下例设置单元格 A2 的公式。,（一）、返回Range 对象的属性和方法,可用 Range(cell1, cell2) 返回一个 Range 对象，其中 cell1 和 cell2 为指定起始和终止位置的 Range 对象。 下例设置单元格区域 A1:J10 的边框线条的样式。,3、Range 和 Cells,With Worksheets(1) .Range(.Cells(1, 1), _ .Cells(10, 10).Bor

11、ders.LineStyle = xlThick End With,注意每个 Cells 属性之前的句点。如果前导的 With 语句应用于该 Cells 属性，那么这些句点就是必需的。本示例中，句点指示单元格处于第一张工作表上。如果没有句点，Cells 属性将返回活动工作表上的单元格。,（一）、返回Range 对象的属性和方法,可用 Offset(row, column)（其中 row 和 column 为行偏移量和列偏移量）返回相对于另一区域在指定偏移量处的区域。下例选定位于当前选定区域左上角单元格的向下三行且向右一列处的单元格。由于必须选定位于活动工作表上的单元格，因此必须先激活工作表。,

12、4、Offset 属性,Worksheets(Sheet1).Activate Selection.Offset(3, 1).Range(A1).Select,（一）、返回Range 对象的属性和方法,可用 Union(range1, range2, .) 返回多块区域，即该区域由两个或多个连续的单元格区域所组成。下例创建由单元格区域 A1:B2 和 C3:D4 组合定义的对象，然后选定该定义区域。,5、Union 方法,Dim r1 As Range, r2 As Range, myMultiAreaRange As Range Worksheets(Sheet1).Activate Set

13、 r1 = Range(A1:B2) Set r2 = Range(C3:D4) Set myMultiAreaRange = Union(r1, r2) myMultiAreaRange.Select,（一）、返回Range 对象的属性和方法,Activate 方法 Activate 方法激活单个或多个单元格，使其成为当前活动单元格，例如：,Worksheets(Sheet1).Range(a1).Activate,（二）、Range 对象常用的属性和方法,Address 方法 可以使用 Address 方法获取一个 Range 的引用地址，例如“A1”，在实际编程中，Address方法非常

14、有用。例如：,MsgBox ActiveCell.Address,Cells 属性 返回一个 Cells 集合对象，包含所有的单元格，可以使用：Cells(行, 列),MsgBox Worksheets(Sheet2).Range(a3.d12).Cells.Count,（二）、Range 对象常用的属性和方法,Clear 方法 清除 Range 内的一切内容，包括注释和格式。,Worksheets(Sheet2).Range(a3.d12).Clear,ClearFormats 方法 清除 Range 内的格式。,（二）、Range 对象常用的属性和方法,Column 和 Row 属性 返回

15、 Range 的第一列或行，例如：,MsgBox Worksheets(Sheet2).Range(b3.d12).Column,MsgBox Worksheets(Sheet2).Range(b3.d12).Row,返回 2,因为第一列是 B。,返回 3,因为第一行是 3。,Columns 和 Rows 属性 返回 Range 的列和行，通过其 Count 属性可以获取行数或列数。在使用 For 循环遍历时，就可以使用此属性，获得 Range 对象的大小，然后使用 Cells 属性，获取各个单元格的具体值，例如：通过 Columns 和 Rows 属性获取了 Range 的大小，循环给“C1

16、:H26”这个Range 赋值。,Dim i As Long, j As Long Dim rng As Range Set rng = ActiveSheet.Range(C1:H26) With rng For i = 1 To .Columns.Count For j = 1 To .Rows.Count .Cells(j, i).Value = j & & i Next j Next i End With,（二）、Range 对象常用的属性和方法,Copy 和 PasteSpecial 方法 与编辑菜单的拷贝相同，例如：,Worksheets(Sheet2).Range(f19.g20

17、).Copy Worksheets(Sheet2).Range(h19).PasteSpecial,（二）、Range 对象常用的属性和方法,PasteSpecial 允许设置 Paste 值还是格式。例如：,Worksheets(Sheet2).Range(h19).PasteSpecial Type:=xlPasteValues,Select 方法 选中特定的 Range，如：,Worksheets(Sheet2).Range(f19.g20).Select,（二）、Range 对象常用的属性和方法,Value 属性 Range 的缺省属性，可以读写单元格的内容，例如： ：,MsgBox

18、Worksheets(Sheet2).Range(f26).Value Worksheets(Sheet2).Range(f26).Value = 10,大家是否还记得，我们在第一章中记录的制作成绩条的宏，这个宏有一个明显的不足，就是每次添加一个表头就需执行宏一次，这很麻烦。在这里我们通过前文所学的知识，利用控制Excel对象和循环语句来完善它，让它一次就能添加所有学生成绩的表头。,实战：完善“制作成绩条”宏,首先来看下面的图53和图54，这样的重复插入表头操作利用循环语句是最恰当不过的。要重复插入几次表头这样的操作呢？对于图53来说，是4次。进一步总结可以发现，对于任意n条数据记录，要重复的插入表头操作次数应该是n-1次。可n是多少，如何让程序