byref和byval：一文读懂按地址传递(默认)和按值传递——vba

yngsqq2024-04-16 11:39

在vba中，经常用地调用子程序，参数传递分为：

byref ，被调用程序按地址传递，传回主程序的参数，回调时会受影响。

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

VBA默认的是 byref方式

byval ，被调用程序按值传递，传回主程序的参数，回调时会不受改变。

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

代码如下：

Sub test1(ByRef a)
a = a + 1
End Sub
 
Sub test2(ByVal b)
b = b + 1
End Sub
 
Sub main1()
'yngqq@2024年4月16日10:46:28
x = 1
y = 1
test1 x
test2 y
MsgBox "x=1,  y=1,调用子程序后：" & vbCr & "x=" & x & "    y=" & y
End Sub

运行结果：

由此可见，byref会修改主程序变量值，而byval不会改变主程序变量值。