本文将带你系统掌握 VBA 函数（Function）的核心概念，涵盖函数的定义方式、参数传递机制、返回值设置以及执行流程等关键知识点。
VBA 中的函数与子过程（Sub）结构高度相似，二者最本质的差异在于：函数具备返回值能力，而子过程不具备。
不带参数的函数
不接收任何输入参数的 VBA 函数，其基本语法格式如下：
Function [函数名称]() As [返回值数据类型]
代码语句1
代码语句2
...
代码语句n
[函数名称] = [待返回的结果]
End Function其中，Function 和 End Function 是函数体的起始与终止标识符。
相较于子过程，函数体内必须包含形如 [函数名] = [值] 的赋值语句——这正是函数输出结果的关键所在。同时，在函数声明时需明确指定其返回值的数据类型，该写法与变量声明规则一致。
来看一个具体示例：
'定义一个无参函数，随机返回 True 或 False
Function RandomLogic() As Boolean
RandomLogic = Rnd() > 0.5
End Function该函数名为 RandomLogic，返回类型为 Boolean。每次调用时，利用内置函数 Rnd() 生成 0 到 1 之间的随机小数，并与 0.5 比较大小，从而得出布尔型结果（True 或 False），再将其赋给函数名本身，完成返回操作。
带参数的函数
和子过程一样，函数也支持接收一个或多个参数，其语法结构与 Sub 过程完全相同：
Function [函数名称]([参数1] As [类型1], ..., [参数n] As [类型n]) As [返回值类型]
代码语句1
代码语句2
...
代码语句n
[函数名称] = [返回结果]
End Function所有传入的参数均可在函数内部直接使用，参与逻辑运算或数据处理。
以下是一个典型实例：
Function Add2Number(num1 As Double, num2 As Double) As Double
Add2Number = num1 + num2
End Function此函数接收两个 Double 类型数值作为输入，计算它们的和，并以 Double 类型返回结果。
如何调用函数（Function）
由于函数具有返回值特性，因此它与子过程在调用方式上存在明显区别。若某个函数未设定返回值，则其行为与子过程几乎一致，调用方法也相同。
对于有返回值的函数，常见调用场景分为两类：
- 将返回值赋给变量保存
- 将返回值直接用于其他表达式或运算中
无论哪种情形，调用语法均保持统一：
▶ 无参函数直接写函数名；
▶ 有参函数则需将参数置于圆括号内，紧跟函数名之后。
Sub Main()
'将函数返回值赋给变量
Dim result1 As Double
result1 = Add(12, 345)
<pre class="brush:php;toolbar:false;">'将函数返回值嵌入更复杂的计算中
Dim result2 As Double
result2 = RandNum + Add(12, 345)End Sub
'生成一个 0~100 范围内的随机数 Function RandNum() RandNum = Rnd * 100 End Function
'实现两数相加并返回结果 Function Add(num1 As Double, num2 As Double) As Double Add = num1 + num2 End Function
提前终止函数执行
通常情况下，函数从 Function 开始，到 End Function 结束。但在某些业务逻辑中，可能需要根据条件提前退出当前函数。VBA 提供了两种实现方式：Exit Function 和 End。
Exit Function 语句
当程序运行至 Exit Function 时，会立即退出当前正在执行的函数，并返回控制权给调用方。
⚠️ 注意：Exit Function 只影响当前函数，不会干扰其上级调用者（如父级 Sub 或其他 Function）的正常运行。
End 语句
一旦执行到 End 语句，整个 VBA 环境将被强制终止——所有正在运行的过程和函数都会被中断。
在实际开发中，应尽量避免使用 End。它的作用类似于计算机的“强制断电”，会导致以下后果：
- 所有对象的事件无法触发；
- 正在运行的所有 VBA 代码立即停止；
- 所有对象引用失效；
- 已打开的用户窗体自动关闭，且不执行任何卸载事件。
小结
函数与子过程在语法结构和参数处理方面高度相似，核心差异仅在于：函数可返回一个确定类型的值，而子过程不可。两者均可接受零个或多个参数，且参数可在函数/过程中自由使用。调用函数时，务必注意参数须置于括号中，并紧随函数名称之后。
