大家好，今日繼續和大家分享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真的非常實用，希望大家掌握這個工具，利用這個工具，讓自己在工作中輕松，高效，快樂。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!