VBA 函数

VBA 函数是 Visual Basic for Applications 的组成部分，它允许程序员编写可重复使用和通用的子程序和功能，以简化代码。

创建函数

要创建函数，请在 VBA 编辑器中打开一个代码模块，然后使用以下语法：

Function 函数名([参数列表]) [As 数据类型]
' 函数代码
End Function

函数名可以是任何有效的标识符，包括字母、数字和下划线，但不能以数字开头。

参数列表是可选的，您可以在其中定义变量，这些变量将在函数中使用。

数据类型是可选的，它指定函数要返回的值的数据类型。如果未指定数据类型，则函数返回 Variant 类型。

示例

以下是一个简单的示例，演示如何创建一个将两个数字相加的函数：

Function AddNumbers(Num1 As Integer, Num2 As Integer) As Integer
    AddNumbers = Num1 + Num2
End Function

可以在 VBA 编辑器的“立即窗口”中调用此函数来测试它：

?AddNumbers(5, 10)

此代码将返回 15。

参数传递

参数可以以 ByRef 或 ByVal 方式传递。默认情况下，参数是 ByRef 传递的，这意味着任何更改都将影响原始变量。如果您不希望更改原始变量，可以将参数声明为 ByVal。

以下是一个将字符串转换为大写并返回的函数：

Function UpperCase(ByVal str As String) As String
    UpperCase = UCase(str)
End Function

在此示例中，我们使用 ByVal 关键字将 str 参数声明为只读。

处理错误

为了确保函数始终正确运行，请确保考虑到可能出现的任何错误。您可以使用 On Error 语句捕获和处理错误。

以下是一个将数值转换为比例字符串的函数，如果出现错误，则返回“错误”字符串。

Function ConvertToPercentage(ByVal num As Variant) As String
    On Error GoTo ErrorHandler
    
    ConvertToPercentage = Format(num * 100, "#,##0.00%")
    
Exit Function

ErrorHandler:
    ConvertToPercentage = "Error"
End Function

总结

VBA 函数是可重复使用、通用的子程序和功能，可以简化代码并提高代码的可读性。您可以使用函数来执行任何常规的计算或操作，或者将其用于重复使用的代码段。无论您需要什么功能，都可以使用 VBA 函数加快代码的开发速度，并在必要时简化测试和维护。「完」