excel - VBA - 如何测试是否提供了可选字符串参数？

Question

这是对此的后续问题:

VB - How do I test if optional arguments are supplied or not?

如果我的输入类型是字符串(不是变体)，有什么方法可以检查它是否丢失？到目前为止我发现的最好的方法是输入一个不太可能的输入作为我的默认值。

Function func (Optional arg As String = "VeryUnlikelyInput")

    If arg = "VeryUnlikelyInput" Then
        MsgBox "NOT SENT"
    End If

End Function

Answer 1

根本不要提供默认值。那么缺少的参数将变成空指针:

Function IfDefault(Optional s As String) As Boolean
    IfDefault = (StrPtr(s) = 0)
End Function

? IfDefault()
> True

? IfDefault("aaaa")
> False

? IfDefault("")
> False

请注意，您仍然可以通过传入表单上空 TextBox 的 vbNullString、TextBox.Value 或 InputBox() 来欺骗它> 如果对话框被取消。 Application.InputBox() 当然不会有这个问题，因为它在取消时返回 False。