VBA SUB和Function传值案例

当我们在 VBA 中编写 SUB 或 Function 时，我们可以传递参数来实现变量之间的值传递。下面是一个简单的案例：

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

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

在上面的代码中，我们定义了一个 Main 的 SUB，并且定义了两个整型变量 num1 和 num2，然后将 num1 和 num2 的值分别设置为 10 和 20。在 Main 中，我们调用了 AddNumbers 函数，并且将 num1 和 num2 作为参数传递给该函数。AddNumbers 函数是一个带有两个参数的 SUB，其中第一个参数 x 是一个 ByVal 参数，第二个参数 y 是一个 ByRef 参数。在函数中，我们将 y 的值加上了 x 的值。由于 y 是一个 ByRef 参数，所以在函数中更改 y 的值后，它的值也会在 Main 中被更改。因此，当我们在 Main 中输出 num1 和 num2 的值时，num1 的值仍为 10，而 num2 的值已经变为 30。

相关问题

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。

VBA函数来回传值案例

以下是一个简单的 VBA 函数示例，它接收两个输入参数并返回它们的和：

Function addNumbers(num1 As Integer, num2 As Integer) As Integer
    addNumbers = num1 + num2
End Function

在此示例中，`addNumbers` 是函数的名称，`num1` 和 `num2` 是输入参数。函数使用 `As Integer` 来指定返回值的类型。`addNumbers` 函数将两个输入参数相加并将结果返回给函数调用者。

要将此函数保存到 VBA 模块中，可以按照以下步骤操作：

1. 打开 Excel，并打开 Visual Basic Editor（按下 Alt + F11）。
2. 在“插入”菜单上单击“模块”。
3. 在新模块中输入上面的函数代码。
4. 在 Excel 工作表中，使用以下公式调用函数：`=addNumbers(2, 3)`。这将返回 `5`。

通过此示例，您可以了解如何在 VBA 中编写一个简单的函数来回传值。