大家好,我们今日继续讲解VBA代码解决方案的第125讲内容:关键字ByVal和ByRef的作用。在上一节中我们讲到了形式参数和实际参数的定义,同时讲到了从实际参数传递给形式参数的过程中按值传递和按地址传递的不同。为了更好的说明按值传递和按地址传递的区别,我们把上节的程序做一些修正:在函数声明行去掉参数a前面的关键字ByVal,结果会怎样呢?代码如下:
Sub MynzNumbers_1()
Dim a As Integer, b As Integer, c As Integer
a = 10
b = 20
c = 30
MsgBox MyAverage_1(a, b, c) & " " & a & " " & b & " " & c
End Sub
Function MyAverage_1(a, ByVal b, ByVal c)
a = a + 60
MyAverage_1 = (a + b + c) / 3
End Function
大家想想这时的结果该是怎么样呢?如下面的截图:
函数的结果仍然相同,但是函数MsgBox显示的变量a的内容现在是70了。说明这时就改变了储存在变量a里的原始数值。
上面的过程如何理解呢?
① 每个要传递给函数过程(或子程序)的变量,都可能在接收时改变数值,是否需要保护变量的原始数值是非常重要的。
② VBA有两个关键字,提供是否认可改变变量内容的允许——ByRef和 ByVal,但要注意VBA默认地按地址(关键字ByRef)给函数过程(或子程序)传递信息,引用函数被调用时,函数参数会按地址传递数据。因此,如果函数改变了参数值,原始的数值就被改变了。
③ 在上面的例子中,函数MyAverage_1声明参数a的前面去掉了关键字ByVal时,你就会得到按地址传递参数的结果。如果你想要函数过程 改变原始数值,你不必专门在参数前加关键字ByRef,因为,变量数值的传递默认就是ByRef。
本节的最后我们再谈一下按值传递的过程是如何进行的,当你在参数名称前使用关键字ByVal时,这意味着VBA复制一份原始数据,然后将复制 值传递给函数,如果函数改变了参数的数值的话,原始数据依然不会变——只有复制值变化。这就是为什么函数MyAverage改变了变量a的数值,而它的原始值还保持不变了。
如果你对上述过程还是不清楚,我再做一个更加形象的说明:
①按址传递时,实质上实际参数是把指针(地址)传递给形式参数了,这时指针指向的地址的值即是实际参数,此时形式参数与实际参数分别有一个指针,但同时指向同一个地址。
②按数值递时,实质上实参是把复制后的数值传递给形参了,这个时候实际参数和形式参数具有不同的指针,形式参数的指针指向的地址是复制后数值的地址指针,此时实际参数的指针没有发生改变。
今日内容回向:
1 按值传递和按地址传递的关键字是什么?
2 如何理解两种传递过程中的指针不同?