vba中如何提取數組的列數（VBA中利用數組上下標快速求出數組元素個數的方法）

2023-09-20 22:22:14 3

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