跟着校长学VBA之第31集:自定义函数2

hwc2ycy

这一讲主要是从函数的参数定义，参数的传递方式，可选参数，参数的缺省值，可变参数，函数的返回值

1. Function CalculateSquareRoot(NumberArg As Double) As Double
   
2.     If NumberArg < 0 Then    '评估参数。
   
3.         Exit Function    '退出调用过程。
   
4.     Else
   
5.         CalculateSquareRoot = Sqr(NumberArg)    '返回平方根。
   
6.     End If
   
7. End Function

复制代码

1. Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs())
   
2. Dim ReturnValue
   
3. '如果用如下代码调用该函数：
   
4. ReturnValue = CalcSum(4, 3 ,2 ,1)
   
5. '则局部变量被赋予以下值：FirstArg = 4，
   
6. 'OtherArgs(1) = 3，OtherArgs(2) = 2，等等。
   
7. '假设缺省数组下界 = 1。

复制代码

1. '如果函数的参数定义如下：
   
2. Function MyFunc(MyStr As String, Optional MyArg1 As _ Integer = 5, Optional MyArg2 = "Dolly")
   
3. Dim RetVal
   
4. '则可用如下代码调用该函数：
   
5. RetVal = MyFunc("Hello", 2, "World")    '提供了所有 3 个参数。
   
6. RetVal = MyFunc("Test", , 5)    '省略了参数 2。
   
7. '参数 1 和参数 3 使用了命名的参数。
   
8. RetVal = MyFunc(MyStr:="Hello ", MyArg1:=7)

复制代码

平时写代码时可留意工作表函数和VBA函数的参数提示。