前面我们分享了VBA创建Sub过程和案例教程，除了Sub过程，用户还可以在VBA中创建Function过程（函数过程），它与Sub过程有很多相似之处，比如声明方式、调用方式、过程包含的参数声明和传递方式等，Sub过程涉及的很多概念和操作方法也同样适用于Function过程。今天我们介绍声明与调用Function过程的基本方法，还会介绍VBA内置函数的使用方法。

一、Function过程与Sub过程的区别

尽管Function过程和Sub过程在很多方面都具有相同或相似的特性，但是二者之间存在一个重要而明显的区别：Function过程可以返回一个值，而Sub过程不能返回任何值。Function过程类似于Excel内置的工作表函数。在VBA中创建的Function过程主要有以下两个用途：

1.在工作表公式中使用，弥补Excel内置函数无法实现的计算功能，简化公式的复杂度。
2.在VBA中被其他过程调用，或者作为表达式的一部分参与运算。

二、声明Function过程

声明Function过程的语法格式与声明Sub过程类似，但是由于Function过程有返回值，因此在格式声明的某些部分与Sub过程有所区别。声明Function过程的语法格式如下：

[Public | Private] [Static] Function name [(arglist)] [As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function

Private：可选，表示声明的是一个私有的Function过程，只有在该过程所在的模块中的其他过程可以访问该过程，其他模块中的过程无法访问该过程。
Public：可选，表示声明的是一个公共的Function过程，所有模块中的所有其他过程都可以访问该过程。如果在包含Option Private Module语句的模块中声明该过程，即使该过程使用了Public关键字，也仍然会变为私有过程。
Static：可选，Function过程运行结束后保留过程中所使用的变量的值。
Function：必选，表示Function过程的开始。
name：必选，Function过程的名称，与变量的命名规则相同。
arglist：可选，一对圆括号中可以包含一个或多个参数，这些参数用于向Function过程传递数据以供Function过程处理，各参数之间以逗号分隔。如果过程不包含任何参数，则必须保留一对空括号。
type：可选，Function函数的返回值的数据类型。
statements：可选，Function过程中包含的VBA代码。
expression：可选，Function过程的返回值。
Exit Function：可选，中途退出Function过程。
End Function：必选，表示Function过程的结束。

与声明Sub过程的方法类似，可以使用两种方法声明Function过程。如果使用“添加过程”对话框声明Function过程，则需要在该对话框的“类型”区域中选择“函数”选项，其他选项的设置与Sub过程类似。

如果想要手动声明Function过程，则需要在代码窗口中输入Function关键字和Function过程的名称，按Enter键后Excel会自动添加End Function语句，如下所示，接下来可以在Function和End Function之间添加所需的VBA代码。

Function MyTime()
End Function

还可以在Function过程名右侧的圆括号中输入一个或多个参数，各参数以逗号分隔，如下所示：

Function GetSum(varNumber1, varNumber2)
End Function

提示：在创建Function过程时可以为其添加不同形式的参数。

Function案例1：创建与使用Function过程。

下面的代码声明了一个用于计算两个数字之和的Function过程，该过程包含两个参数，它们表示要参与计算的数字。在另一个过程中调用了这个Function过程，在对话框中显示了用户指定的两个数字之和，如下图所示。本例中的Function过程是作为表达式的一部分使用的。

Function GetSum(varNumber1, varNumber2)
GetSum = varNumber1 + varNumber2
End Function

Sub test()
MsgBox “两个数字之和是：” & GetSum(1, 2)
End Sub

三、调用Function过程

与调用Sub过程类似，可以在其他过程中调用指定的Function过程，具体可以调用哪些Function过程以及调用的方式，由Function过程的作用域决定。Function过程的作用域所遵循的规则与Sub过程相同。如果在Function过程的开头使用或省略了Public关键字，那么该Function过程是公有过程。如果在Function过程的开头使用了Private关键字，那么该Function过程是私有过程。

公有的Function过程可以被同一个工程中的所有模块中的所有过程调用。如果要在外部工作簿中调用该Function过程，需要建立对包含该Function过程的工作簿的引用，方法与前面介绍的引用外部工作簿中的Sub过程相同。上一个案例说明了在VBA中调用Function过程的方法，在一个对话框中显示了使用GetSum函数对两个数字求和的计算结果。如果希望在后面的代码中使用Function过程的返回值，则需要将返回值赋值给一个变量，之后可以在代码中处理这个变量。

Function案例2：在程序中使用函数的返回值

下面是对上一个案例中的代码修改后的版本，其中声明了一个varSum变量，用于保存GetSum函数的返回值，然后在If判断语句中测试这个变量是否小于10，如果是则显示“总和太小”的提示消息。

Function GetSum(varNumber1, varNumber2)
GetSum = varNumber1 + varNumber2
End Function

Sub test()
Dim varSum
varSum = GetSum(1, 2)
If varSum < 10 Then MsgBox “总和太小”
End Sub

公有的Function过程还可以在工作表公式中使用，就像使用Excel内置的工作表函数一样。这里仍然使用前面案例中创建的GetSum函数，该函数计算A1和B1两个单元格中的数字之和，如图所示。

如果只想在VBA中调用Function过程，不希望在工作表公式中使用该过程，那么需要在声明Function过程的开头使用Private关键字。这样该Function过程将变为私有过程，它只能被Function过程所在模块中的任意过程调用，而不能被其他模块中的过程调用，也不能在工作表公式中使用。

四、使用VBA内置函数

VBA内置函数是VBA自身提供的用于实现特定功能的Function过程，它们可用于完成不同类型的计算和文本处理任务。VBA内置函数与Excel工作表函数类似。例如，名为Ucase的VBA内置函数用于将文本中的英文字母转换为大写形式，该函数的功能与Excel工作表函数UPPER相同。需要注意的是，如果某个VBA内置函数与某个Excel工作表函数实现相同的功能（就像上面提到的Ucase和UPPER），那么该工作表函数就不能在VBA中使用，否则会出现错误。

如果用户创建的Function过程与VBA内置函数同名，在VBA中调用该Function过程时，VBA会认为用户希望使用自己创建的这个Function过程，而不是同名的VBA内置函数。此时如果希望使用同名的VBA内置函数，则需要先输入VBA和一个句点，然后在弹出的自动成员列表中选择所需的VBA内置函数（以绿色标记开头），如上图所示，使用方向键选择某个函数，然后按下Tab键将函数输入到代码窗口中。在不知道都有哪些VBA内置函数时，也可以使用这种方法快速获得函数

点击关注我们不迷路！