VBA Excel, niedopasowanie do inputbox As Integer

Question

mój kod

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 

Jeśli mogę zostawić puste pole, Excel zwraca błąd Type Mismatch. Chciałbym wyświetlić wiadomość.

Answer 1

Od a jest Integer, nie może zawierać String lub być Empty. Użyj Variant a następnie sprawdzić, co zostało zwrócone:

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

Masz a zdefiniowane jako Integer. Integer nie może być pusty. Użyj Variant zamiast 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