用户定义函数

下面我们将在Excel VBA中查看一个创建用户定义函数的程序。Excel具有大量功能。在大多数情况下，这些功能足以完成任务。如果没有，则可以创建自己的函数，称为用户定义函数或自定义Excel函数。您可以像其他任何Excel函数一样访问用户定义函数。

我们想要创建一个称为SUMEVENNUMBERS的函数，该函数查找随机选择的范围的偶数之和。

情况：

用户定义的功能需要放置到模块中。

1.打开Visual Basic编辑器，然后单击“插入”，“模块”。

2.添加以下代码行：

我们的职能名称是SUMEVENNUMBERS。方括号之间的部分表示我们为Excel VBA提供了一个范围作为输入。我们将范围命名为rng，但您可以使用任何名称。

3.接下来，我们声明一个Range对象并将其称为单元格。

4.我们要检查随机选择范围内的每个单元格（该范围可以是任何大小）。在Excel VBA中，可以为此使用“每个下一个”循环。添加以下代码行：

注意：这里是随机选择的单元格，您可以使用任何名称。

5.接下来，我们检查此范围内的每个值是否为偶数。为此，我们使用Mod运算符。Mod运算符给出除法的余数。因此7 mod 2将得到1。将7除以2（3次）得到1的余数。话虽如此，很容易检查一个数字是否为偶数。仅当数字的余数除以2时，该数字才是偶数。8 mod 2给出0，8精确地除以2 4倍，因此8是偶数。将以下If语句添加到For Each Next循环中。

6.仅当此语句为true时，我们才将值添加到SUMEVENNUMBERS。在If语句中添加以下代码行。

7.不要忘记结束函数（在循环之外）。

8.现在，您可以像使用其他任何Excel函数一样使用此函数来查找随机选择范围的偶数之和。

结果：

做得好！这就是Excel VBA中用户定义函数的简单程度。注意：此功能仅在此工作簿中可用。