大家好 ， 后疫情时代一定会到来，各行各业，都将是一场战胜萧条的无声的战役 。无论怎样，我们一定要坚信，疫情终将会过去，曙光一定会到来 。后疫情时代将会是一个全新的世界，很多理念都将被打破，大多数人不会再享受体制内的保护，对于我们每个人，要尽可能多的学习有用的知识 ， 为自己充电 。在今后更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备 。为后疫情时代做的必要准备 。
今日继续和大家分享VBA编程中常用的常用"积木"过程代码 。这些内容大多是我的经验的记录，来源于我多年的经验 。今日分享的是NO.242-243，内容是：
NO. 242：VBA代码使用Shell函数打开记事本程序
VBA过程代码243：VBA数组的定义及创建
VBA过程代码242：VBA代码使用Shell函数打开记事本程序
Sub Mynz()
Shell "notepad.exe", vbMaximizedFocus
End Sub
代码解析：Mynz过程中使用Shell函数打开记事本 ， Shell函数是什么呢？它既不是工作表函数，也不是api函数 ， 它是vba自带的函数 。但是它却神通广大，能抵n个api函数，api是应用程序接口，shell就是应用程序和系统之间的桥梁 。它的用法很简单，就是执行一个可执行文件 。与开始菜单的运行功能一样 。
语法：Shell(pathname[,windowstyle])
VBA过程代码243：VBA数组的定义及创建
Sub Mynz()
Dim i As Integer, j As Integer
Dim arr(1 To 10, 1 To 2) As Integer '定义一个10*2的二维数组（10行，2列）
j = 1 '数组1 to 10的索引号
For i = 1 To 20 Step 2
arr(j, 1) = i '赋值
arr(j, 2) = i1 '赋值
j = j1 '索引号增加
Next
[a1:b65536].ClearContents '清除原有数据
[a1].Resize(10, 2) = arr '将数组赋值给A1单元格向下10行，向右2列的区域
【利用VBA代码如何打开任意程序的方法】End Sub
代码解析：
1 Dim arr(1 To 10, 1 To 2) As Integer 这里给出了数组的范围最小的是arr(1, 1)，最大的是
arr(10, 2)
2 [a1].Resize(10, 2) = arr 讲数组回填给工作表 。
VBA是利用OFFICE实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验 ， 现在推出了四部VBA经验学习资料，是我"积木编程"思想的体现 。
第一：VBA代码解决方案，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点；
第二：VBA数据库解决方案，是数据处理的专业利器 ， 介绍利用ADO连接ACCDB,EXCEL 。
第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用 。
第四：VBA代码解决方案之视频 ， 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能 。
目前正在写第五部教程：VBA中类的解读和利用，希望在年内陆续在各个平台和大家见面 。
VBA真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松 ， 高效，快乐 。学习有用的知识，让健康的知识服务于大众 ， 不要想不劳而获，更不要去偷奸取巧，踏踏实实 ， 沉下心，提高自己，为后疫情时代做好知识的储备 。