|
大家好，我們今日繼續(xù)講解VBA代碼解決方案的第111講內(nèi)容：VBA數(shù)組的深入講解，如何創(chuàng)建VBA數(shù)組及數(shù)組大小的判斷。 一、創(chuàng)建數(shù)組的必要方法： 1、使用Array創(chuàng)建數(shù)組，看以下代碼： Sub Mynz_sz1() Dim arr() arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) '將1到10十個自然數(shù)賦給數(shù)組arr [a1].Resize(1, 10) = arr '將數(shù)組的值輸入單元格，注意這里沒有用轉(zhuǎn)置函數(shù) End Sub 代碼窗口 運(yùn)行： 特別注意點(diǎn)1：使用Array創(chuàng)建的數(shù)組索引號默認(rèn)從0開始，當(dāng)然，如果已經(jīng)用'OPTION BASE 1'語句指定了的另當(dāng)別論。 特別注意點(diǎn)2：如果賦的值是文本，那需要用英文引號引起來，如： 代碼: arr = Array('張一', '徐一', '陳一', '王一') 2、使用Split創(chuàng)建數(shù)組 Split的作用是把一個文本，根據(jù)指定的分隔符，建立一個數(shù)組。感覺就有點(diǎn)像我們EXCEL中的基礎(chǔ)操作中的'分列'。不同的是'分列'操作是將一個單元格的文本按指定的分隔符分開，存放在同行的多個單元格里，而Split的作用是將一個文本（也可以是存放在單元格里的）按指定的分隔符分開，存放在一個數(shù)組變量里。 arr = Split('張一，徐一，陳一，王一，許一，張二，陳二，張三，徐二，張四', '，') 特別注意點(diǎn)3：用Split把文本轉(zhuǎn)換成數(shù)組，索引號總是從0開始。不管你是否使用了Option Base語句，這點(diǎn)和Array不同。 3、通過Range賦值創(chuàng)建數(shù)組 （1）循環(huán)給單元格賦值 比如想把A1:A100單元格的值給數(shù)組arr，則代碼為： Sub Mynz_sz2() Dim arr(1 To 29) For i = 1 To 29 arr(i) = Cells(i, 1) Next [d1].Resize(29, 1) = Application.WorksheetFunction.Transpose(arr) End Sub 代碼窗口： 運(yùn)行： (2)直接等于單元格區(qū)域。這個很簡單，直接數(shù)組名等于單元格區(qū)域就可以了。比如想把A1:A100單元格的值給數(shù)組arr，代碼還可以簡單寫為： 代碼: arr = [a1:a100] 二 數(shù)組大小的判斷方法：UBound和LBound函數(shù) 我們定義數(shù)組時，我們可以指定數(shù)組的起始索引號不為0，而為1或其他的任意數(shù)。比如Dim arr(5 to 6)定義的這個數(shù)組起始索引號為5,共有兩個元素。 那么，對于一個已經(jīng)定義了的數(shù)組，我們想知道它的最大索引號（上界）和最小索引號（下界）是多少，怎么辦呢？別慌，用UBound和LBound兩個函數(shù)就可以了。 如，要想知道數(shù)組arr的上界是多少，則：UBound(arr)；要想知道數(shù)組arr的下界是多少，則：LBound(arr)。想知道數(shù)組有多少個元素，則：UBound(arr)- LBound(arr)+1 如代碼: Sub Mynz_sz3() Dim arr(10 To 50) Dim brr(1 To 10, 1 To 100) MsgBox '第一個一維數(shù)組數(shù)組的上標(biāo)是：' & UBound(arr) & Chr(13) _ & '數(shù)組的下標(biāo)是：' & LBound(arr) & Chr(13) _ & '數(shù)組的元素個數(shù)是：' & UBound(arr) - LBound(arr) + 1 & Chr(13) _ & '第二個兩維數(shù)組第一維的上界是:' & UBound(brr, 1) & Chr(13) _ & '第二維的上界是:' & UBound(brr, 2) End Sub 運(yùn)行后： 今日內(nèi)容回向： 1 如何創(chuàng)建數(shù)組？ 2 數(shù)組的大小如何判斷 |
|
|
