VBA编程24学时教程10

《VBA编程24学时教程10》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、10学时Range对象在VBA代码中，用得最多的单独的对象可能就要算Range对象了。Range对象是Excel的对象世界中真正的工作对象。作为Excel用户，你将把大部分时间花在对Range对象的处理上。在本学时中，将学习多种对Range对象进行处理的技术。本学时的重点包括：¥理解Range对象的作用¥使用With语句¥使用ForEach语句¥分析几个使用Range对象的过程10.1Range对象作为Excel用户，你基本上是和工作表上的单元格打交道。而在VBA中，则称为和Range对象打交道。对于一个程序员来说，在所有的Excel对象中，对Range对象的处理是最频繁的。正因为如此，在

2、本学时中，你将学习有关Range对象的各种知识。一个Range对象可以是：¥一个单独的单元格。¥对单元格的选择。¥多个选择。¥一行或者一列。¥一个3D区域。10.1.1Range对象的属性和学习其他对象一样，首先需要学习Range对象的一些属性和方法。Range对象最有用的一些属性如下：¥Address本属性返回Range的当前位置。¥Count本属性用于决定Range中单元格的数目。¥Formula本属性返回用于计算显示值的公式。¥Offset本属性对于从一个Range移动到另一个Range非常有用。¥Resize通过它可设置当前选中的Range的大小。¥Value返回Range的数值。

3、在上面的程序清单中列出的属性只是Range对象属性很小的一部分，实际上，Range对象的属性多达几十个。在下面的练习中，将熟悉Range对象的一些属性。在开始前，关闭所有的工作簿，并打开一个新的工作簿。接着从创建一个新的工作表开始：1）在单元格B1中输入“100”，在单元格B2中输入“200”，在单元格B3中输入“300”。84使用中文Excel2000编程24学时教程www:6ago.net3）选中单元格B4，并输入“=SUM(B1:B3)”。3）按下Alt+F11键打开VisualBasic编辑器，在当前工作簿中插入一个新的模块。4）创建一个名为“RangeProperties”的过程

4、。5）为该过程输入如下代码：ThisWorkbook.Worksheets("Sheet1").Range("A1").ActivateActiveCell.Offset(2,2).ActivateMsgBox"Thecurrentactivecellis"&ActiveCell.AddressMsgBox"ThevalueofB4is"&Range("B4").ValueMsgBox"TheformulaofB4is"&Range("B4").Formula6）回到工作簿的Sheet1，运行RangeProperties过程。显示的第一个消息框告诉你激活的单元格为C3，如图10-1所示。

5、图10-1将Address属性用作创建消息框文本的内容7）单击“确定”按钮，下一个消息框显示单元格B4的数值。8）单击“确定”按钮，最后一个消息框显示单元格B4的计算公式。9）单击“确定”按钮，退出消息框。熟悉上面例子中显示信息的细微区别了吗？为了确保对本例中代码的理解，请花一点时间复习一下。程序清单10-1显示了完成后的过程。程序清单10-1RangeProperties过程1:SubRangeProperties()2:ThisWorkbook.Worksheets("Sheet1").Range("A1").Activate3:ActiveCell.Offset(2,2).Activ

6、ate4:MsgBox"Thecurrentactivecellis"&ActiveCell.Address5:6:MsgBox"ThevalueofB4is"&Range("B4").Value7:MsgBox"TheformulaofB4is"&Range("B4").Formula8:EndSub第10学时Range对象使用85在本过程中，做的第一件事是激活单元格A1：ThisWorkbook.Worksheets("Sheet1").Range("A1").Activate激活单元格A1之后，用Offset方法移动到单元格C3，并且在消息框中显示新激活的单元格的地址：ActiveC

7、ell.Offset(2,2).ActivateMsgBox"Thecurrentactivecellis"&ActiveCell.Address通过Offset属性，可以移动到另一个Range位置，这个属性的语法如下：rangename.Offset(RowOffset,ColumnOffset)可选参数RowOffset和ColumnOffset控制移动的方向。在本过程中，将这两个参数均设置为2，这就将Range移动