声明格式:
Function MyFunction(parameter1 As DataType, parameter2 As DataType) As ReturnType
' 代码块
MyFunction = someValue
End Function
- MyFunction 是函数的名称。
- parameter1 和 parameter2 是函数的参数,可以根据需要添加或省略。
- DataType 是参数的数据类型。
- ReturnType 是函数返回值的数据类型。
- someValue 是函数的返回值。
示例:
Function AddNumbers(num1 As Integer, num2 As Integer) As Integer
AddNumbers = num1 + num2
End Function
在这个例子中,AddNumbers 函数接受两个整数参数,并返回它们的和。
调用函数:
Sub MainProcedure()
' 调用函数
Dim result As Integer
result = AddNumbers(5, 3)
MsgBox "The sum is: " & result
End Sub
在这个例子中,AddNumbers 函数被调用,并将返回的结果存储在变量 result 中,然后通过 MsgBox 函数显示结果。
函数可以执行各种任务,从简单的数学计算到更复杂的操作。通过使用函数,您可以将代码模块化,并更容易地重用代码。请确保声明函数的返回类型,并通过 MyFunction = someValue 行将值返回给调用者。
转载请注明出处:http://www.zyzy.cn/article/detail/301/VBA