Optional是在定义参数时表明该参数可选。然后用IsMissing来判断调用函数时是否传入改参数。见下例:
Dim ReturnValue ' 下列语句调用用户自定义函数。 ReturnValue = ReturnTwice() ' 返回 Null。 ' 函数过程定义。 Function ReturnTwice(Optional A) If IsMissing(A) Then ' 如果参数丢失,则返回 Null。 ReturnTwice = Null Else ' 如果参数出现,则返回两倍的值。 ReturnTwice = A * 2 End If End Funciton |