今天我们聊聊在过程中参数的两种传递方式。按值传递：ByVal
将参数值而不是将地址传递给过程的方式，这就使在过程中访问的只是变量的副本。
在过程中修改参数值的时候，其实修改的只是变量的副本的值，从而不会改变变量的真正值。
这里说到的地址，真正值，复本，可能把大家给绕晕了，看个例子。
Sub Main()
Dim a As Long
Dim b As Long
a= 1: b = 2
MsgBox prompt:="a=" & a & ",b=" & b,Title:="调用过程前"
Call ByVal1(a, b)
MsgBox prompt:="a=" & a & ",b=" & b,Title:="调用过程后"
End Sub
Sub ByVal1(ByVal a As Long, ByVal b AsLong)
MsgBox prompt:="修改a的值=100，b的值等于100", Title:="按值传递"
a= 100
b= 100
End Sub
在sub过程Main里声明了a和b两个长整型变量，a赋值1，b赋值2。
在调用Sub过程ByVal1之前，先通过消息框显示a和b的当前值。
在sub过程ByVal1的声明里，通过使用ByVal 关键字，两个参数都是按值传递。
在ByVal1过程内修改参数的变量值前先照例通过消息框显示参数变量的值。
修改完后参数变量的值后，返回到Main过程里继续执行CALL下面的语句。
这里的难点，就在于理解按值传递时，实际上传递的只是一个复本。
理论是枯燥的，但是通过代码，大家兴许可以明白些。
在被调用的过程中，参数变量的值该过程中修改后，在过程结束返回后，相关的变量值没有改变。
按地址传递：ByRef
将参数地址而不是将值传递给过程的方式，在过程中访问到实际的变量。
所以在过程中对参数变量的赋值，都会变量的真正值。
除非另作说明，否则按地址传递参数。
我们看个例子。
Sub Main()
Dim a As Long
Dim b As Long
a= 1: b = 2
MsgBox prompt:="a=" & a & ",b=" & b,Title:="调用过程前"
Call ByRef1(a, b)
MsgBox prompt:="a=" & a & ",b=" & b,Title:="调用过程后"
End Sub
Sub ByRef1(ByRef a As Long, ByRef b AsLong)
MsgBox prompt:="修改a的值=100，b的值等于100", Title:="按地址传递"
a= 100
b= 100
End Sub
由于不做说明的情况下，均是按址传递，所以上面的声明Sub ByRef1(ByRef a As Long, ByRef b As Long)也可以改成Sub ByRef1(aAs Long, b As Long)。
另外，在按址传递参数的方式下，传递一个常量值作为参数，即使修改了参数变量的值，也是不会保留的。
例如 Call ByRef1(１,２)
额外知识点：
A．用户定义类型不能以ByVal的方式传递。
B．数组中个别的元素可以按ByVal传递，但整个数组必须以ByRef传递。
可以传递括号中的数组参数，或是将它放在 Variant 之中，再将此 Variant 传递至ByVal 参数。
示例：
Sub test()
Dim a As Variant
Dim b()
b= Range("a1:c3").Value
a= b
Call arr(a)
End Sub
Sub arr(ByVal a)
a(1, 1) = 1
a(2, 1) = "a"
a(3, 1) = True
End Sub
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
