VBA数组是存储数据的有用对象

VBA语言専攻 2022-09-21

71

【分享成果，随喜正能量】面对伤害，不要急着说服自己去原谅别人，先弄清楚自心感到受伤的脆弱点。正视自己的这一点薄弱远比原谅别人更重要。万事万物，皆由心造，好运能否到来，取决于自己的心。。

《VBA经典应用69例》（10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用11内容：VBA数组是存储数据的有用对象

应用11 利用VBA判断数组是否为空

我们这个专题的内容是有关数组的知识，数组一直是VBA知识点中一个比较关键的所在。我们在学习过程中一定要了解什么是数组，数组在具体程序应用过程中的意义是什么？当相同数据类型的项的列表或集合存储在连续的内存位置时，我们称之为数组；数组是软件开发中广泛用于存储数据的有用对象。

1 数组是存储数据的有用对象

如何理解上述引言的理论呢？我们可以从下面的一个应用中得到体会。例如：在程序中用户会用到周一、周二、直到周日这七个日期值，一般情况下，我们可以建立七个变量存储这七个值，但确实这种方案是费时费力的。由于这七个值是具有相同类型的数据，我们可以把这七个值放在数组中。如下代码：

Sub mynzA()

'以单个空格分隔的字符串中的日期列表

days_string = "sunday monday tuesday wednesday thursday friday saturday"

'使用分隔符将字符串拆分为数组

myWeekday = Split(days_string, " ")

'在即时窗口显示数组值

For i = LBound(myWeekday) To UBound(myWeekday)

Debug.Print myWeekday(i)

Next

End Sub

Sub ClearImmediate() '清除即时窗口

Debug.Print Now

Application.SendKeys "^g^a{DEL}", True

End Sub

代码截图：

代码讲解：

1）上述代码在即时窗口中将数组的值打印出来。

2） Split(days_string, " ") 是利用Split函数将字符串分隔成数组。

程序运行结果：

(待续)

本讲内容参考程序文件：应用011.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】福，不取决于物质，而是心态。快乐，不取决于成败，来自知足。。

vba vba数组对象数组对象存储数组

文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论