关于数组的 维数讨论

幕柔漂雪

Sub 矩形1_单击()
Dim arr1()
arr1() = Sheet1.Range("b2:c13")
End Sub


请看这个代码
Sub 矩形1_单击()
Dim arr1(13, 2)
arr1(13, 1) = Sheet1.Range("b2:c13")
MsgBox arr1(1, 1)
End Sub
出现了下标 0  数组维数取值 0
关于出现 0 我们是怎么样避免这个情况
更不要说取值MsgBox arr1(1, 1)

为什么这个出现了呢
Sub 矩形1_单击()
Dim arr1
arr1 = Sheet1.Range("b2:c13")
MsgBox arr1(1, 1)   '显示这个数组的维数取值怎么显示不了呢
End Sub
只是定义的不同
Dim arr1  和  Dim arr1（） 的区别



那怎么样避免这个情况呢
-------------------------------------------------------------------------------------
对于连续的单元格 我们可以用ARR=SHEET1.RANGE(区域）                       
                       
那么对于不连续的单元格组成数组  见附件 数组维数讨论.rar (15.64 KB, 下载次数: 16)

2010-2-2 03:24 上传

点击文件名下载附件
数组维数 以及下标为0

把咖啡色区域写成数组

[ 本帖最后由 幕柔漂雪 于 2010-2-3 21:33 编辑 ]

ccwan

arr1(1, 1)是空值，当然什么都看不到

幕柔漂雪

ARR不添加挂糊.rar (14.4 KB, 下载次数: 1)

2010-2-3 21:32 上传

点击文件名下载附件

为什么这个出现了呢
Sub 矩形1_单击()
Dim arr1
arr1 = Sheet1.Range("b2:c13")
MsgBox arr1(1, 1)   '显示这个数组的维数取值怎么显示不了呢
End Sub
只是定义的不同
Dim arr1  和  Dim arr1（） 的区别