[原创]关于RANGE和OFFSET一个有趣发现：

figfig · 发表于 2005-6-18 10:21

关于RANGE和OFFSET一个有趣发现：

sub fig() set xx=range("a3") xx(2).select msgbox xx(-1).address msgbox xx(2,2).address end sub

原来 offset 可以以数组的形式出现，没想到吧

foshan · 发表于 2005-6-18 10:25

set xx=range("a3")　　返回的不是对象，为什么要用关键字　“set”？

chenjun · 发表于 2005-6-18 10:28

不是数组。如果xx=range("a3"), xx(2)=range("a3").Cells(2) xx(-1)=range("a3").Cells(-1) xx(2,2)=range("a3").Cells(2,2) 只是对象的省略写法。

[此贴子已经被作者于2005-6-18 10:29:07编辑过]

shengshizi · 发表于 2005-6-20 17:48

送给楼主一朵花！~

51082481 · 发表于 2005-6-20 18:24

3楼说的甚是！

UNARTHUR · 发表于 2005-6-20 19:58

range返回的不是数组

figfig · 发表于 2005-6-20 21:27

谢谢各位，确实不是数组，只是类似罢了。但下面应该是数组：

xx=[a1:a10]

msgbox xx(1,1)

msgbox xx(2,1)

msgbox ubound(xx)

[此贴子已经被作者于2005-6-20 21:39:31编辑过]

button · 发表于 2005-6-20 23:09

figfig提出的问题的确很有趣，以下是验证，的确是数组，不是对象。

Sub dd() xx = [a1:a10] Debug.Print VBA.VarType(xx(1, 1)) Debug.Print VBA.TypeName(xx(2, 1)) Debug.Print VBA.IsObject(xx(10, 1)) Debug.Print VBA.IsArray(xx) End Sub

守柔 · 发表于 2005-6-21 07:24

以下是引用figfig在2005-6-18 10:21:00的发言：
关于RANGE和OFFSET一个有趣发现：

sub fig() set xx=range("a3") xx(2).select msgbox xx(-1).address msgbox xx(2,2).address end sub

原来 offset 可以以数组的形式出现，没想到吧

其实这是一个RANGE对象的ITEM属性，

Item 属性是大多数集合的默认属性，因此通过省略Item关键字，可将相同的语句简化。

应用于 Range 对象的 Item 属性。

返回一个 Range 对象，该对象代表对指定区域某一偏移量处的区域。

expression.Item(RowIndex, ColumnIndex)

expression 必需。该表达式返回一个 Range 对象。

RowIndex Variant 类型，必需。要访问的单元格的索引号，顺序为从左到右，再往下。Range.Item(1) 返回区域左上角的单元格，Range.Item(2) 返回紧靠左上角单元格右边的单元格。

ColumnIndex Variant 类型，可选。指明要访问的单元格所在列的列号的数字或字符串，1 或 “A”表示区域中的第一列。

说明

语法 1 使用行号和列号或列标作为索引参数。关于此语法的详细信息，请参阅 Range 对象。RowIndex 和 ColumnIndex 参数为相对偏移量。也就是说，如果 RowIndex 指定为 1，将返回区域内第一行中的单元格，而非工作表的第一行。例如，如果选定区域为单元格 C3，则 Selection.Cells(2, 2) 返回单元格 D4（可用 Item 属性在原始区域之外进行索引）。

UNARTHUR · 发表于 2005-6-21 10:09

这个问题我很早就发现了.

dim xx()

xx= [a1:a10].value

和

xx=[a1:a10]

2种方法返回的都是数组，不过前一种方法要慢一些，因为要调用一个属性.value，尽管差别是很细微的。

这种方法真得很管用，比一个一个cells给数组负值快多了。缺点是不能定义数据类型。我血藏了几个月没有贴出来，现在已经有人发现了，呵呵！

[此贴子已经被作者于2005-6-21 10:09:38编辑过]

		自动登录	找回密码
密码			免费注册