除了使用on error resume next, 如何不顯示錯誤

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-7-3 14:29 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-7-3 15:03 編輯

回復 1# 2# enoch

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xlrow As Integer, xlLook As Variant
If Target.Column <> 2 Then Exit Sub
xlrow = Target.Row
If Cells(xlrow, "A") <> "" Then
'xlLook = Application.WorksheetFunction.VLookup(Cells(xlrow, "B"), [data], 1, False)
'使用工作表函數 Application.WorksheetFunction 如傳回錯誤值系統會回應執行上的錯誤中段程式
xlLook = Application.VLookup(Cells(xlrow, "B"), [data], 1, False)
'但不加上WorksheetFunction 如傳回錯誤值系統不會回應執行上的錯誤
'但變數型態需設為 Variant
Cells(xlrow, "D") = IIf(Not IsError(xlLook), xlLook, "找不到")
End If
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-7-4 16:08 | 顯示全部帖子

回復 5# enoch
Application.VLookup 等同 Application.WorksheetFunction.VLookup
差別在函數傳回錯誤值時, 前者不加WorksheetFunction, vba不會產生程式上的錯誤值

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。