- 1、本文档共6页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Range,Cells选择单元格的用法
① Range属性选择单元格
1.选择单个单元格(例如A5)
Range(A5).Select
2.选择一个单元格区域(例如A6:A10)
Range(A6:A10).Select
3.选择一些不相邻的单元格(例如A1,B6,C8)
Range(A1,B6,C8).Select
4.选择一些不相邻的单元格和单元格区域(例如A11:D11,B7,C9)
Range(A11:D11,B7,C9).Select
② Cells属性选择单元格
1.选择单个单元格(例如A5)
Cells(5,1).Select
Cells(5,A).Select
2.选择一个单元格区域(例如A6:A10)
Range(Cells(6,1),Cells(10,1)).Select
3.选择工作表中的所有单元格
Cells.Select
③ Cells属性在VBA代码中应用
Set r = Cells 应用于 Application 对象,Application 省略Set r = Application.Cells 应用于 Application 对象Set r = Worksheets(1).Cells 应用于 Worksheet 对象Set r = Range(A1:C5,B2:D6).Cells 应用于 Range 对象,这个就我个人而言,找不出很好的应用 b. 区域左上角和右下角的单元格Set r = Range(Range(A1), Range(IV65536))
Range(A1) Cells(1,1) [a1] 可以引用的对象 单元格、区域、多区域、整行、整列 单元格 单元格、区域、多区域、整行、整列 自动列出成员 支持 不支持 不支持 用于代码循环 行循环 行循环、列循环 不支持 输入简便性 差 差 好 支持参数 索引号、Item和Cells Item和Cells 不支持
其中需要强调的有三点:支持自动列出成员和循环。
(1)自动列出成员
对象是否支持自动列出成员是很重要的一个特点,在编写代码时,可能程序员对某些属性或者方法不够熟悉,需要借助自动列出成员来快速完成。那么需要记住用何种方式可以调用其成员。
在单元格的三种引用方式中,仅仅第一种支持自动列出成员,在代码窗口录入“[A1].”或者“Cells(1,1)”后不会有任何反应。
(2)所谓支持参数是指访问其子集。访问区域的子集有三种方法。
例如Range(“A1:A10”)第二个子集,那么有以下三种方式:
Range(“A1:A10”).Item(2)
Range(“A1:A10”).Cells (2)
Range(“A1:A10”) (2)
而[A1]方式引用单元格时仅仅支持两种方式引用子集。例如:
[A1:A10]. Item(2)
[A1:A10]. Cells (2)
而“[A1:A10] (2)”,即删除圆点,则是非法引用
“Cells(1:1)”表示访问区域中第一个子集,如果不带前置对象,则默认为当前工作表中A1;如果前置Range对象,那么表示该对区域的第一个单元格,可能是A1,也可以是A1以外的任意单元格。
(3)支持循环
Sub tttt()
Application.ScreenUpdating = False
For j = 1 To 5
start1 = Timer
For i = 1 To 20000
Range(A i) = i
Next i
Range(B j) = Timer - start1
Next j
For j = 1 To 5
start1 = Timer
For i = 1 To 20000
Cells(i, 1) = i
Next i
Cells(j, 3) = Timer - start1
Next j
Application.ScreenUpdating = True
End Sub
上面的代码里分别采用了Range和Cells引用方法,分别运行5次、每次从1运行到20000,可以看出Cells方法要比Range方法稍快一些。
End属性
End属性返回一个Range对象,该对象代表包含源区域的区域尾端的单元格。等同于按键End+向上键、End+向下键、End+向左键或End+向右键,语法如下:
expression.End(Direction)
参数expression是必需的,一个有效的对象。
参数Direction是可选的,所要移动的方向,可以为表格 3
文档评论(0)