佛山小老鼠带您走进VBA数组(菜鸟请进)

ron7654321

学习了 很强大

阳朔游游

佛山小老鼠 发表于 2013-11-13 00:16
数组的申明一、数组的分类
1.按维数分：一维,二维，多维
我是这样理解的，线是由点组成的，面是由线组成 ...

版主你好，
感谢你带来了这么好的教材，我也正在学习数组，曾经和你经历一样，读写单元格速度慢，所以饿补数组，学习过程发现一些问题和你切磋下。
你帖子里说：“ReDim arr1(1 To 5, 1 To x)'表示5行5列的二维数组,有的同学说,老师,可不可以把定义成这样,Dim arr1(1 to x,1 to 5),答案是否定的,不可以,也就是我们只能改变末维的大小”

ReDim是重新声明数组，ReDim后维数和上下限都将改变，并且数组为空，不存在说只能改变末维的大小的说法。
Sub 动态数组()
Dim x%
Dim arr1()
Sheet1.Cells.Clear
For x = 1 To 3
    ReDim arr1(1 To x, 1 To 2)
    Sheet1.Cells(x, 1).Value = "第一维上限：" & UBound(arr1)
    Sheet1.Cells(x, 2).Value = "第二维上限：" & UBound(arr1, 2)
Next x
End Sub
而ReDim Preserve重新声明数组后可以保留原有值，但只能改变末维大小。不知对否。
Sub 动态数组1()
Dim x%
Dim arr1()
Sheet1.Cells.Clear
For x = 1 To 3
    ReDim Preserve arr1(1 To x, 1 To x)
    Sheet1.Cells(x, 3).Value = "第一维上限：" & UBound(arr1)
    Sheet1.Cells(x, 4).Value = "第二维上限：" & UBound(arr1, 2)
Next x
End Sub


Sub 动态数组2()
Dim x%
Dim arr1()
Sheet1.Cells.Clear
For x = 1 To 3
    ReDim Preserve arr1(1 To 3, 1 To x)
    Sheet1.Cells(x, 3).Value = "第一维上限：" & UBound(arr1)
    Sheet1.Cells(x, 4).Value = "第二维上限：" & UBound(arr1, 2)
Next x
End Sub

阳朔游游

佛山小老鼠 发表于 2013-11-13 00:17
把工作表里的数据写进数组里大家记得我说的这句话,所有单元格区域装入到数组里都是二维数组,且定义数组大小 ...

把工作表里的数据写进数组里

大家记得我说的这句话,所有单元格区域装入到数组里都是二维数组,且定义数组大小时,我们都是直接写成这样 dim arr1,不要给它分配空间大小,也不要在其后面加一对空的小括号

老师，为什么我的带小括号也可以正确运行？我的是excel2003

Option Explicit

Sub 单元格区域赋值()

Dim arr() '声明一个动态数组（动态指不固定大小）

Dim arr1  '声明一个Variant类型的变量

'Dim arr2(1 To 7, 1 To 3)     '这种声明是错误的，固定大小的VBA数组不能一次性装入单元格数据

arr = Range("a1:c7")   '把单元格区域A1：C7的值装入数组arr

arr1 = Range("a1:c7")   '把单元格区域A1：C7的值装入数组arr1

'arr2 = Range("a1:c7")   '把单元格区域A1：C7的值装入数组arr2

End Sub

结果看图

jhegzwjb2016

辛苦了，谢谢 “佛山小老鼠”您的分享，学习很多，懂得很多；很赞成您的观点，等学习进步的时候，一定会主动帮助他人，与他人分享自己的收获，把这种精神发扬！

syzxb1969

1楼的调用过程中有两个错误，一是msgbox写成了msbgox。二是 过程名是自己，而call 的是自已，这当然找不到子过程啦。不知我说的对吗

syzxb1969

第二错误，我觉得是rg变量没有赋值，计算机不知道rg指的是哪个单元格

syzxb1969

第三个错误是因为left函数得到的结果是文本型，而不是数字型。得到的结果只能连接，不能相加

dyzhenggang

Sub test()
    Call 自己
End Sub
Sub 自己()
    MsgBox "亲:您好!", 64, "问候"
End Sub

dyzhenggang

Sub 取左边的第一个数据再求和()
    Dim a%, b%, c%, s%
    a = 11
    b = 21
    c = 31
    s = Val(Left(a, 1)) + Val(Left(b, 1)) + Val(Left(c, 1))
    MsgBox "求和结果是: " & s
End Sub

dyzhenggang

Sub 取左边的第一个数据再求和()
    Dim a%, b%, c%, s%
    a = Left(11, 1)
    b = Left(21, 1)
    c = Left(31, 1)
    s = a + b + c
    MsgBox "求和结果是: " & s
End Sub