大家好，今日我們繼續(xù)講解VBA數(shù)組與字典解決方案，今日講解的是第34講：數(shù)組的傳遞。在應(yīng)用數(shù)組的時(shí)候，我們往往需要要把數(shù)組的值由一個(gè)數(shù)組傳遞給另外一個(gè)數(shù)組，就如同變量的傳遞一樣：

A=B '把B值賦給A

C=A '把A值賦給C

如上例，就完成了把值的傳遞的過(guò)程，分別把B的值傳遞給了A;把A的值傳遞了B,那么數(shù)組是否也可以呢？我們看下面的數(shù)組傳遞：

下面看我給出的代碼：

Sub MyNZsz_34() '第34講 如何把一個(gè)固定數(shù)組的值傳遞給另外一個(gè)數(shù)組

'直接賦值是不對(duì)的

Sheets("34").Select

Dim arr1(1) As Integer '定義一個(gè)一維固定數(shù)組arr1(1)

Dim arr2(1) As Integer '定義一個(gè)一維固定數(shù)組arr2(1)

arr1(0) = 1 '給arr1(1) 的數(shù)組元素0賦值為1

arr1(1) = 2 '給arr1(1) 的數(shù)組元素0賦值為2

arr2 = arr1 '講數(shù)組1傳遞給數(shù)組2

MsgBox (arr2(1)) '提示數(shù)組2的元素1的值

End Sub

上述代碼的過(guò)程要完成的是首先定義兩個(gè)一維數(shù)組arr1(1)和 arr2(1)；然后先給其中的一個(gè)數(shù)組arr1(1)賦值，這個(gè)數(shù)組共用兩個(gè)元素分別賦值為1,2；然后我們用普通變量賦值的方法把數(shù)組arr1(1)賦值給arr2(1)；最后提示數(shù)組2的元素1的值，那么是否會(huì)彈出對(duì)話框提示為1呢？

我們看看代碼的截圖和代碼的運(yùn)行：

1 代碼截圖

2 運(yùn)行截圖：

這個(gè)時(shí)候會(huì)提示我們不能這樣給數(shù)組賦值。由此我們可以看出：對(duì)于給定的2 個(gè)靜態(tài)數(shù)組不能相互賦值，否則將出現(xiàn)編譯錯(cuò)誤：不能給數(shù)組賦值。

那么要如何完成數(shù)組的值由一個(gè)數(shù)組傳遞給另外一個(gè)數(shù)組呢？常用的方法：①將靜態(tài)數(shù)組賦值給動(dòng)態(tài)數(shù)組②將靜態(tài)數(shù)組賦值給一個(gè)變體變量③再有就是循環(huán)的方法。對(duì)于循環(huán)的方案比較簡(jiǎn)單，不再多說(shuō)，這里著重講解前兩個(gè)方法。

對(duì)于動(dòng)態(tài)數(shù)組我們?cè)谥暗闹v解中已經(jīng)講了很多了，對(duì)于變量體大家要加強(qiáng)理解：數(shù)組可以用Variant 變體變量獲取一組單元格的值，公式等，當(dāng)不包括單元格地址。大家要理解Variant 變體變量的意義，當(dāng)使用數(shù)組的這種賦值方法的時(shí)候一定要定義這個(gè)變量為Variant 變體變量。

對(duì)于上面給出的代碼，我下面修正：

Sub MyNZsz_34_1() '第34講 如何把一個(gè)固定數(shù)組的值傳遞給另外一個(gè)數(shù)組

'直接賦值是不對(duì)的

Sheets("34").Select

Dim arr1(1) As Integer '定義一個(gè)一維固定數(shù)組arr1(1)

Dim arr3() As Integer

Dim arr4 As Variant

arr1(0) = 1 '給arr1(1) 的數(shù)組元素0賦值為1

arr1(1) = 2 '給arr1(1) 的數(shù)組元素0賦值為2

ReDim arr3(1)

arr3 = arr1 '講數(shù)組1傳遞給數(shù)組2

arr4 = arr1

MsgBox "動(dòng)態(tài)數(shù)組賦值后：" & arr3(1) '提示數(shù)組3的元素1的值

MsgBox "Variant賦值后：" & arr4(1) '提示數(shù)組4的元素1的值

End Sub

下面看代碼的截圖;

代碼的運(yùn)行：

今日內(nèi)容回向：

1 數(shù)組的值如何傳遞？

2 如何理解變體變量？

總結(jié)

以上是生活随笔為你收集整理的数组字典_VBA数组与字典解决方案第34讲：数组的传递的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。