Ошибка application.inputbox после нажатия OK с пустым вводом

Question

Я действительно искал часы и часы, но я не могу найти никаких решений.

Вы должны ввести только цифры в InputBox и MsgBox должен sppears, когда вы просто нажмите кнопку ОК без любого числа или строки ...

Первая часть была легкой, но я всегда получаю сообщение об ошибке, просто ударять ОК!

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

Это происходит потому, что вы объявляете Type для этого InputBox числом. Поэтому excel автоматически попытается исправить это. Вы можете использовать InputBox без Type и запрограммировать собственную проверку для проверки того, является ли это целым числом или нет.

В противном случае вы можете добавить это перед кодом:

Application.DisplayAlerts = False 

А затем установить его Правда после. Теперь, когда вы нажмете ОК, вам не будет предложено ввести ошибку, но InputBox не исчезнет. Вы можете добавить дополнительные инструкции в InputBox, чтобы они поняли, что ему нужен номер.

Answer 2

@mehow: как Alex D только что сказал: ваши ответы похожи ;-) Сначала я использовал код mehow, но теперь я просто создаю пользовательскую форму только с кнопкой «OK».

Private Sub Rechnen_Click() 
Dim i As Integer   ' Variable deklarieren 
Dim Sum As Integer 
Dim counter As Variant 
i = 0      ' deklariert, löst beim Kompilieren keinen Fehler aus 
Sum = 0      ' nicht deklarierte Variable löst beim Kompilieren einen Fehler aus 
counter = TextBox1.Value 
Application.DisplayAlerts = False 
If Not IsNumeric(counter) Then 
Exit Sub 
Else 
Unload Userform1 
    On Error Resume Next 
    Do Until i >= counter 

    Zahl = InputBox("Pls enter a number:", i + 1 & ". Versuch") 
    Sum = Sum + Zahl 
    i = i + 1 

    If Not IsNumeric(Zahl) Then 
    MsgBox "calculation premature cancelled!" 
    Exit Do 
    End If 

    Loop 
    Ausgabe = MsgBox("Die Summe lautet: " & Sum, vbInformation, "Ergebnis") 
    Question = MsgBox("is it enough?", vbYesNo + vbQuestion, "repeat") 
     If Question = vbNo Then 
     Userform1.Show 
     Else 
     Unload Userform1 
     Exit Sub 
     End If 
End If 
End Sub 

и так UserForm выглядит следующим образом:

Теперь программа работает нормально;) Спасибо, ребята!