下面我们就来看看在Excel VBA程序创建一个用户定义函数。 Excel中收集了大量的功能。在大多数情况下，这些功能足以完成这项工作。如果没有，你可以创建自己的函数调用用户定义函数或自定义Excel函数。您可以访问一个用户定义函数，就像任何其他Excel函数。

我们要创建一个函数调用SUMEVENNUMBERS是找到一个随机选择的范围甚至数的总和。

现状：

User Defined Function in Excel VBA

用户定义的函数需要被放置到一个模块。

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

2.添加以下代码行：

Function SUMEVENNUMBERS(rng As Range)

我们的函数的名称是SUMEVENNUMBERS。在括号中的一部分，是指我们给Excel的VBA的范围作为输入。我们命名我们的范围毫克，但你可以使用任何名字。

3.接下来，我们声明了一个Range对象，并将其命名为小区。

Dim cell As Range

4.我们想要查询在一个随机选择的范围内的每个小区（该范围可以是任何大小的）。在Excel VBA中，你可以使用对于每个Next循环这一点。添加以下代码行：

For Each cell In rng

Next cell

注：电池是随机选择这里，你可以使用任何名字。

5.接下来，我们检查它是否是或不在此范围内的每个值。我们使用Mod运算符这一点。 Mod运算符给出了一个除法的余数。所以7 MOD 2将给予1 7 2（3次）分给予的1其余话虽如此，很容易检查数量是偶数还是不行。仅当除以2的数的余数是0，的数量是偶数。 8模2给出了0，8由2正好是4次分割，因此8是偶数。下面添加If语句为每条Next循环。

If cell.Value Mod 2 = 0 Then

End If

6.只有当这个说法是正确的，我们的价值添加到SUMEVENNUMBERS。

添加以下代码行中的if语句。

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7.不要忘了结束的功能（外循环）。

End Function

8.现在你可以使用这个功能，就像任何其他Excel函数，要找到一个随机选择的范围甚至数的总和。

结果：

User Defined Function Result

做得好！这是在Excel VBA容易用户定义函数如何。

注：此功能只适用于该工作簿。