InputBoxからデータを整数として解析できません（Visual Basic for Excel）

Question

ユーザーが手動で入力する値を整数として取得しようとしていますが、ユーザーが整数を入力しない可能性があることを考慮する必要があります。だから私は型の不一致のエラーをキャッチしようとしている。しかし、整数値を入力すると、型の不一致エラーが発生します。

これはこのエラーを引き起こすコードです。ここで

Dim number As Integer 
On Error GoTo error 
    number = InputBox("Enter an integer:") 
error: 
    MsgBox ("Input error. Make sure you enter an integer value.") 
    Exit Sub 

Answer 1

Application.InputBox Methodでは、返されるデータの種類を指定できます。

Sub Example1() 
    Dim number As Integer 
    number = Application.InputBox(Prompt:="Enter an integer:", Type:=1) 

End Sub 

MSDN Application.InputBox Method (Excel)

ユーザーがキャンセルした場合、0を返します。タイプ1のパラメータと Application.InputBoxので、私は標準 InputBoxを使用することを好むだろう。それを使用する方法は、別の変数で値を取得し、戻り値が条件を満たすことをテストすることです。このようにして、エラーを回避できます。

Sub Example2() 
    Dim number As Integer 
    Dim result As String 
    result = InputBox("Enter an integer:") 
    If result = "" Then 
     MsgBox "Good Bye", vbInformation, "Action Cancelled" 
     Exit Sub 
    ElseIf IsNumeric(result) Then 
     If CDbl(result) > CInt(result) Then 
      MsgBox "You entered a Decimal" & vbCrLf & "Try Again", vbInformation, "Intergers Only" 
     Else 
      number = result 
     End If 
    Else 
     MsgBox "Intergers Only" & vbCrLf & "Try Again", vbInformation, "Intergers Only" 
    End If 

End Sub 

Answer 2

一つの方法である：これは非整数番号エントリを受け入れることかかわら

Dim number    As Integer 
On Error Resume Next 
number = InputBox("Enter an integer:") 
If Err.number <> 0 Then 
    MsgBox ("Input error. Make sure you enter an integer value.") 
    Exit Sub 
End If 
On Error GoTo 0 

注意。それが懸念されるのかどうかは明らかではありません。