VBA - 用户定义的函数

功能是一组可重复使用的代码,可以在程序中的任何位置调用.这消除了一遍又一遍地编写相同代码的需要.这使得程序员可以将一个大程序划分为许多小而易于管理的函数.

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

函数定义

VBA函数可以有一个可选的return语句.如果你想从一个函数返回一个值,这是必需的.

例如,你可以在一个函数中传递两个数字,然后你可以期望函数返回它们在你的函数中的乘法调用程序.

注意 : 函数可以返回由逗号分隔的多个值作为分配给函数名称本身的数组.

在使用函数之前,我们需要定义该特定函数.在VBA中定义函数的最常用方法是使用 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

调用函数

要调用函数,请使用函数名称调用函数,如以下屏幕截图所示.

VBA中的决策制定声明

如图所示的区域输出以下内容将显示给用户.

VBA中的决策制定声明