《VBA编程及应用基础》第5章Excel的VBA对象1Range对象.pptx

Excel 的VBA对象Excel VBA对象模型 Range对象Excel 对象模型VBA通过对象来操作和控制 Excel 查看完整的 Excel VBA 对象模型：在 VBE 的工具栏单击 按钮在帮助窗口的工具栏单击 按钮在目录窗格的“Excel 2010 开发人员”下选择“Excel 对象模型参考”主题 Excel 对象模型在对象模型列表中，以复数形式陈列的表示的是一个集合。集合是指一组相似的对象，例如 Workbooks 是一个集合，而 Worksheets 是另一个集合例：Application.Workbooks(Book1).Worksheets(Sheet1).Range (A1)其中，Book1是集合Workbooks的一个元素，Sheet1是集合Worksheets的一个元素，A1是集合Range的一个元素Excel VBA的常用对象使用对象变量定义对象变量Dim xlsApp As [Excel.]ApplicationDim xlsWB As [Excel.]WorkbookDim xlsWS As [Excel.]WorksheetDim xlsRG As [Excel.]Range为对象变量赋值Set xlsWB = Workbooks(eg1.xlsx)Set xlsWS = Workbooks(1).Worksheets(Sheet1)Set xlsRG = Workbooks(eg1). Sheets(1).Range(A1:D5)几个特殊对象Range对象( P.118)Range 对象本身就表示一个集合，可代表某一单元格、某一行、某一列、某一选定区域可用 Range(arg) 来返回代表单个单元格或单元格区域的 Range 对象，其中 arg 为区域名称。例如： Dim vRng As Range Set vRng = ThisWorkbook.ActiveSheet.Range(A1:A5)Range对象还可以使用 Range(Cell1, Cell2) 来引用一个单元格或单元格区域，其中 Cell1 是区域左上角（右下角）单元格地址， Cell2 是区域右下角（左上角）单元格地址例如： Range (A1:C5) || Range(A1, C5)Range对象的常用属性Value?表示单元格的内容，不仅可表示单个单元格的值，也可将整个区域作为一个数组返回或者设置例1： ActiveCell.Value = 5例2： vData = ActiveSheet.Range(A5:E6).Value ActiveSheet.Range(A8:E9).Value = vDataRange对象的常用属性Cells表示单元格区域中的所有单元格可用 Cells(row, column) 表示单元格区域中的某个单元格，其中row 为行号，column 为列标例如，下面代码将当前工作表 B2:D4 区域的第2行第2列的单元格（即C3）的值设为5： ThisWorkbook.ActiveSheet.Range(B2:D4).Cells(2, 2).Value = 5Range对象的常用属性Offset?表示相对于指定区域偏移若干行和列以后的区域，使用方法：Offset(row, column)，其中 row 和 column 分别为行偏移量和列偏移量例： ActiveCell.Offset(3, 3).Value = 5实践1学历学位博士研究生博士硕士研究生硕士本科学士其他无在 实例/公务员考试成绩表.xlsx公务员考试成绩表 工作簿中，假定学生均已获得相应学位，试编写一个宏，用 For Each…Next 循环遍历“学历”列各学生的学历，然后在“学位”列填写其对应的学位。学历学位对应关系如下表所示：Range对象的常用属性CurrentRegion?表示当前区域，当前区域是以空行与空列的组合为边界的区域例如，下面代码选定工作表 Sheet1 上的当前区域： Worksheets(Sheet1).Activate ActiveCell.CurrentRegion.SelectRange对象的常用属性Columns?表示指定单元格区域中的所有列可用 Columns(index) 表示单元格区域中的某列例如，下面代码将 B2:D4 区域第一列中每一单元格的值置为0： ThisWorkbook.ActiveSheet.Range(B2:D4).Columns(1).Value = 0Range对象的常用属性ColumnWidth表示指定区域中所有列的列宽，例： With Worksheets(Sheet1).Range(B3.A12) .ColumnWidth = .ColumnWi