当变量类型输入错误时,重新运行InputBox

Application.InputBox Type Type:=1 然后只允许数值。

密码 :

Dim qm As Integer

qm = Application.InputBox("Wie viele Quadrat Meter hat die Wohnung?" _
            & vbLf & "Bitte geben sie die QM Zahl an.", "Angabe", Type:=1)

试试下面的方法

Sub Demo()
    Dim qm As String
    qm = 0
Test1:
    qm = InputBox("Enter value")
    If Not IsNumeric(qm) Then GoTo Test1
End Sub

声明 qm String 并检查其是否为数字。那你就必须转换 Integer 使用 CInt() .

您可以替换 If IsError(qm) Then GoTo Test1 On Error GoTo Test1 和 On Error GoTo 0 重置错误处理程序。

详情请参见 https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/on-error-statement

有多种方法可以解决这个问题。我建议将变量定义为 variant

dim answer as variant, qm as integer
do while true
    answer = InputBox(...)
    if isNumeric(answer) then
        qm = cInt(answer)
        exit do
    endif
loop

您可以设置一个事件,以在每次更改文本框时验证其内容。我检查了这是一个数字,但你可以验证你需要的任何其他条件。

Private Sub TextBox1_Change()
  validator = IsNumeric(TextBox1.Value)
  If validator = False Then
    MsgBox "WARNING! You must enter a number!"
    TextBox1.BackColor = &HFF8&
  End If
End Sub