大家好，疫情施虐，国外各地更有爆发的迹象，但无论怎样 ， 我们一定要坚信，疫情终将会过去，曙光一定会到来 。后疫情时代将会是一个全新的世界 ， 很多理念都将被打破，大多数人不会再享受体制内的保护，对于我们每个人 ， 要尽可能多的学习有用的知识，为自己充电 。在今后更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备 。为后疫情时代做的必要准备 。
今日继续和大家分享VBA编程中常用的常用"积木"过程代码 。这些内容大多是我的经验和记录，来源于我多年的经验 。今日分享的是NO.238-239 ， 内容是：
NO. 238：利用Offset选择某个单元格
NO.239：VBA打开顺序文件用Line Input读取文件
VBA过程代码238：利用Offset选择某个单元格
Sub Mynz()
Range("A1").Offset(1, 3).Select 选择单元格A1下面一行和右边三列的单元格
Range("D15").Offset(-2, -1).Select 选择单元格D15上面两行和左边一列的单元格
End Sub
代码解析：Mynz过程中第一行代码使用Offset选择单元格A1下面一行和右边三列的单元格 ， 第二行代码选择单元格D15上面两行和左边一列的单元格 。Offset属性使用两个自变量来获得新单元格区域的地址 。第一个自变量表示行偏移，第二个自变量则表示列偏移 。
VBA过程代码239：VBA打开顺序文件用Line Input读取文件
【利用VBA打开顺序文件，并读取】
Sub Mynz()
Dim myrLine As String
Dim i As Integer ' line number
i = 1
Open "E:nzwork文章人员表单.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, myrLine
MsgBox "Line " & i & ": " _
& Chr(13) & Chr(13) & myrLine
i = i1
Loop
MsgBox i & " lines ok"
Close #1
End Sub
代码解析：Mynz过程将文件人员表单.txt在模式Input里作为文件号码1打开 。Do…While循环告诉VBA一直执行循环里面的语句，直到到达文件结尾 。文件的结尾由函数EOF的结果决定 。Line Input # 语句将每行内容储存于变量myrLine里 ， 然后 ， 信息框显示行号和它的内容 。
VBA是利用OFFICE实现自己小型办公自动化的有效手段 ， 我根据自己20多年的VBA实际利用经验，现在推出了四部VBA经验学习资料，是我"积木编程"思想的体现 。
第一：VBA代码解决方案 ， 是VBA中各个知识点的讲解，覆盖了绝大多数的知识点；
第二：VBA数据库解决方案 ， 是数据处理的专业利器，介绍利用ADO连接ACCDB,EXCEL 。
第三：VBA数组与字典解决方案 ， 讲解VBA中的数组和字典的利用 。
第四：VBA代码解决方案之视频 ， 是专门面向初学者的视频讲解，可以快速入门 ， 更快的掌握这门技能 。
目前正在写第五部教程：VBA中类的解读和利用，希望在年内陆续在各个平台和大家见面 。
VBA真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐 。学习有用的知识，让健康的知识服务于大众，不要想不劳而获，更不要去偷奸取巧，踏踏实实，沉下心，提高自己，为后疫情时代做好知识的储备 。