函数是一组可重用的代码，可以在程序中的任何位置调用。这样就无需一遍又一遍地编写相同的代码。这使程序员可以将大型程序划分为许多小型且易于管理的功能。

除了内置函数，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

调用函数

调用一个函数，调用使用函数名作为显示在下面的屏幕截图的函数。

如下所示的区域输出将显示给用户。