vba Range对象.ppt

Excel编程与VBA第九讲Range对象Content在VBA代码中,用得最多的单独的对象可能就要算Range对象了。Range对象是Excel的对象世界中真正的工作对象。作为Excel用户,将把大部分时间花在对Range对象的处理上。在本次课程中,将学习多种对Range对象进行处理的技术,重点包括:?理解Range对象的作用?使用With语句?使用For Each语句?分析几个使用Range对象的过程Range对象是什么?作为Excel用户,基本上是和工作表上的单元格打交道。而在VBA中,则称为和Range对象打交道。对于一个程序员来说,在所有的Excel对象中,对Range对象的处理是最频繁的。正因为如此,在本课程中,将学习有关Range对象的各种知识。一个Range对象可以是:?一个单独的单元格。?对单元格的选择。?多个选择。?一行或者一列。?一个3D区域。一、Range对象的属性和学习其他对象一样,首先需要学习Range对象的一些属性和方法。Range对象最有用的一些属性如下:? Address 属性返回Range的当前位置。? Count 属性用于决定Range中单元格的数目。? Formula 属性返回用于计算显示值的公式。?Offset 属性对于从一个Range移动到另一个Range非常有用。?含义,下面有? Resize 通过它可设置当前选中的Range的大小。? Value 返回Range的数值。在上面的清单中列出的属性只是Range对象属性很小的一部分,实际上,Range对象的属性多达几十个。在下面的例题中,将熟悉Range对象的一些属性。在开始前,关闭所有的工作簿,并打开一个新的工作簿。接着从创建一个新的工作表开始:一、Range对象的属性(Cont) 1)在单元格B1中输入“100”,在单元格B2中输入“200”,在单元格B3中输入“300”。 2)选中单元格B4,并输入“= SUM(B1:B3)”。 3)按下Alt+F11键打开Visual Basic编辑器,在当前工作簿中插入一个新的模块。 4)创建一个名为“RangeProperties”的过程。 5)为该过程输入如下代码: ("Sheet1").Range("A1").(2,2).Activate MsgBox "The current active cell is " & MsgBox "The value of B4 is " & Range("B4").Value MsgBox"The formula of B4 is " & Range("B4").Formula 6)回到工作簿的Sheet1,运行RangeProperties过程。显示的第一个消息框告诉你激活的单元格为C3。 7)单击“确定”按钮,下一个消息框显示单元格B4的数值。一、Range对象的属性(Cont) 8)单击“确定”按钮,最后一个消息框显示单元格B4的计算公式。 9)单击“确定”按钮,退出消息框。熟悉上面例子中显示信息的细微区别了吗?为了确保对本例中代码的理解,请花一点时间复习一下。 1: Sub RangeProperties () 2: ("Sheet1").Range("A1").Activate 3: (2,2).Activate 4: MsgBox "The current active cell is " & 5: 6: MsgBox "The value of B4 is " & Range("B4").Value 7: MsgBox"The formula of B4 is " & Range("B4").Formula 8: End Sub在本过程中,做的第一件事是激活单元格A1: ("Sheet1").Range("A1").Activate一、Range对象的属性(Cont)激活单元格A1之后,用Offset方法移动到单元格C3,并且在消息框中显示新激活的单元格的地址: (2,2).Activate MsgBox "The current active cell is " & ,可以移动到另一个Range位置,这个属性的语法如下:R