一维数组赋值和输出的问题

button

变体不是所有的赋值都可以，可以测试一下，

Sub Test()

dim a as Varaint

a=thisworkbook.sheets(1)

end sub

是通不过的。

[此贴子已经被作者于2005-6-21 22:57:25编辑过]

figfig

应该同时属于对象+数组，但须SET，（个人理解）

Sub jjj()

Dim xx As Range Set xx = [a1:b10] MsgBox xx.Address MsgBox IsArray(xx) 'yes MsgBox IsObject(xx) 'yes MsgBox xx.Cells(1, 1).Offset(1, 0).Address End Sub

[此贴子已经被作者于2005-6-21 23:05:36编辑过]

button

以下是引用figfig在2005-6-21 23:04:26的发言：

应该同时属于对象+数组，但须SET，（个人理解）

我认为应该是数组对象更合适。

丸究阵引

'呵呵！运行 TESTA 看看MSGBOX怎样说？ Sub testA()

Dim myData As Variant Set myData = Range("A1:A20") MsgBox (VarType(myData)) myData = Range("A1:A20") MsgBox (VarType(myData))

End Sub

figfig

以下是引用丸究阵引在2005-6-21 23:12:28的发言：

'呵呵！运行 TESTA 看看MSGBOX怎样说？ Sub testA()

Dim myData As Variant Set myData = Range("A1:A20") MsgBox (VarType(myData)) myData = Range("A1:A20") MsgBox (VarType(myData))

End Sub

结果是8204,

=8192（数组）+12（variant)

so,是数组，NOT 对象！！

button

以下是引用丸究阵引在2005-6-21 23:12:28的发言：

'呵呵！运行 TESTA 看看MSGBOX怎样说？ Sub testA()

Dim myData As Variant Set myData = Range("A1:A20") MsgBox (VarType(myData)) myData = Range("A1:A20") MsgBox (VarType(myData))

End Sub

用这个更直观

Sub testA() Dim myData As Variant Set myData = Range("A1:A20") Debug.Print TypeName(myData) myData = Range("A1:A20") Debug.Print TypeName(myData) Debug.Print IsObject(myData) End Sub

第一个显示是一个对象（Range），第二个显示是一个变体数组(Variant())，不是对象

chenjun

VarType函数只能测试出变量的子类型，并不能确定这个变量是不是Range 如：MsgBox VarType(Range("A1"))也不会返回代表对象的值 要确定是不是Range，直接运行MsgBox myData.Address就可以了，如myData不是Range对象就返回错误。

丸究阵引

用 figfig 的例子说更明白一点

Sub jjj()

Dim myData As Variant

Set myData = Range("A1:A20")

Debug.Print VarType(myData) '8204 Debug.Print TypeName(myData) 'Range Debug.Print IsObject(myData) 'True Debug.Print IsArray(myData) 'True Debug.Print myData.Address '地址字符串

End Sub

从过程 jjj 看到了什么？vba的脑子是不是进水了！同样一个变量怎么即是对象又是数组呢？其实不是！奥妙就是一个 变 字。

在 Set myData = Range("A1:A20") 赋值后，vba存贮的是vartype=8204 的东西（注：要察看 variant 正在使用哪种变量类型，应使用 vartype--官方解释),这就是偶在20楼说的 某某。

在使用时，vba会作一个最好的猜测，根据这个猜测而会自动转换相应类型（Debug.Print VarType(myData)，Debug.Print IsObject(myData)等就是这个使用的过程），这就是同样的变量会有不同数据类型的原因！

这个猜测绝大部分都是正确的，但有时并不是和过程的意愿相同的，这就是偶在14楼，劝 UNARTHUR 要使用明确、鲜明书写代码的原因。

为什么myData=Range("A1:A20")不是二维数组。从另一角度简单的讲要是标准的二维数组 Transpose 后应可以用数组的读取方式 x(1,1)的读取，而现实是不可以。 myData=Range("A1:A20") 而 myData 能用myData(1,1)读取，在这里这个最好的猜测应该是单元格。这就是偶说 myData 的本质就是单元格！（本质是单元格，和就是单元格不是一个意思）20 楼的例子 Set myData = Range("A1:A20")和 myData=Range("A1:A20") 的 vartype 返回同一值也证明了这一点。

hxhgxy

同意丸究阵引兄的解释，受益匪浅，谢谢！

UNARTHUR

同意button的观点

Set myData = Range("A1:A20")生成的是对象而不是数组

myData = Range("A1:A20")生成的是数组而不是对象

他们虽然可以用myData(n,m)得到同一个值但是本质是不同的

另外关于有无.value,差别肯定是有的。但是在这个问题上既然不加.value比加上.value执行效率要高，为什么还要加呢？？请看以下测试

pfLE3otT.rar (7.65 KB, 下载次数: 94)

2005-6-22 11:32 上传

点击文件名下载附件
一维数组赋值和输出的问题

[此贴子已经被作者于2005-6-22 11:34:11编辑过]