VBA SUB和Function来回传值案例

在 VBA 中，我们可以使用 SUB 和 Function 来实现变量值的来回传递。下面是一个简单的案例：

Sub Main()
    Dim num1 As Integer
    Dim num2 As Integer
    Dim result As Integer
    num1 = 10
    num2 = 20
    Call AddNumbers(num1, num2, result)
    Debug.Print result '输出30
End Sub

Sub AddNumbers(ByVal x As Integer, ByVal y As Integer, ByRef z As Integer)
    z = x + y
End Sub

在上面的代码中，我们定义了一个 Main 的 SUB，并且定义了三个整型变量 num1、num2 和 result，然后将 num1 和 num2 的值分别设置为 10 和 20。在 Main 中，我们调用了 AddNumbers 函数，并且将 num1 和 num2 作为参数传递给该函数，并将 result 作为 ByRef 参数传递。AddNumbers 函数是一个带有三个参数的 SUB，其中前两个参数 x 和 y 是 ByVal 参数，第三个参数 z 是一个 ByRef 参数。在函数中，我们将 x 和 y 的值相加，并将结果存储在 z 中。由于 z 是一个 ByRef 参数，所以我们可以在函数中更改 z 的值，并且该值会在 Main 中被保留。因此，当我们在 Main 中输出 result 的值时，该值为 30。