区分在 application.inputbox 中输入 0 和按取消

Question

我有一个宏，它从Application.InputBox 中获取一个值，然后尝试确保已将一个数值放入其中，并且没有按下取消键。

Sub test()
    Dim testvalue As Variant

    testvalue = Application.InputBox(Prompt:="Whatever", Title:="Whatever", Default:=10, Type:=1)

    If testvalue <> False Then
        MsgBox ("Test != False")
    Else
        MsgBox ("Test = False")
    End If

    If VarType(testvalue) = vbInteger Or VarType(testvalue) = vbLong Then
        MsgBox ("Numerical value")
    Else
        MsgBox ("Nonnumerical value")
    End If
End Sub

但是，似乎很难区分将 0 放入 InputBox 和按取消键。在这两种情况下，if 语句都将返回 Test = False 和 Test is a nonnumerical value。公平地说，第二个 if 语句对其他整数也是如此，但我认为使用 VarType 方法区分存储在变体中的整数和存储在其中的布尔值的可能性很小。

有什么方法可以区分 0 和 cancel 作为输入框的返回值，还是我必须制作自己的自定义表单？

尝试按照 cmets 中的建议使用 VBA 的 InputBox，无论输入什么值或按下什么按钮，都会返回“字符串”：

Sub test2()
    Dim testvalue As Variant

    testvalue = InputBox("Test")

    Select Case VarType(testvalue)
        Case vbBoolean:
            Debug.Print "Boolean"
        Case vbInteger:
            Debug.Print "Integer"
        Case vbLong:
            Debug.Print "Long"
        Case vbString:
            Debug.Print "String"
        Case vbVariant:
            Debug.Print "Variant"
    End Select
End Sub

Answer 1

显然double 也是一种数字类型>_> 将此归咎于我愚蠢，检查错误的事物并做出错误的假设。感谢 cmets 中的 rory 让我进一步检查各种函数返回的类型。

更明确地说，当在Application.InputBox 中输入一个数值时，它会返回一个Double，所以当我想要确保一个数值时，我应该检查这一点。

Answer 2

您可以使用StrPtr 而不是VarType，它只会在输入框被取消时给出0，尽管我不确定它对Application.InputBox() 有何反应。如果您只使用标准的InputBox()，但它可以完美运行，因此要检测已取消的InputBox，您可以将其添加到您的代码中：

If StrPtr(testvalue) = 0 Then
    Call MsgBox("Input cancelled.", "Cancelled")
End If

*使用此方法时需要注意的是它依赖于InputBox 中的错误行为。微软不会修复它，因为它会破坏很多人的代码，但需要注意。

Answer 3

您可以将类型调整为 1+4 并检查 Vartype

Sub test()
    Dim testvalue As Variant

    testvalue = Application.InputBox(Prompt:="Whatever", Title:="Whatever", Default:=10, Type:=5)

    If VarType(testvalue) <> vbBoolean Then
        MsgBox ("Test != False")

    Else
        MsgBox ("Test = False")
    End If

End Sub