大家好，今日繼續和大家分享VBA編程中常用的常用"積木"過程代碼。這些內容大多是我的經驗和記錄，來源於我多年的經驗。今日分享的是NO.223-NO.224，內容是：
NO. 223：計算數組的上標下標及元素的個數值
NO. 224：數組函數JOIN的作用
VBA過程代碼223：計算數組的上標下標及元素的個數值
Sub Mynz ()
Dim arr(10 To 50)
Dim brr(1 To 10, 1 To 100)
MsgBox "第一個一維數組數組的上標是：" & UBound(arr) & Chr(13) _
& "數組的下標是：" & LBound(arr) & Chr(13) _
& "數組的元素個數是：" & UBound(arr) - LBound(arr) + 1 & Chr(13) _
& "第二個兩維數組第一維的上界是:" & UBound(brr, 1) & Chr(13) _
& "第二維的上界是:" & UBound(brr, 2)
End Sub
代碼解析：mynz過程將一維數組arr和二維數組brr的上下標計算出來，將一維數組的元素個數計算出來提供給用戶。上下標是通過Ubound函數及Lbound的函數來實現的。元素個數是： UBound(arr) - LBound(arr) + 1
VBA過程代碼224：數組函數JOIN的作用
Sub Mynz ()
Dim arr(1 To 10), i As Integer, txt As String
For i = 1 To 10 '給數組賦值
arr(i) = i
Next i
txt = Join(arr, ",") '將arr數組的元素連成字符串，用逗號作分隔符
MsgBox txt
End Sub
代碼解析：mynz過程利用Join函數將數組的值與指定字符連接，形成一個字符串。首先給數組arr進行賦值，賦值為1到10的自然數。然後利用Join函數將數組的值與指定字符","連接，連接後將最後的字符串賦值給txt,最後用MsgBox對話框顯示給用戶
VBA是利用OFFICE實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，總結了四部VBA學習資料，是我"積木編程"思想的體現。
第一：VBA代碼解決方案，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點；
第二：VBA數據庫解決方案，是數據處理的專業利器，介紹利用ADO連接ACCDB,EXCEL。
第三：VBA數組與字典解決方案，講解VBA中的數組和字典的利用。
第四：VBA代碼解決方案之視頻，是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。
VBA真的非常實用，希望大家掌握這個工具，利用這個工具，讓自己在工作中輕鬆，高效，快樂。
閱讀更多 VBA專家 的文章
