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