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

创作时间:

作者:

@小白创作中心

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

引用

CSDN

https://m.blog.csdn.net/yongshiqq/article/details/137816623

在VBA编程中，理解参数传递方式对于编写高效且正确的代码至关重要。本文将详细介绍ByRef（按地址传递）和ByVal（按值传递）两种参数传递方式的区别，并通过具体代码示例帮助读者更好地掌握这一知识点。

在VBA中，函数或子程序的参数传递主要有两种方式：ByRef和ByVal。这两种方式的主要区别在于参数传递时数据的处理方式不同。

ByRef（按地址传递）

ByRef是VBA默认的参数传递方式。当使用ByRef传递参数时，主程序会将变量的内存地址传递给被调用的子程序。这意味着子程序可以直接访问并修改主程序中的变量值。因此，当子程序结束返回时，主程序中的变量值可能会发生变化。

示例代码：

Sub TestByRef()
    Dim x As Integer
    x = 1
    Call ModifyValueByRef(x)
    MsgBox "x=" & x
End Sub

Sub ModifyValueByRef(ByRef val As Integer)
    val = val + 1
End Sub

在这个例子中，TestByRef子程序调用了ModifyValueByRef子程序，并将变量x通过ByRef方式传递。ModifyValueByRef子程序修改了val的值，因此TestByRef子程序中的x值也会随之改变。

ByVal（按值传递）

ByVal传递方式则不同。当使用ByVal传递参数时，主程序会将变量的值复制一份传递给被调用的子程序。这意味着子程序只能访问变量值的副本，而不能修改主程序中的原始变量值。因此，当子程序结束返回时，主程序中的变量值不会发生变化。

示例代码：

Sub TestByVal()
    Dim y As Integer
    y = 1
    Call ModifyValueByVal(y)
    MsgBox "y=" & y
End Sub

Sub ModifyValueByVal(ByVal val As Integer)
    val = val + 1
End Sub

在这个例子中，TestByVal子程序调用了ModifyValueByVal子程序，并将变量y通过ByVal方式传递。ModifyValueByVal子程序修改了val的值，但TestByVal子程序中的y值不会发生变化。