关于 ByVal 与 ByRef 的区别分析总结

在 VBA 中，在声明函数或过程时，我们需要指定参数的传递方式，通常有两种方式：ByVal 和 ByRef。这两种方式的区别在于，ByVal 传递参数的值，而 ByRef 传递参数的引用地址。下面我们来详细讲解这两种方式的区别。

ByVal 的用法

在 VBA 中，ByVal 是指传递参数的值。也就是说，当我们在调用一个函数或过程时，函数或过程中的参数只是使用当前变量的值来执行代码块，而不会影响原变量。下面是一个示例代码：

Sub TestByVal(ByVal num As Integer)
    num = num + 1
    MsgBox "传入的参数值： " & num
End Sub

Sub Test()
    Dim i As Integer
    i = 10
    TestByVal i
    MsgBox "传入后的值： " & i
End Sub

在这个示例中，我们定义了一个 TestByVal 的 Sub 过程。在该过程中，我们传入了一个 ByVal 类型的变量 num。然后我们对 num 进行了加 1 操作，再使用消息框显示 num 的值。接着我们定义了另一个 Test 的 Sub 过程，其中定义了一个整形变量 i 并初始化为 10。接着我们调用了 TestByVal 过程并将 i 作为参数传递，最后我们使用消息框显示 i 的值。我们来看看这个程序的执行结果：

传入的参数值： 11
传入后的值： 10

从结果可以看出，通过 ByVal 传递参数时，如果函数或过程中修改了参数的值，那么这个修改不会影响原参数。因此当我们定义一个需要传递参数的函数或过程时，如果不想影响原变量的值，就可以使用 ByVal 传递参数。

ByRef 的用法

在 VBA 中，ByRef 是指传递参数引用地址。也就是说，当我们在调用一个函数或过程时，函数或过程中的参数直接使用原变量的地址来执行代码块，因此当我们在函数或过程中修改参数的值时，会直接影响原变量的值。下面是一个示例代码：

Sub TestByRef(ByRef num As Integer)
    num = num + 1
    MsgBox "传入的参数值： " & num
End Sub

Sub Test()
    Dim i As Integer
    i = 10
    TestByRef i
    MsgBox "传入后的值： " & i
End Sub

在这个示例中，我们定义了一个 TestByRef 的 Sub 过程。在该过程中，我们传入了一个 ByRef 类型的变量 num。然后我们对 num 进行了加 1 操作，再使用消息框显示 num 的值。接着我们定义了另一个 Test 的 Sub 过程，其中定义了一个整形变量 i 并初始化为 10。接着我们调用了 TestByRef 过程并将 i 作为参数传递，最后我们使用消息框显示 i 的值。我们来看看这个程序的执行结果：

传入的参数值： 11
传入后的值： 11

从结果可以看出，通过 ByRef 传递参数时，如果函数或过程中修改了参数的值，那么这个修改会直接影响原参数。因此当我们定义一个需要传递参数的函数或过程时，如果想要修改原变量的值，就可以使用 ByRef 传递参数。

总结

通过上面的示例代码，我们可以看到 ByVal 和 ByRef 有如下不同：

• 使用 ByVal 传递参数时，函数或过程中修改参数的值时，不会影响原变量；
• 使用 ByRef 传递参数时，函数或过程中修改参数的值时，会直接影响原变量。

这些差异将在不同情况下产生不同的结果，因此在使用 VBA 时，需要根据具体情况选择 ByVal 或 ByRef。