ikboy

­Ó¤H«ØijÀ³ºÉ¥i¯à¤£¨Ï¥Î On Error..

1. Sub crosscheck_new_item()
   
2. Application.Calculation = xlCalculationManual
   
3. Dim i As Long
   
4. On Error Resume Next
   
5. Worksheets("2019 TRADING SOC NO.").Select
   
6. If Err Then Err.Clear: GoTo error1
   
7. For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
   
8.     Worksheets("2019 TRADING SOC NO.").Range("L" & i).Value = WorksheetFunction.VLookup(Worksheets("2019 TRADING SOC NO.").Range("E" & i).Value, Worksheets("¦¨¥» (2020.09.28)").Range("D:AL"), 35, 0)
   
9.     Worksheets("2019 TRADING SOC NO.").Range("M" & i).Value = "¦¨¥»ªí"
   
10.     Next
    
11. 
    
12. error1:
    
13.     Worksheets("2019 TRADING SOC NO.").Range("L" & i).Value = WorksheetFunction.VLookup(Worksheets("2019 TRADING SOC NO.").Range("E" & i).Value, Worksheets("´Á³fÁ`¶× (2020.09.16)").Range("A:G"), 7, 0)
    
14.     If Err Then Err.Clear: GoTo error2
    
15.     Worksheets("2019 TRADING SOC NO.").Range("M" & i).Value = "´Á³fªí"
    
16.    
    
17. error2:
    
18.     Worksheets("2019 TRADING SOC NO.").Range("L" & i).Value = ""
    
19.     If Err Then MsgBox "Error has found"
    
20. 
    
21. Application.Calculation = xlCalculationAutomatic
    
22. End Sub

½Æ»s¥N½X