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

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

VBA 函数基础语法

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

无参数函数

无参数 VBA 函数的基本语法如下:

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

可以看到,函数使用 FunctionEnd Function 语句作为函数的开始和结束。

函数包含的语句中,相比过程,可以看到多一个 [函数名] = [返回值] 语句,这是函数的返回值语句。函数名后制定该函数返回值的类型,语法与声明变量类似。

看一个实际的例子。

'声明函数,该函数随机返回 true 或 false。函数需指定返回值类型。
Function RandomLogic() As Boolean
    RandomLogic = Rnd() > 0.5
End Function

该函数的名称是 RandomLogic,返回值类型时 Boolean 类型,运行调用后,随机返回一个 truefalse 值。实现方法是,使用 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

 

提前退出函数

正常情况下,函数使用 FunctionEnd Function 语句作为函数的开始和结束。但有时根据实际情况,可能需要提前结束并退出函数。VBA 提供 2 种提前退出过程的方法,Exit FunctionEnd 方法。

Exit Function 语句

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

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

End 语句

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

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

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

总结

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

转载注明:文章转载自「懒人Excel - lanrenexcel.com
本文标题:VBA 函数(Function)入门教程和实例
21 评论
最新
最旧 最多投票
内联反馈
查看所有评论
bas
2 月 前

为什么我debug add的时候立即窗口出现了两个相同值

最后由bas编辑于2 月 前
wink
5 月 前

调用函数那里怎么输出啊

wi*
6 月 前

你好,如何打印啊?

3333333333
7 月 前

22222222222222222

P1TE
8 月 前

调用函数章节
Dim result1 As Double
result = Add(12, 345)

‘函数返回值继续参与计算
Dim result2 As Double
result = RandNum + Add(12, 345)

下面返回两个都result,应该一个是result1一个是result2吧。

微微*
8 月 前

无参数函数那个实例为什么运行不了啊?

chris
8 月 前

Dim result As Double
报错:重复声明。

gege
9 月 前

为什么不在num1 和 num2 前面加上 dim
Function Add(dim num1 As Double,dim num2 As Double) As Double
Add = num1 + num2
End Function

LL*
1 年 前

感谢

最后由LL*编辑于1 年 前
3333333333
7 月 前
回复给  LL*

good

Mia
2 年 前

请问为什么调用函数示例中,定义Function RandNum()的时候没有声明RandNum的类型呢?

holycow
2 年 前
回复给  懒人Excel

这里的randnum不是函数名吗?为什么要指定类型?变量和常量才需要声明吧。若是理解错了,麻烦能指出。谢谢。

21
0
希望看到您的想法,请您发表评论x