VBA 函数(Function)入门教程和实例

在今天的这篇文章，学习函数的基础，包括如何写、传入参数、返回参数、执行过程等。

VBA 函数基础语法

VBA 函数与 VBA 过程很相似，除了使用的关键词外，主要区别是，函数可以返回值。

无参数函数

无参数 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 类型，运行调用后，随机返回一个 true 或 false 值。实现方法是，使用 VBA 内置函数 Rnd（随机产生0-1的数字），随机数与0.5对比大小，产生 true 或 false 值，并把值赋值给函数名。

有参数函数

函数与过程一样，也可以接收参数，其语法与过程相同。

Function [函数名]([变量名1] As [数据类型1],...[变量名n] As [数据类型n]) As [返回值类型]
    语句1
    语句2
    ...
    语句3
    [函数名] = [返回值]
End Function

同样，函数接收的参数，在函数主体中使用。

我们看一个实际的例子。

Function Add2Number(num1 As Double, num2 As Double) As Double
    Add2Number = num1 + num2
End Function

上述函数接受2个 Double 类型的数字作为参数，两者相加，返回和，其类型也是 Double 类型。

调用函数（Function）

函数与子过程的区别是，函数可以返回值。如果一个函数不返回值，它与子过程并无区别，其中调用方式与子过程相同。

调用有返回值的函数时，一般有两种情形：

• 一是，使用一个变量存储函数返回的值
• 二是，函数返回的值参与其他计算

两种情形调用函数方式相同，无参数函数直接书写，有参数函数将参数放在括号内。

Sub Main()
    '使用变量存储函数返回的值
    Dim result1 As Double
    result1 = Add(12, 345)
    
    '函数返回值继续参与计算
    Dim result2 As Double
    result2 = RandNum + Add(12, 345)
End Sub

'函数：返回一个随机值
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 提供 2 种提前退出过程的方法，Exit Function 和 End 方法。

Exit Function 语句

在一个函数中，当程序运行到 Exit Function 语句时，立即结束当前函数，提前退出。

这里需要注意的是，Exit Function 语句只作用于当前过程，不影响调用它的父过程或函数。

End 语句

在一个函数，当程序运行到 End 语句时，立即结束当前运行的所有 VBA 过程和函数。

在实际开发中，应谨慎使用 End 结束语句。End 语句的效果类似于电脑的强制关机命令，立即结束所有程序，不会保存任何值，于 VBA 有以下效果：

• 程序中对象的各类事件不会被触发；
• 任何在运行的 VBA 程序都会停止；
• 对象引用都会失效；
• 任何打开的窗体都被关闭。

总结

函数与过程类似，大部分用法相同，主要区别是函数可以返回一个值，而过程不可以。两者均可以接受0个或多个参数，参数可以在过程或函数里使用。调用函数时，参数需要放置在括号内部，接函数名后。