錯誤時將值賦給變量

我想要做的是如果出現錯誤，某些值會被重置。類似於：錯誤時將值賦給變量

Dim r As Integer 
Dim feeder As String 
Dim origen As String 

On Error GoTo errhandler: 
For j=1 to 100 
    r = Evaluate("=MATCH(1, (C:C=""" & feeder & """) * (D:D=""" & origen & """),0)") 
Next j 

Exit Sub 

errhandler: 
r = 0 
End Sub

但是，如果出現錯誤，我該如何強制它回到For？

來源

2016-05-26 N. Pavon

首先聲明R作爲循環中的變體。然後使用'isError（r）'來確定你是否做了任何事情。 –

爲什麼它必須在循環中聲明？ –

，因爲一旦它被設置爲一個整數，它不會再接受一個錯誤。所以我們需要每次重新定義變量的大小。 –

相反ErrHanlding的，你可以使用ISERROR設置上的錯誤的r值：

Sub t1() 
    Dim feeder As String 
    Dim origen As String 
    For j = 1 To 100 
    Dim r As Variant 
    If IsError(Evaluate("=MATCH(1, (C:C=""" & feeder & """) * (D:D=""" & origen & """),0)")) Then 
    r = 0 
    Else 
    r = Evaluate("=MATCH(1, (C:C=""" & feeder & """) * (D:D=""" & origen & """),0)") 
    End If 
    Debug.Print r ' Just for you to check 
Next 

End Sub

來源

2016-05-26 22:02:14 EoinS

實際上需要「On Error Resume Next」？ – user3598756

不用謝了！@ user3598756 – EoinS

@ user3598756不，Iserror陷阱錯誤，所以它永遠不會嘗試在r中輸入錯誤 –

只需使用Resume Next聲明

Dim r As Integer 
Dim feeder As String 
Dim origen As String 

On Error GoTo errhandler: 
For j=1 to 100 
    r = Evaluate("=MATCH(1, (C:C=""" & feeder & """) * (D:D=""" & origen & """),0)") 
Next j 

Exit Sub 

errhandler: 
r = 0 
resume Next 

End Sub

來源

2016-05-26 22:13:19 user3598756

錯誤時將值賦給變量

回答

相關問題