大家好，疫情施虐，國外各地更有爆發的跡象，但無論怎樣，我們一定要堅信，疫情終將會過去，曙光一定會到來。後疫情時代將會是一個全新的世界，很多理念都將被打破，大多數人不會再享受體制內的保護，對於我們每個人，要儘可能多的學習有用的知識，為自己充電。在今後更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。為後疫情時代做的必要準備。
今日繼續和大家分享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讀取文件
Sub Mynz()
Dim myrLine As String
Dim i As Integer ' line number
i = 1
Open "E:\\nz\\work\\文章\\人員表單.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, myrLine
MsgBox "Line " & i & ": " _
& Chr(13) & Chr(13) & myrLine
i = i + 1
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真的非常實用，希望大家掌握這個工具，利用這個工具，讓自己在工作中輕鬆，高效，快樂。學習有用的知識，讓健康的知識服務於大眾，不要想不勞而獲，更不要去偷奸取巧，踏踏實實，沉下心，提高自己，為後疫情時代做好知識的儲備。
閱讀更多 VBA專家 的文章
