VBA Excel，輸入框不匹配為整數

Question

我的代碼

Dim a As Integer
a = InputBox("Enter the number", "Program", "", 7000, 6000)
If a = Empty Then
    ' do code...
Else
    MsgBox "Enter the number."
End If

如果我留下一個空字段，Excel將返回Type Mismatch錯誤。 我想顯示一條消息。

Answer 1

由於a是Integer ，因此它不能包含String或為Empty 。 使用Variant然后檢查以查看返回的內容：

Dim a As Variant
Dim b As Integer

a = InputBox("Enter the number", "Program", "", 7000, 6000)

If Not IsNumeric(a) Then
    'a is not a number
Else
    'a is a number and can be converted to Integer
    b = CInt(a)
End If

Answer 2

您有a定義為Integer 。 Integer不能為空。 使用Variant而不是Integer ：

Dim a As Variant
a = InputBox("Enter the number", "Program", "", 7000, 6000)
If a = Empty Then
    ' do code...
Else
    MsgBox "Enter the number."
End If