2 個 ON ERROR GOTO ERROR 出現錯誤
- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 17
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-11-19
|
個人建議應盡可能不使用 On Error..- Sub crosscheck_new_item()
- Application.Calculation = xlCalculationManual
- Dim i As Long
- On Error Resume Next
- Worksheets("2019 TRADING SOC NO.").Select
- If Err Then Err.Clear: GoTo error1
- For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
- 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)
- Worksheets("2019 TRADING SOC NO.").Range("M" & i).Value = "成本表"
- Next
- error1:
- 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)
- If Err Then Err.Clear: GoTo error2
- Worksheets("2019 TRADING SOC NO.").Range("M" & i).Value = "期貨表"
-
- error2:
- Worksheets("2019 TRADING SOC NO.").Range("L" & i).Value = ""
- If Err Then MsgBox "Error has found"
- Application.Calculation = xlCalculationAutomatic
- End Sub
|
|
|
|
|
|
|
|
發表於 2020-10-5 17:19
| 