简单网站建设课程,室内设计师联盟论坛,现在做网站都是怎么做的,程序开发工程师《VBA数组与字典方案》教程#xff08;10144533#xff09;是我推出的第三套教程#xff0c;目前已经是第二版修订了。这套教程定位于中级#xff0c;字典是VBA的精华#xff0c;我要求学员必学。7.1.3.9教程和手册掌握后#xff0c;可以解决大多数工作中遇到的实际问题。…《VBA数组与字典方案》教程10144533是我推出的第三套教程目前已经是第二版修订了。这套教程定位于中级字典是VBA的精华我要求学员必学。7.1.3.9教程和手册掌握后可以解决大多数工作中遇到的实际问题。
这套字典教程共两册一共八十四讲今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是VBA字典与数组第二十讲:如何在代码运行时创建数组 【分享成果随喜正能量】我们于日用必需的东西以外必须还有一点无用的游戏与享乐
生活才觉得有意思。。
第二十讲 如何在代码运行时创建数组
大家好我们今日继续讲解VBA数组与字典解决方案第20讲内容如何在代码运行时创建数组。数组大家并不陌生了在之前我讲过很多今日讲的是在VBA中代码运行的时候如何创建数组为了实现这个目的我们需要梳理一下下面的几个知识点
1 创建数组的函数
Array函数。这个函数返回一个包含数组的Variant
语法Array(arglist)
Arglist参数是一个用逗号隔开的值表这些值用于给Variant所包含的数组的各元素赋值。如果不提供Arglist参数则创建一个长度为 0 的数组。使用Array函数可以在代码运行时创建数组并把一系列数据保存在数组中
2 LBound函数和UBound函数
这两个函数取得数组的最小和最大下标
1LBound函数返回一个Long型数据其值为指定数组维可用的最小下标
语法如下LBound(arrayname[, dimension])
2UBound函数返回一个Long型数据其值为指定数组维可用的最大下标
语法如下UBound(arrayname[, dimension])
参数arrayname是必须的数组变量的名称。
参数dimension是可选的指定返回哪一维的下界1表示第一维2表示第二维如此类推。默认为1。
特别注意点UBound函数与LBound函数一起使用可以用来确定数组的大小。如要想知道数组arr的上界是多少则UBound(arr)要想知道数组arr的下界是多少则LBound(arr)。想知道数组有多少个元素则UBound(arr)- LBound(arr)1
3 Option Base数组下界的声明
Option Base是用来声明数组下标缺省下界的函数在模块级别中使用。由于下界的缺省设置是 0因此无需使用 Option Base 语句。如果使用该语句则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base且必须位于带维数的数组声明之前。注意 Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过如果没有使用 To 子句显式地指定下界则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0Option Base 对 Array 或 ParamArray 不起作用。Option Base 语句只影响位于包含该语句的模块中的数组下界。
4 代码运行时创建数组的实例
我们来看下面的示例代码
Option Base 1
Sub MyNZsz_3() 第20讲 Dim arr As Variant Dim i As Integer arr Array(A111, A222, A333, A444, A555, A666, A777, A888) For i LBound(arr) To UBound(arr) Sheets(20).Cells(i, 1) arr(i) Next
End Sub
代码窗口 代码解析
1 MyNZsz_3过程使用Array函数创建一个数组用来保存数据并将其写入到工作表的单元格区域。
2第1行代码使用Option Base语句声明数组下标的缺省下界为1数组下标的缺省下界默认为0。
3第5行代码使用Array函数创建数组用来保存数据。
4第6行代码使用LBound函数和UBound函数取得数组的最小和最大下标。
5第7行代码确定数组的大小后使用For...Next语句遍历数组元素并将数组元素依次写入到工作表的A列单元格中。
我们来看看代码运行后的截图 今日内容回向
1 创建数组用什么函数Array函数
2 数组的上下界是如何取得的? 我多年的VBA实践经验全部浓缩在以下教程中
