龙空技术网

VBA函数 -> 调用,传参,返回值

Excel的ju子 626

前言:

今天大家对“c语言引用型参数value返回其值”都比较关注,看官们都想要了解一些“c语言引用型参数value返回其值”的相关资讯。那么小编在网络上网罗了一些关于“c语言引用型参数value返回其值””的相关资讯,希望朋友们能喜欢,咱们一起来了解一下吧!

函数和过程在VBA里面是很重要的概念。

之前的案例都有涉及到函数和过程的使用。今天系统给大家讲讲VBA函数。

本文主要分享有参和无参函数的创建和使用。

VBA内置了大量的函数供用户使用。但是我们也可以根据需求自定义函数。我们可以用VBA自己编写函数(Function)和过程(Procedure),两者不同之处在于函数有返回值,过程没有返回值。VBA函数也可以跟Excel内置函数一样调用。

创建不带参数的函数

要定义函数,我们需要定义好函数名和返回值。

函数可以返回一个固定的值,类似于常量。比如下面的函数,始终都返回50。

Function GetValue() As Integer   GetValue = 50End Function

函数也可以返回VBA对象,这时我们需要用Set关键字设置返回值。

下面的案例,返回当前页签的A1:G4区域。

Function GetRange() as Range  Set GetRange = Range("A1:G4")End Function
在过程里面调用函数

函数定义好之后,我们可以在任意位置调用他。

函数GetValue始终返回50。我们还可以在过程里面调用GetRange函数。

上面的案例中,在过程中调用GetRange函数,该函数把给定区域的字体设置成加粗。

创建函数单个参数

函数可以带零个到多个参数。

Function ConvertKilosToPounds (dblKilo as Double) as Double   ConvertKiloToPounds = dblKilo*2.2End Function

我们可以从子过程中调用上面的函数,来计算公斤和磅的转化。

同一个函数可以被多个子过程调用。这很有用,他避免了把同样的代码重复写很多遍,也可以把一长段代码拆分为很多小的函数,这样代码就看起来比较简洁,便于维护。

多个参数

函数也可以带多个参数。

Function CalculateDayDiff(Date1 as Date, Date2 as Date) as Double   CalculateDayDiff = Date2-Date1End Function

上面的函数用来计算两个日期间隔天数。我们可以在子过程中调用这个函数。

可选参数

函数也可以带上可选参数,Optional。换句话说,有时候我们需要参数,有时候我们又不需要参数,取决于函数的具体使用场景。

Function CalculateDayDiff(Date1 as Date, Optional Date2 as Date) as Double'如果Date2没有传值,就把当前日期赋值给Date2   If Date2=0 then Date2 = Date'calculate difference   CalculateDayDiff = Date2-Date1 End Function
参数默认值

对于可选参数,我们可以在定义函数的时候设置对应的默认值。只要调用的时候没有传递可选参数,可选参数的值就自动赋值为默认值。

Function CalculateDayDiff(Date1 as Date, Optional Date2 as Date="06/02/2020") as Double '计算时间间隔   CalculateDayDiff = Date2-Date1 End Function
传值ByVal 和传址ByRef

参数传递的时候,可以带上ByVal(传值),或者ByRef(传址,或者引用)。如果两个都不写,参数传递方式默认是ByRef传址引用

ByVal 意味着参数传递的是变量的副本, 而ByRef 意味着传递的是原来的变量自身。 ByVal传值方式下,变量的在值不会改变,即使变量的值在函数内部被修改了。而ByRef传址方式下,如果在函数内部修改了该变量参数,则原来的变量会跟着变化。

Function GetValue(ByRef intA As Integer) As Integer   intA = intA * 4   GetValue = intAEnd Function

上面案例,ByRef可以省略,也可以起到传址引用的效果。

Function GetValue(intA As Integer) As Integer   intA = intA * 4   GetValue = intAEnd Function

我们可以写一个测试用例来调用该函数。

Sub TestValues()   Dim intVal As Integer'给变量赋值   intVal = 10'调用函数,并打印结果   Debug.Print GetValue(intVal)'调用函数后,再打印变量的值   Debug.Print  intValEnd Sub

可以看到,两次打印的值都是40。变量IntVal传递给函数的时候,初始值为10,函数里面修改了该变量的值为40。使用ByRef关键字传参,修改了变量IntVal的值。通过窗口打印函数返回值,和调用函数后变量的值,不难发现这一点。

I如果不想改变参数原来的值,可以用ByVal关键字传递参数。

Function GetValue(ByVal intA As Integer) As IntegerintA = intA * 4GetValue = intAEnd Function

同样的,在测试用例调用该函数,然后打印调用前后变量的值,可以看到,ByVal传递参数的时候,变量的值保持不变。

退出函数

如果在函数里面有一个条件判断,一旦条件满足,立即返回函数值,此时可以加上Exit Function语句,立即退出函数,不继续执行后面的代码。

Function FindNumber(strSearch As String) As Integer   Dim i As Integer'遍历字符串每个字符   For i = 1 To Len(strSearch)   '碰到数字,立即返回结果并退出函数执行      If IsNumeric(Mid(strSearch, i, 1)) Then         FindNumber= Mid(strSearch, i, 1)   '退出函数         Exit Function      End If   Next   FindNumber= 0End Function

上面的案例,遍历字符串的每一个字符,直到找到数字并返回值。当找到一个数字的时候,立即返回值,并且退出函数。

下面的测试用例,演示了该函数的调用。

Sub CheckForNumber()   Dim NumIs as Integer'解析文本   NumIs = FindNumber("Upper Floor, 8 Oak Lane, Texas")'打印   Debug.Print NumIsEnd Sub
在Excel页签使用函数

函数不仅可以在VBA里面调用,也可以在Excel页签里面是使用。默认情况下,用VBA创建的函数可以在Excel函数列表的用户自定义区域找到。

如下图所示,点击fx,会弹出插入函数对话框。从分类列表中选择 用户定义,就可以看到所有VBA自定义的函数(Function)。

从用户定义列表中选择你需要的函数即可。

或者直接在Excel单元格输入你需要的公式,也可以插入用户定义函数。

如果不想在Excel页签展示某个用户定义函数,可以在定义函数的时候在Function前面加上Private关键字。

Private Function CalculateDayDiff(Date1 as Date, Date2 as Date) as Double    CalculateDayDiff = Date2-Date1 End Function

再去Excel单元格输入该函数,发现已经找不到了。

有趣的是,尽管在Excel公式找不到Private定义的函数,但是仍然可以使用该函数。

如果某个参数定义为可选Optional,不管是在Excel,还是在VBA代码里面,使用的时候该参数可以不输入。

不带参数的自定义函数也可以在Excel使用。

标签: #c语言引用型参数value返回其值 #调用有返回值的函数可以不定义值去接吗