Question

VBA中ByVal和 ByRef有什么区别?

Answer 1

ByRef：

按地址传递(ByRef），是指主程序直接将数据交给子过程（过程中定义传递方式），在过程中修改、调试、返回给主程序，主程序输出的是修改后的值。

例如：如果我在参数中设为ByRef，那么ByRef的这个变量我可以改变它的值

ByVal：

按值传递（Byval），是指将主程序的值（副本一份）给子过程，过程对副本操作，主程序输出的仍是原值。若想输出值传递后的值，可在子过程中设置输出。

例如：如果我在参数中设为ByRef，那么ByRef的这个变量我不可以改变它的值，改变的只是它的副本，没有任何意义

下面是一个实例：

Sub Test(ByRef a As Integer, ByVal b As Integer) 
'注意，此处a是按地址传递，b是按值传递
a = 3
b = 4
End Sub

'这里是主程序
Sub Main()
Dim a As Integer
Dim b As Integer
a = 1
b = 2
Test(a, b)
MsgBox ("a=" & a & ";b=" & b)
End Sub

以上代码运行之后的结果是

a=3;b=2

这说明，ByRef 可以改变传入的值，而ByVal不行

Answer 2

ByVal表示该参数按值传递。 ByRef表示该参数按地址传递。ByRef 是 Visual Basic 的缺省选项。 按值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。 按地址：一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值。除非另作说明，否则按地址传递参数。 简明一点说：以ByVal传递给过程，过程里有代码对这个变量做了更改，在过程结束返回后这个变量还是调用过程前的值，不会变化。以ByRef传递给过 程，过程里有代码对这个变量做了更改，在过程结束返回后这个变量的值就是过程里改成的那个值。 下面举个例子： （1）ByVal示例 Sub TmpByVal() Dim a As Stringa = "2"Call FunByVal(a) MsgBox CStr(a)End SubFunction FunByVal(ByVal a)a = "3"End Function （2）ByRef示例 Sub TmpByRef() Dim a As Stringa = "2"Call FunByRef(a) 总结：vb(vba)中，除非你有足够的理由和有了足够的准备接受传址得来的值，都要使用ByVal来传值，ByRef意味梦魇的开始！但不要因为怕 ByRef就不用，而是要注意出现梦魇时要想到那可能是使用ByRef的结果。