VBa如何自定义一个带参数的函数

在Visual Basic for Applications (VBA)中，自定义一个带参数的函数非常简单。以下是一个基本的例子，演示了如何创建一个接受两个整数参数并返回它们的和的函数。

```vb

Function AddTwoNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer

AddTwoNumbers = num1 + num2

End Function

Sub TestFunction()

Dim result As Integer

result = AddTwoNumbers(5, 3)

MsgBox "The sum is: " & result

End Sub

```

在这个例子中：

1. `AddTwoNumbers` 是自定义函数的名称。

2. `(ByVal num1 As Integer, ByVal num2 As Integer)` 是函数的参数列表。` ByVal` 关键字表示参数是按值传递的，这意味着函数不会修改调用者的参数值。

3. `AddTwoNumbers = num1 + num2` 是函数的返回语句，它计算两个参数的和并将结果赋值给函数名。

4. `Sub TestFunction()` 是一个子程序，用于测试我们的函数。它调用 `AddTwoNumbers` 并显示结果。

要使用这个函数，你可以在VBA编辑器中创建一个新的模块，并将上述代码粘贴进去。然后，你可以通过在VBA编辑器中运行 `TestFunction` 子程序来测试函数。