如何创建一个自定义函数,其包括可选变量,如果可选变量没有出现,给出默认值,下面是我找了半天,才悟出来的方法,大家指点:
Function H(s As String, Optional Index As Integer = -1, Optional I2 As Integer = -1) As Variant
If Index = -1 Then
Index = 100 'Missing Value
Else
H = Index
End If
If I2 = -1 Then
I2 = 1000 'Missing Value
Else
H = Index
End If
H = Index + I2
End Function
Sub tests()
MsgBox H("a", , 2000)
End Sub