定义⼀个json数组并赋值_如何把⼀个固定数组的值传递给另
外⼀个数组
⼤家好,今⽇我们继续讲解VBA数组与字典解决⽅案,今⽇讲解的是第34讲:数组的传递。在应⽤数组的时候,我们往往需要要把数组的值由⼀个数组传递给另外⼀个数组,就如同变量的传递⼀样:
A=B ’把B值赋给A
C=A ’把A值赋给C
如上例,就完成了把值的传递的过程,分别把B的值传递给了A;把A的值传递了B,那么数组是否也可以呢?我们看下⾯的数组传递:
下⾯看我给出的代码:
Sub MyNZsz_34() '第34讲 如何把⼀个固定数组的值传递给另外⼀个数组
'直接赋值是不对的
Sheets("34").Select
Dim arr1(1) As Integer '定义⼀个⼀维固定数组arr1(1)
Dim arr2(1) As Integer '定义⼀个⼀维固定数组arr2(1)
arr1(0) = 1 '给arr1(1) 的数组元素0赋值为1
arr1(1) = 2 '给arr1(1) 的数组元素0赋值为2
arr2 = arr1 '讲数组1传递给数组2
MsgBox (arr2(1)) '提⽰数组2的元素1的值
End Sub
上述代码的过程要完成的是⾸先定义两个⼀维数组arr1(1)和 arr2(1);然后先给其中的⼀个数组arr1(1)赋值,这个数组共⽤两个元素分别赋值为1,2;然后我们⽤普通变量赋值的⽅法把数组arr1(1)赋值给arr2(1);最后提⽰数组2的元素1的值,那么是否会弹出对话框提⽰为1呢?
我们看看代码的截图和代码的运⾏:
1 代码截图
2 运⾏截图:
这个时候会提⽰我们不能这样给数组赋值。由此我们可以看出:对于给定的2 个静态数组不能相互赋值,否则将出现编译错误:不能给数组赋值。
那么要如何完成数组的值由⼀个数组传递给另外⼀个数组呢?常⽤的⽅法:①将静态数组赋值给动态数组②将静态数组赋值给⼀个变体变量③再有就是循环的⽅法。对于循环的⽅案⽐较简单,不再多说,这⾥着重讲解前两个⽅法。
对于动态数组我们在之前的讲解中已经讲了很多了,对于变量体⼤家要加强理解:数组可以⽤Variant 变体变量获取⼀组单元格的值,公式等,当不包括单元格地址。⼤家要理解Variant 变体变量的意义,当使⽤数组的这种赋值⽅法的时候⼀定要定义这个变量为Variant 变体变量。
对于上⾯给出的代码,我下⾯修正:
Sub MyNZsz_34_1() '第34讲 如何把⼀个固定数组的值传递给另外⼀个数组
'直接赋值是不对的
Sheets("34").Select
Dim arr1(1) As Integer '定义⼀个⼀维固定数组arr1(1)
Dim arr3() As Integer
Dim arr4 As Variant
arr1(0) = 1 '给arr1(1) 的数组元素0赋值为1
arr1(1) = 2 '给arr1(1) 的数组元素0赋值为2
ReDim arr3(1)
arr3 = arr1 '讲数组1传递给数组2
arr4 = arr1
MsgBox "动态数组赋值后:" & arr3(1) '提⽰数组3的元素1的值MsgBox "Variant赋值后:" & arr4(1) '提⽰数组4的元素1的值End Sub数组全部赋值为1
下⾯看代码的截图;
代码的运⾏:
今⽇内容回向:
1 数组的值如何传递?
2 如何理解变体变量?

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。