VBA - 用户自定义函数

一个函数是一组可重用的代码，可以在程序的任何地方调用。这消除了反复编写相同代码的需要。这使程序员能够将大型程序划分为许多小型且易于管理的函数。

除了内置函数外，VBA 还允许编写用户自定义函数。在本节中，您将学习如何在 VBA 中编写自己的函数。

函数定义

VBA 函数可以包含可选的 return 语句。如果您想从函数返回一个值，则需要此语句。

例如，您可以将两个数字传递给函数，然后您可以期望函数在您的调用程序中返回它们的乘积。

注意 - 函数可以返回多个值，这些值用逗号分隔，作为分配给函数名本身的数组。

在使用函数之前，我们需要定义该特定函数。在 VBA 中定义函数最常用的方法是使用Function关键字，后跟一个唯一的函数名，它可以包含参数列表，以及带有End Function关键字的语句，指示函数的结束。以下是基本语法。

语法

添加一个按钮并添加以下函数。

Function Functionname(parameter-list)
   statement 1
   statement 2
   statement 3
   .......
   statement n
End Function

示例

添加以下返回面积的函数。请注意，可以使用函数名本身返回值/值。

Function findArea(Length As Double, Optional Width As Variant)
   If IsMissing(Width) Then
      findArea = Length * Length
   Else
      findArea = Length * Width
   End If
End Function

调用函数

要调用函数，请使用函数名调用函数，如下面的屏幕截图所示。

如下所示的面积输出将显示给用户。