Excel VBA编程 调用函数

Excel VBA 编程 调用函数

调用函数时，为了使用函数的返回值，必须指定函数给变量，并且用括号将参数封闭起来。 语法：函数过程名（[参数列表]）

由于函数过程名返回一个值，故函数过程不能作为的单独语句加以调用，必须作为表达式或表达式的一部分，然后再配以其他的语法成分构成语句。

在调用函数之前，应首先来定义一个函数，如定义一个myreplace(S,Olds,NewS)函数过程，即用News 子字符串替换在S 字符串中出现的OldS 字符串。

例如，下面的程序是对前面自定义的函数过程CalculateSquareRoot 的调用，其代码如下： Private Sub CommandButton1_Click()

Dim a

a = InputBox("请输入数字")

'调用CalculateSquareRoot 函数

MsgBox "计算平方根:" & CalculateSquareRoot(CInt(a))

End Sub

返回工作表中，单击【计算平方根】按钮，在弹出的如图9-3所示的对话框中，输入数字

25。然后，单击【确定】按钮，即可弹出如图9-4所示的效果。

图9-3 输入数字 图9-4 显示结果

注 意

“参数列表”称为实参或实元，它必须与形参保持个数相同，位置与类型一一对应。其中，实参可以是同类型的常数、变量、数组元素或表达式。

另外，在Visual Basic 中，通过WorksheetFunction 对象可使用Excel 工作表函数。例如，以下Sub 过程使用Min 工作表函数来确定单元格区域中的最小值，其代码如下： Sub UseFunction()

Dim myRange As Range

Set myRange = Worksheets("Sheet1").Range("A1:C10")

answer = Application.WorksheetFunction.Min(myRange)

MsgBox answer

End Sub

从上述的代码可以观察到，用户将变量myRange 声明为Range 对象，然后将其设置为Sheet1上的A1至C10单元格区域。指定另一个变量answer 为对myRange 应用Min 函数的结果。最后，answer 的值显示在消息框中，效果如图9-5所示。

输入

单击

结果图9-5 显示结果