今日的内容是“VBA之EXCEL应用”的第十三章“Function过程和Sub过程”。这讲是第1节“Function（函数）过程”。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，案例众多。大家可以非常容易的掌握相关的知识，这套教程面向初学人员，共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。

第一节 Function（函数）过程

大家好，我们这讲先讲解一下Function过程，这个过程也叫函数过程，特点是有返回值的输出。对于函数，我曾经给过一个定义：

如果对于唯一性输入值value，输出（或者return）的值也具有唯一性（这种输入或者输出的值没有个数的限制），那么具有这种变化关系的输入和输出关系，就称为输出是输入的函数.

如果希望Excel VBA执行返回结果的任务，就可以使用函数过程。

1 Function过程的语法和参数讲解

语法：

[Public | Private | Friend] [ Static ] Function name [ ( arglist ) ] [ As type ]

[ statements ]

[ name = expression ]

[ Exit Function ]

[ statements ]

[ name = expression ]

End Function

参数讲解：

1）Public 可选 指示 Function 过程是否可由所有模块中的所有其他过程访问。如果是 Option Private 的模块中使用的函数过程，不能在项目的外部使用。

2）Private可选。指示 Function 过程仅能由声明它的模块中的过程访问。

3）Friend 可选。 仅在类模块中使用。 指示 Function 过程在整个项目中可见，但是对于对象实例的控制器不可见。

4）Static 可选。指示在两次调用之间保留Function过程的本地变量。Static 属性不影响在Function 外部声明的变量，即使在过程中使用它们也一样。

5) name 必需。 Function 的名称；遵循标准变量命名约定。

6) arglist 可选。代表调用 Function 过程时传递给该过程的参数的变量列表。多个变量使用逗号分隔。

7) type可选。 Function过程返回的值的数据类型;可以是Byte、Boolean、Integer、 Long、 Currency、Single、Double、Decimal (目前不支持)、Date、String (除固定长度)、对象、 Variant或 any用户定义类型。

8) statements 可选。 任何一组要在 Function 过程中执行的语句。

9) expression 可选。 返回 Function 的值。

arglist 参数具有以下语法和组成部分：

[ Optional ] [ ByVal | ByRef ] [ ParamArray ] varname [ ( ) ] [ As type ] [ = defaultvalue ]

1) Optional 可选。 指示不需要参数。如果使用, 则arglist中的所有后续参数也必须是可选的, 并且使用optional关键字声明。如果使用了ParamArray，则不能将Optional用于任何参数。

2) ByVal可选。指示按值传递参数。

3) ByRef可选。指示按引用传递参数（地址）。在 Visual Basic 中，ByRef 为默认值。

4) ParamArray可选， 仅用作 arglist 中的最后一个参数来指示最后的参数为 Variant 元素的 Optional 数组。 ParamArray 关键字允许您提供任意数量的参数。 它无法用于 ByVal、ByRef 或 Optional。

5) varname 必需。 表示参数的变量的名称；遵循标准变量命名约定。

6) type可选。 传递给过程的参数的数据类型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不受支持）、Date、String（仅限可变长度）、Object、Variant 或特定的对象类型。 如果参数不是可选的，则还可以指定用户定义的类型。

7) defaultvalue 可选。 任何常量或常量表达式。仅对 Optional 参数有效。 如果类型是一个 Object，则显式默认值只能为 Nothing。

2 对Function过程的理解

1）如果未使用public、Private或Friend显式指定, 则默认情况下Function过程是公共的。如果未使用Static，则不会在两个调用之间保留局部变量的值。

2）Friend 关键字只能用于类模块。但是，Friend 过程可以由项目的任何模块中的过程访问。Friend过程不会显示在其父类的类型库中, 也不能是晚期绑定的Friend过程。

3) Function 过程可以递归,即:它们可以自我调用以执行指定的任务。但是递归可能会导致堆栈溢出。Static关键字通常不与递归 Function过程配合使用。

4) 所有可执行代码必须位于过程中。不能在另一个function、Sub或Property过程中定义Function过程。

5) Exit语句导致立即从Function过程中退出。程序将继续执行已调用 Function 过程的语句后面的语句。任何数量的Exit Function语句可以出现在Function过程中的任何位置。

6) 与 Sub 过程一样，Function 过程是一个单独的过程，它可以获取参数、执行一系列语句和更改其参数的值。但是，与Sub过程不同，当您希望使用函数返回的值时，可以在表达式的右侧使用Function 过程，就像使用任何固有函数（例如 Sqr、Cos 或 Chr）一样。

7)要从函数返回值，请为函数名称赋值。任意数量的此类赋值可以出现在过程中的任意位置。 如果未对name进行赋值，该过程将返回一个默认值：数字函数返回 0，字符串函数返回零长度的字符串 ("")，Variant 函数返回 Empty。 如果在 Function 内没有为name指定对象引用（使用Set），那么返回对象引用的函数将返回 Nothing。

3 Function过程的应用实例

我们来看下面的代码实例：

Function Area(x As Double, y As Double) As Double

Area = x * y

End Function

Sub mynz()

Dim z As Double

z = Area(3, 5) + 2

MsgBox z

End Sub

代码截图：

代码解读：上述mynz过程会调用一个Area的Function过程，而Function过程是有着自己的意义。

1）Function Area(x As Double, y As Double) As Double

Area = x * y

End Function

这个Function过程有两个参数(类型为Double)和一个返回类型(也是Double类型)。可以在sub过程中使用函数的名称来指示要返回的结果(这里是x * y)。

2）Sub mynz()

Dim z As Double

z = Area(3, 5) + 2

MsgBox z

End Sub

现在，只需使用函数名并为每个参数提供一个值，就可以引用这个函数(换句话说，就是调用这个函数)。你可以用另一个变量z来存储函数返回的结果。

我们给这个函数输入参数(3, 5)，最后，使用MsgBox显示返回的值。

最后我们看代码的运行结果：

今日内容回向：

1） Function过程的意义是什么？

2） 如何利用Function过程返回值？

本讲内容参考程序文件：工作簿13.xlsm

分享成果，随喜正能量

VBA的应用及学习方法：

VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！

我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了七部VBA专门教程。

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。

第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。

第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。

第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受。

第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。

第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。

第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。

以上各教程学习顺序：7→1(或者4)→3→2→6→5。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。