VBA의 errorhandler에서 for 루프로 돌아 가기

Question

VBA의 Errorhandler에서 for 루프로 돌아 오는 방법은 무엇입니까?

for x = 1 to 1000 
    On error goto errorhandler 
    Sheets("Sheet1").Cells(x, "B") = x * Sheets("Sheet1").Cells(x, "A").Value 
continue: 
Next 

Exit sub 

Errorhandler: 
    Sheets("Sheet1").Cells(x,"B") = "Error occured" 
    Resume continue 

이것은 작동하지 않습니다. 나는 for 루프에서 에러가 발생하면 "Error occured"셀에 쓰기를하고 루프를 계속하기를 원한다. 그것을하는 방법? 나는 그것을 테스트 할 때

Answer 1

On Error GoTo Errorhandler 'put once, outside loop 
    For x = 1 To 1000 
    'use value2 if you dont work with date/time 
     Sheets("Sheet1").Cells(x, "B").Value2 = x * Sheets("Sheet1").Cells(x, "A").Value2 
    Next 

    Exit Sub 

Errorhandler: 
    Sheets("Sheet1").Cells(x, "B").Value2 = "Error occured" 
    Resume Next '<< Answer to original question. The Resume to continue label should also work 

Answer 2

코드는 작동하므로 나는 그러나 당신은 그것의 가독성을 향상시킬 수있는 GoTo 문을 방지하기 위해 코드를 리팩토링 고려할 수 있습니다, 당신이 발생하고 특정 문제가 무엇 확실하지 않다 :

Sub foo() 
Dim x As Long 
Dim val 

For x = 1 To 1000 
    On Error Resume Next 
    val = x * Sheets("Sheet1").Cells(x, "A").Value 
    If Err.Number <> 0 Then 
     Sheets("Sheet1").Cells(x, "B") = "Error occured" 
    Else: 
     Sheets("Sheet1").Cells(x, "B") = val 
    End If 
    On Error GoTo 0 
Next 


End Sub 

을