excel - 使用空输入单击确定后 application.inputbox 错误

Question

我真的搜索了几个小时，但我找不到任何解决方案。

您应该只在输入框中输入数字，并且当您在没有任何数字或字符串的情况下点击 ok 时应该会出现一个 msgbox...

第一部分很简单，但我总是点击 OK 就会收到一条错误消息!

Public Sub test()
Dim vntReturn As Variant
vntReturn = Application.InputBox("Bitte Wert eingeben", "Eingabe", , , , , , 1)
If StrPtr(vntReturn) = 0 Then
    MsgBox "Abbrechen gedrückt"
Else
    If vntReturn = False Then
        MsgBox "Nix eingegeben"
    Else
        MsgBox vntReturn
    End If
End If
End Sub

Answer 1

发生这种情况是因为您将此 InputBox 的类型声明为一个数字。所以excel会自动尝试纠正这个。您可以使用不带类型的 InputBox 并编写自己的验证程序来检查它是否为整数。

否则，您也可以在代码之前添加:

Application.DisplayAlerts = False

然后将其设置为 True 之后。现在，当您点击确定时，您将不会收到错误提示，但 InputBox 不会消失。您可以向 InputBox 添加额外的指令，以明确它需要一个数字。