前面我们说过Sub过程，VBA还有一种Function函数，语言规则与Sub差不多：
代码语言：javascript复制Function 函数名(参数 As 数据类型) As 数据类型
End Function与Sub不同的是：
- 函数可以返回一个值
- 不能直接运行
详细介绍请查看官方文档：
https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/function-statement?f1url=https://msdn.microsoft.com/query/dev11.query?appId=Dev11IDEF1&l=zh-CN&k=k(vblr6.chm1008927);k(TargetFrameworkMoniker-Office.Version=v16)&rd=true
1、Function有什么用？
其实Function能做的，Sub都可以做到，设置Function这种模式个人认为还是为了方便，让人一看就知道某段代码仅仅是为了完成某一个特定任务。
这种将复杂功能分解成若干小功能，由各个小功能来组合完成一个复杂功能的编程思想是非常重要的：
- 可以简化开发难度
- 提高代码的复用
2、Function的参数
VBA中，参数的传递有2种方式：
- Byval 传值，传递的是副本，与原始变量已经没有关系。
- Byref 传地址，传递的是变量的地址，就是原始变量。
打个比方：
- 孙悟空和妖怪打架，他法术好，用个毫毛就能变个分身，他让分身去打架，妖怪伤害了分身，不会影响他自己。这就是Byval。
- 猪八戒去打的话，他不会分身术，只能自己去，被妖怪打的猪头都不像猪头了，那就是猪八戒自己受的伤。这就是Byref。
如果参数前面省略了修饰符，默认是Byref（个人认为这个默认非常的不好，我刚开始用VBA的时候碰过这个问题，莫名其妙不知道为什么变量的值不对了）。
这2种方式的区别初学者只要记住（非常重要）就可以，要理解有点难度，需要一定的计算机内存方面的知识。
只要简单记住，如果你传递的变量只是给其他函数使用的，并不需要改变的话，用Byval。
3、举例
继续用前面说的例子，我们将判断数字奇偶这个功能分解出来：
代码语言：javascript复制Sub TestFor()
Dim i As Long
For i = 1 To 100 Step 1
Range("B" & VBA.CStr(i)).Value = OddOrEnev(VBA.CLng(Range("A" & VBA.CStr(i)).Value))
Next i
End Sub
Function OddOrEnev(lValue As Long) As String
If lValue Mod 2 = 1 Then
OddOrEnev = "奇数"
Else
OddOrEnev = "偶数"
End If
End Function我们将判断奇偶这个功能做出1个OddOrEnev Function，然后在Sub过程中直接调用就可以，OddOrEnev返回的值就可以直接赋值给B列的单元格了。
如果以后你突然觉得OddOrEnev仅仅给出奇偶的判断不够的话，直接修改OddOrEnev这个Function就可以，Sub过程不需要改动，这样修改起来就简单了。
如果其他的Sub过程也需要这个功能，直接调用即可，这也就是代码的复用了。
4、小结
介绍了Function的规则、参数的传递、Function的作用等。
