本文介绍了如何创建一个自定义函数，并使用可选变量和默认值来提高代码的灵活性和可读性。通过实例演示了如何设置默认参数值，并在函数调用时根据需要覆盖这些默认值。
如何创建一个自定义函数，其包括可选变量，如果可选变量没有出现，给出默认值，下面是我找了半天，才悟出来的方法，大家指点：
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
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
