在

No.1

VBA编程中，数组APP是非常有用的方法。

如何将数据表作为数组来处理是编程的重要技能。

之后，将大幅提高编程技术，使数据处理的过程更加顺畅。

以

No.2

上图为例，将表的内容保存为数组值，通过过程代码对比判断成绩，最终得到成绩水平的判定。

也就是说，根据成绩的多寡决定等级区间。

同样的判断往往也适用于不同的表。

判断某销售表中某人或某类商品的销售量时，在某一区间进行爆款判断，销售量小于某一值时，该商品应退换。

同类型的数据表在数组中处理后效果良好。

要保存

No.3

表的数组，请使用上图中的属性CurrentArray。 此属性是范围对象的属性。

功能是将表的内容放回数组中。

例如：

dim网络

新区域=this workbook .活动图表.范围(a 1: a 10 ) .当前区域

使用上述代码，创建了包含数据表的A1:A10的数据内容的数组NewArr。

当然，vba并不是那样说明，但是可以那样理解。

No.4

实际将表转换为数组。 将Range对象直接代入数组即可。 也就是说，将表单元格直接代入数组。

以下示例：

dim rsas范围

setRS=s.range(b2:b5) )。

Dim ar

ar=rs

执行mgboxubound(ar )时，ar会变成包含B2:B5储存格值的阵列。

ar (1，1 ) )。

ar (2，1 ) ) )。

ar (3，1 ) )。

ar (4，1 ) )。

ar (5，1 ) )。

注意：

这个数组不是一维数组，而是二维数组。

要访问数组的第一个值，可以通过ar (1，1 )进行访问，最后一个值可以通过ar ) 4，1 )进行访问。

No.5

上的图是代码示例，在这个例子的所有代码中，实际的应用必须对应表进行。

让我们来看看代码的具体内容。

私有子获取dengji (

dim s as工作表

set s=this工作簿.活动图表

直连存储范围

setr=s.range('B2' ) () ) () ) ) ) ) ) ) )到) ) )中的一个示例。

DIM Arr MA AS变体

ArrMa=r.CurrentRegion '数组赋值

DIM UI AS长，Li AS长，I AS长，JAS长，XAS长

li=r.CurrentRegion.Rows.Count '行数

ui=r.current region.columns.count '列数

x=r.CurrentRegion.Count '数组的总数

DIM DJ AS变体

DJ=Array (“优秀”、“优良”、“不合格”) )

For i=1 To li '循环线

For j=1 To ui '循环列

ifj=5andVBA.Len(arrma(I，j ) )0 Then条件判断第5列

ifVBA.isnumeric(arrma(I，j ) )和Arr MA (I，j )=80 Then s.Cells(i，j 1 ).value=DJ(0) ) )

IFVBA.isnumeric(arrma(I，j ) )和Arr MA (I ) I，j )=60和Arr MA (I ) I，j )=79隧道(I ) I，j 1).Valls

ifVBA.isnumeric(arrma(I，J ) )和Arr MA (I，J )=59 Then s.Cells(i，j 1 ).Value=DJ(2) )。

终点国际机场

下一个j

下一个I

end sub APP的数组编码可以大大提高程序的执行效率。 当然，如果是初级程序员的话，数组的学习会有不少困难。

首先应用全面学习序列概念。

接下来，为了验证数组的理解，我们将着手编辑一些小的程序代码。

任何编程语言都适用于数组。 通过排列的学习，我们引出另一个学习内容。

字典。

没错，词典是整个编程中比较独特的类型。

由于其特殊性，在应用过程中也相当出色。

必须学习。

欢迎关注、收藏和转发