エラーハンドラでのエラー処理

Question

以下のコードを使用しています。入力ボックスのキャンセルボタンをクリックすると、エラーハンドラがエラーを処理しています。

エラーハンドラでエラーが再度発生した場合、そのエラーはエラーハンドラによって処理されません。

Sub calculateroot() 

    Dim msg As String, t as Integer 
    On Error GoTo myhandle 
    Dim inp As Integer, sql As Single 
    inp = InputBox("Enter the number to find the square root") 
    sql = Sqr(inp) 
    Exit Sub 
myhandle: 
    t = InputBox("Is this recursive ?") 
End Sub 

エラーハンドラで生成されたエラーを処理するには、どのような変更を行う必要がありますか？

Answer 1

あなたがエラーハンドラをリセットする必要があり、その後、新しいものを設定します。

Sub calculateroot() 

    Dim msg As String, t As Integer 
    On Error GoTo myhandle 
    Dim inp As Integer, sql As Single 
    inp = inputbox("Enter the number to find the square root") 
    sql = Sqr(inp) 
    Exit Sub 
myhandle: 
    On Error GoTo -1 
    On Error GoTo myhandle2 
    t = inputbox("Is this recursive ?") 
    MsgBox t 
    Exit Sub 
myhandle2: 
    MsgBox "myhandle2" 
End Sub 

Answer 2

あなたが再開する必要がある場合は、この嫌なコードは動作します：

`sql`と`トンです

On Error Resume Next 
parm = "bla" 
DoSomething(parm) 
If Err.Number > 0 Then 
    Err.Clear 
    parm = "oldbla" 
    DoSomething(parm) 
End If 
If Err.Number > 0 Then 
    Err.Clear 
    parm = "evenolderbla" 
    DoSomething(parm) 
End If