欢迎来到天天文库
浏览记录
ID:43486061
大小:514.53 KB
页数:8页
时间:2019-10-08
《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移动
此文档下载收益归作者所有