vba - 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含めることはできません。を使用して、何が返されるかを確認します。StringEmptyVariant

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