迹忆客 专注技术分享

本文将演示在处理 VBA 时如何创建和使用函数。

函数用于返回子例程无法返回的结果。当程序变得更长和更复杂时，函数是一种有用的工具，可以更轻松地组织代码块、调试和修改脚本。

函数可以分为两个子集：

语法：

[Public | Private] [ Static ] Function name [ ( argumentlist ) ] [ As retType ]
[ statements ]
[ name = expression ]
[ Exit Function ]
End Function

定义：

在 VBA 中使用非对象函数类型

下面的代码块将使用非对象函数类型计算三角形的面积，给定它的底和高作为其参数。

Public Function GetTriangleArea(b, h) as Double
Dim area as Double
area= (b*h)/2
GetTriangleArea= area
End Function
Sub TestFunction()
Debug.print("The area of the triangle is " & GetTriangleArea(10,8) & " square meters.")
End Sub

输出：

The area of the triangle is 40 square meters.

在 VBA 中使用 object 函数类型

下面的代码块将演示如何使用 object 函数类型来计算两个数字之间所有数字的总和。

Public Function GetCollection(numStr, numEnd) As Object
'Declaring variable for the counter
Dim i As Integer
'Creating a new Arraylist named coll
Dim coll As Object
Set coll = CreateObject("System.Collections.ArrayList")

'Add all number from numStr to numEnd to the arraylist named coll using a for loop
For i = numStr To numEnd
    coll.Add (i)
Next i

'Returning the arraylist named coll to the subroutine
    Set GetCollection = coll
End Function
Sub testFunction()

'Declaring collForSum as an Object
'collForSum object will be the placeholder object where the coll arraylist will be in placed
Dim collForSum As Object
'Setting up a counter named j
Dim j As Integer
'Sum variable will hold the running sum of the elements in collForSum
Dim sum As Double
'Calling the GetCollection Function to fill collForSUm Object
    Set collForSum = GetCollection(10, 20)
'For loop to iterate on all element of collForSum arraylist
For j = 0 To collForSum.Count - 1
    'Add all the elements inside the collForSum arraylist.
    sum = sum + collForSum(j)
Next j
Debug.Print ("The total sum is " & sum & ".")
End Sub

输出：

The total sum is 165.

使用 Exit Function 命令强制返回子程序

将值返回给子例程或函数并不一定意味着当前函数中的代码执行将停止。我们需要明确声明停止函数上的代码执行。要使用的命令是退出功能。

在没有 Exit Function 命令的情况下调用函数可能会返回错误值。

Public Function PositiveOrNegative(num) as String 
If num >= 0 Then
    PositiveOrNegative = "Positive"
End If
PositiveOrNegative = "Negative"
End Function

Sub TestFunction()
   Debug.Print (PositiveOrNegative(5))   
End Sub

TestFunction 输出：

Negative

即使 TestFunction 输入是 5，输出也是 Negative，因为代码执行在到达 PositiveOrNegative = "Positive" 代码行时并没有停止。

我们需要使用 Exit Function 命令来解决这个问题。

Public Function PositiveOrNegative(num) as String 
If num >= 0 Then
    PositiveOrNegative = "Positive"
    'Exit Function will force the code execution in the current function to stop and return the current value of PositiveOrNegative
    Exit Function
End If
PositiveOrNegative = "Negative"
End Function

Sub TestFunction()
   Debug.Print (PositiveOrNegative(5))   
End Sub

输出：

Positive