动态定义二维数组出问题

翔羽

动态定义二维数组出问题
我再vba中开始定义一个数组
dim a() as integer
然后在程序的过程中动态定义：
redim preserve a(1 to i,1 to 2) as integer
然后再程序的运行过程中提示错误：下标越界
请问怎么解决？

翔羽

变量i 动态改变大小

翔羽

当我把i的值随意取一个固定的值（比如100）的时候，程序运行正常，请问如果要动态改变二维数组的大小的时候，请问怎么解决问题？

雪山飞狐_lzh

如果有preserve关键字就只能改变最后一维，去掉该关键字

翔羽

哦

但是我在动态定义a(1 to i,1 to 2)大小的时候，需要保存上次存储在数组中的值，如果不用preserve的话，以前的值是空值，请问斑竹怎么解决这个问题？？

mccad

调过来定义不行吗？

翔羽

怎么样调过来定义？我所需要的数组是二维的，其中最后一维是固定的，就是1 to 2

变化的就是第一维的范围1 to i 请问怎么解决阿~~

雪山飞狐_lzh

2. Sub tt()
3. Dim a() As Integer
4. ReDim a(1 To 2, 1 To 1) As Integer
5. a(1, 1) = 10
6. i = 10
7. ReDim Preserve a(1 To 2, 1 To i) As Integer
8. MsgBox a(1, 1)
9. End Sub

Sub tt() Dim a() As Integer ReDim a(1 To 2, 1 To 1) As Integer a(1, 1) = 10 i = 10 ReDim Preserve a(1 To 2, 1 To i) As Integer MsgBox a(1, 1) End Sub

翔羽

谢谢斑竹~~

斑竹弄错我的意思了，我的意思是想这样定义：redim preserve a(1 to i,1 to 2) as integer而不是ReDim Preserve a(1 To 2, 1 To i) As Integer

mccad

这有什么区别？
数组是用来存数据用的。如果不涉及到与外部其它程序的数据交换问题，这些数据都是自己定的，如果这样的话，怎么样的数据写程序最简单、运行速度最快就可以采用，为什么必须使用规定格式的数据呢？
就象我写的那个“简繁转换”的程序一样，为了达到最大的读取和运行速度，初始化的数据都是使用特殊格式的方式。
为什么我会让你调过来，把需要改变维数的那一组放在最后面，考虑的也就是写程序的方便，因为我以前在写“对象均布”程序中就碰到这样的问题。