开发学院软件教学办公软件Excel VBA数组学习笔记(一) 阅读

VBA数组学习笔记(一)

 2009-10-03 14:36:45 来源:WEB开发网   
核心提示:VBA数组学习笔记 一、数组的分类按元素数目分:元素数目大小固定的数组和元素数目大小不固定的动态数组,按维数分:一维数组、多维数组,VBA数组学习笔记(一),Arr(1 to 12)、Arr1(0 to 24)一维固定数组;Arr2(1 to 5,1 to 8) 二维固定数组;Arr3(5 to 10,6 to 12,

VBA数组学习笔记


一、数组的分类

按元素数目分:元素数目大小固定的数组和元素数目大小不固定的动态数组。

按维数分:一维数组、多维数组。

Arr(1 to 12)、Arr1(0 to 24)----一维固定数组;

Arr2(1 to 5,1 to 8)---- 二维固定数组;

Arr3(5 to 10,6 to 12,1 to 100) ---- 三维固定数组。

动态数组

Dim Arr2(),r%

r=r+1

ReDim PReserve Arr2(1 To r) ―――动态数组;可以重新声明(只有最后一维的数目才能重新声明);

用了关键字 Preserve 可确保原来包含数据的数组中的任何数据都不会丢失

二、数组的赋值

2.1,单元格区域保存到数组

arr = [e22:i24]

arr=Range(“e22:i24”)

2.2,Array函数

myArray = Array("AAA", "BBB", 200, 500, "2006-7-12")

如果代码头没有 Option Base 1 的语句,则数组myArray的上限为4,下限为0。

即下限LBound(myArr)=0 ,上限 UBound(myArr)=4

二维数组的第一维的上限:UBound(Arr,1)


二维数组的第二维的上限:UBound(Arr,2)

多维数组上限的求法一样。

2.3,把单元格区域公式赋给数组


如果a5=B4+1

arr = [a4:c8].Formula '将单元格绝对引用公式保存到数组

[e4:g8]=arr   此时e5中的公式也=B4+1;

如果将单元格相对引用公式保存到数组

arr = [a4:c8].FormulaR1C1

如果a5=B4+1

[e4:g8]=arr   此时e5中的公式就=E4+1;

三、数组的处理


3.1,数组里的最大值和最小值

最大值aa = application.WorksheetFunction.Max(Arr)

aa= Application.WorksheetFunction.Large(Arr,1)

最小值aa = Application.WorksheetFunction.Min(Arr)

aa= Application.WorksheetFunction.Small(Arr,1)

Tags:VBA 数组 学习

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
更多精彩
    赞助商链接

    热点阅读
      焦点图片
        最新推荐
          精彩阅读