【原创】VBA学习笔记（15）VBA的参数传递：ByVal 和 ByRef 的区别，VBA默认按byRef传递

1 参数传递时的 byVal 和 byRef 区别的简单总结

1.1 如果不写关键字， VBA默认按地址传递

• VBA默认按地址传递，是为了方便管理？

1.2  什么是参数的调用和回调？

目的：

• 主程序调用一些需要参数的子程序，为了给其他程序的主动传递变量，而调用其他程序（被调用程序），并获得回调后的参数
• 主程序需要调用其他子程序，有些子程序（被调用程序）需要参数就必须传递参数过去。而被调用程序设置的参数关键字不同，会造成不同的调用和回调效果。

参数调用和回调的方法

• 被调用的程序，可以设定2种传递方式，进而影响给主程序的回调值。
• 也就是会不会受影响，不由主程序决定！而是由 需参数的被调用的程序自身决定。

1.3 参数调用的两种方式

• byref ，被调用程序 按地址传递，传回主程序的参数，回调时会受影响。
• 按地址传递(ByRef），是指主程序直接将数据交给子过程（过程中定义传递方式），在过程中修改、调试、返回给主程序，主程序输出的是修改后的值。
• VBA默认的是 byref方式
• byval  ，被调用程序 按值传递，传回主程序的参数，回调时会不受改变。
• 按值传递（Byval），是指将主程序的值（副本一份）给子过程，过程对副本操作，主程序输出的仍是原值。若想输出值传递后的值，可在子过程中设置输出。

1.4 常量是不变化的

• 只有变量有这个问题，常量怎么传递本身也不改变

2 例子1，比较byVal 和 byRef的区别

运算函数1：运算函数，定义了自身函数需要的参数，是传值，还是传地址。

                    其他函数在调用时，需要按这种方式传递参数

运算函数2：主函数：因为调用运算函数时，会根据运算函数设定的参数属性，所以主函数的参数发生改变了。

Sub test1(ByRef a)
Debug.Print "test1被调用"
Debug.Print "a=" & a
a = a + 1
Debug.Print "a=" & a
Debug.Print "test1调用结束"
End Sub

Sub test2(ByVal b)
Debug.Print "test2被调用"
Debug.Print "b=" & b
b = b + 1
Debug.Print "b=" & b
Debug.Print "test2调用结束"
End Sub

Sub main1()
Debug.Print "mian1开始执行"
Debug.Print "x=" & x
Debug.Print "y=" & y
x = 3
y = 4
Debug.Print "x=" & x
Debug.Print "y=" & y
Debug.Print "开始调用"
test1 x
test2 y
Debug.Print "调用结束"
Debug.Print "x=" & x
Debug.Print "y=" & y
Debug.Print "mian1执行完毕"
End Sub

执行结果

mian1开始执行
x=
y=
x=3
y=4
开始调用
test1被调用
a=3
a=4
test1调用结束
test2被调用
b=4
b=5
test2调用结束
调用结束
x=4
y=4
mian1执行完毕

3 例子2，如果不带关键字，默认为byref

• 如果被调用函数的不带关键字，就默认为byref传递

Sub test1(a)
Debug.Print "test1被调用"
Debug.Print "a=" & a
a = a + 1
Debug.Print "a=" & a
Debug.Print "test1调用结束"
End Sub
 
Sub test2(b)
Debug.Print "test2被调用"
Debug.Print "b=" & b
b = b + 1
Debug.Print "b=" & b
Debug.Print "test2调用结束"
End Sub
 
Sub main1()
Debug.Print "mian1开始执行"
Debug.Print "x=" & x
Debug.Print "y=" & y
x = 3
y = 4
Debug.Print "x=" & x
Debug.Print "y=" & y
Debug.Print "开始调用"
test1 x
test2 y
Debug.Print "调用结束"
Debug.Print "x=" & x
Debug.Print "y=" & y
Debug.Print "mian1执行完毕"
End Sub

mian1开始执行
x=
y=
x=3
y=4
开始调用
test1被调用
a=3
a=4
test1调用结束
test2被调用
b=4
b=5
test2调用结束
调用结束
x=4
y=5
mian1执行完毕

4 例子3，继续试验

Sub test1(ByRef a)   '参数默认是按ref调用
Debug.Print "test1被调用"
Debug.Print "a=" & a
a = 1
Debug.Print "a=" & a
End Sub



Sub test2(ByVal b)
Debug.Print "test2被调用"
Debug.Print "b=" & b
b = 2
Debug.Print "b=" & b

End Sub

Sub main1()
Debug.Print "执行main1"
Debug.Print "x=" & x
Debug.Print "y=" & y
x = 3
y = 4
Debug.Print "x=" & x
Debug.Print "y=" & y
Debug.Print "开始调用"
test1 x
test2 y
Debug.Print "调用结束"
Debug.Print "x=" & x
Debug.Print "y=" & y

End Sub

执行结果可以看出

main1函数的x   会因为调用了其他运算函数，这个运算函数要求传地址，之后运算函数改变了a=x,从而x也被改变

而main1函数y参数，因为调用的函数是只需要按值传递，只传了一个副本给运算函数，自身y不会变化

执行main1
x=
y=
x=3
y=4
开始调用
test1被调用
a=3
a=1
test2被调用
b=4
b=2
调用结束
x=1
y=4