VBA第二讲.ppt

VBA第二讲 2007年3月25日 内容 第3章 引用区域 主讲: 胡雅琴 第4章 用户定义的函数 主讲: 周惠馨 第3章 引用区域 区域为工作表中单个的单元格、行、列或者一组单元格、行和列。 Range对象 Range对象 Excel的对象层次： Application-Workbook-Worksheet-Range Range对象是Worksheet对象的属性 引用单个单元格方法: Range(“A1”) Worksheet(1).Range(“A1”) …… 选择矩形区域 选择当前工作表中前5行和前2列 完整区域：Range(“A1:B5”).Select 左上角右下角：Range(“A1”, “B5”).Select 当前单元格：Range(“A1”, ActiveCell).Select 快捷方式 用中括号括起来 Range(“A1:B5”)=[A1:B5] Range(“MyRange”)=[MyRange] 引用其他工作表中区域 指明工作簿和工作表的名称 Workbooks(“myexcel.xls”).Worksheet(“Sheet1”).Range(“A1”) 注意：使用一个Range属性作为另一个Range属性的参数时，每次都必须完整地指出区域，如下例。 例：处理非当前工作表数据 假设Sheet1是当前活动工作表，你想对Sheet2中数据求和 WorkSheetFunction.Sum(Worksheets(“Sheet2”). _ Range(Range(“A1”),Range(“A7”))) Range(“A1”)和Range(“A7”)前都应带上Worksheets(“Sheet2”) 例：处理非当前工作表数据 正确的写法 With Worksheets(Sheet2) WorksheetFunction.Sum _ (.Range(.Range(A1), .Range(A7))) End With 更简单的写法 WorksheetFunction.Sum _ (Worksheets(Sheet2).Range(A1:A7)) 相对引用 .Range可成为另一个区域的属性 选择单元格D7 直接引用：Range(“D7”).Select 相对引用：Range(“B5”).Range(“C3”).Select 属性和方法 Cells属性 Cells属性将引用指定的区域对象的所有单元格，如： Cells.Select：选定当前工作表的所有单元格 Range(“A1:D5”).Cells = Range(“A1:D5”) Cells属性-Item属性 Cells属性拥有一个Item属性 Cells.Item(Row, Column) Row必须使用数值，Column可以使用数值和字符串值 Range属性中用Cells属性作为参数 Range(Cells(1,1), Cells(5,5)) Cells属性-Item属性 利用Item属性作循环 FinalRow = Range(A65536).End(xlUp).Row For i = 1 To FinalRow ‘Range(A i :E i).Font.Bond = True Cells(i, “A”).Resize(,5).Font.Bond = Ture Next i Offset属性 Range.Offset(RowOffset, ColumnOffset) 表示从当前区域向下偏移RowOffset行，向右偏移ColumnOffset列，如果为负数则向反方向偏移，如果为0则可省略不写，但对行要保留参数位置。 Offset属性 Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5) 表示单元格F5 可简写为Range(“A1”).Offset(4,5) 注意：计数从A1开始不包含A1 Range(“A1”).Offset(,1)表示单元格B1 Range(“B2”).Offset(-1)表示单元格B1 Offset属性－农产品例子 假设我们有一个农产品以及总数的清单，现在要查询总数为0的产品并在旁边的单元格中放置一个“Low” Offset属性－农产品例子 Set Rng= _ Range(B1:B16).Find _ (What:=0, _ LookAt:=xlWhole, _ LookIn:=xlValues) Rng.Offset(, 1).Value _ = Low Resize属性 Range.Resize(RowSize, ColumnSize) 用来调整区域范围，将当前区域调整成RowSize行和Col