2 個 ON ERROR GOTO ERROR 出現錯誤

mdr0465

各位大大你好

我在"L"欄的儲存格, 用VLOOKUP在 "2019 SOC NO."  里E 的資料搜尋"成本"的D欄, 但如果成本沒有就會在"期貨" 如果再沒有找到就會顯示空格,

如成功找到配對就會在"K"欄註明在那一個活薄頁找到配對

但我用2 個 ON ERROR GOTO ERROR1  ,ON ERROR GOTO ERROR 2, 就會出現問題

請各位幫忙看看我那里出錯, 謝謝

如表達得唔好,請見諒

ikboy

個人建議應盡可能不使用 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("期貨總匯 (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 = "期貨表"
    
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

複製代碼

mdr0465

回復 2# ikboy

IKBOY 謝謝你的回覆,
但當中VLOOKUP 是有配對成功的, 但是公式是沒有跳到07,08,09段的公式, 請問我應如何修改呢??

謝謝幫忙

ikboy

首先你的程式碼 Worksheets("2019 TRADING SOC NO.") 跟本不存在
On Error Resume Next...功能是讓程式不理會錯誤繼續跑下去, On Error Goto ..跑到指定行繼續跑

1. Sub crosscheck_new_item()
   
2. Application.Calculation = xlCalculationManual
   
3. Dim i As Long, d As Object
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For Each s In Sheets
   
6.     d(s) = "" '創建字典收氣所有頁名
   
7. Next
   
8. If Not d.exists("2019 TRADING SOC NO.") Then GoTo error1    '如果頁名"2019 TRADING SOC NO."不存在跑到指定行繼續跑
   
9. 
   
10. 'On Error GoTo error1
    
11. Worksheets("2019 TRADING SOC NO.").Select
    
12. For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    
13.     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)
    
14.     Worksheets("2019 TRADING SOC NO.").Range("M" & i).Value = "成本表"
    
15.     Next
    
16. error1:
    
17. If Not d.exists("2019 TRADING SOC NO.") Then GoTo error2
    
18. 'On Error GoTo error2
    
19.     Worksheets("2019 TRADING SOC NO.").Range("L" & i).Value = WorksheetFunction.VLookup(Worksheets("2019 TRADING SOC NO.").Range("E" & i).Value, Worksheets("期貨總匯 (2020.09.16)").Range("A:G"), 7, 0)
    
20.     Worksheets("2019 TRADING SOC NO.").Range("M" & i).Value = "期貨表"
    
21. error2:
    
22.     If Not d.exists("2019 TRADING SOC NO.") Then GoTo 1000
    
23.     Worksheets("2019 TRADING SOC NO.").Range("L" & i).Value = ""
    
24. 1000
    
25. Application.Calculation = xlCalculationAutomatic
    
26. End Sub

複製代碼

mdr0465

回復 4# ikboy

Ikboy
謝謝你的回覆，

mdr0465

回復 5# mdr0465

軒云熊師兄,

請查閱,謝謝幫忙

謝謝

准提部林

檔案無法開, 大約抓一下
Sub TEST_A01()
Dim Sht As Worksheet, S1, S2, TC, M(2)
On Error Resume Next
Set Sht = Sheets("2019 TRADING SOC NO.")
If Sht Is Nothing Then MsgBox "工作表〔2019 TRADING SOC NO.〕不存在!  ": Exit Sub
On Error GoTo 0
'------------------------------
For i = 2 To Sht.Range("A" & Rows.Count).End(xlUp).Row
    S1 = "":  S2 = "":  TC = Sht.Range("E" & i).Value
    On Error Resume Next
    M(1) = Application.VLookup(TC, Sheets("成本 (2020.09.28)").Range("D:AL"), 35, 0)
    M(2) = Application.VLookup(TC, Sheets("期貨總匯 (2020.09.16)").Range("A:G"), 7, 0)
    On Error GoTo 0
    For j = 1 To 2
        If Not IsError(M(j)) Then S1 = M(j): S2 = Array("成本表", "期貨表")(j - 1): Exit For
    Next j
    Sht.Range("L" & i) = S1
    Sht.Range("M" & i) = S2
Next i
End Sub


'===============================

軒云熊

回復 6# mdr0465

不知道 是不是你要的  我有把準大寫的 放上去 如果不是 請告訴我問題出在哪裡 謝謝 我也是順便練習

javascript:;

軒云熊

回復 6# mdr0465
我把位置改了一下 因為 結果跟準大的不一樣 所以改了一下 你再看看吧


javascript:;

mdr0465

回復 7# 准提部林

准提部林版主
這就是我想要的表達方式
萬分感謝你的幫忙
   
謝謝