Excel-VBA Range.Find方法錯誤處理

Question

我正在使用range.find方法在第一行中找到具有特定值的單元格。 匹配時，代碼可以正常工作。 如果沒有匹配項，則代碼將引發錯誤，如下面的屏幕快照所示。

我們需要為此方法進行錯誤處理嗎？ 我以為它只會返回Null或Nothing。 謝謝您的幫助！

Answer 1

用這個。 如果您直接想返回一個空范圍的列號，它將顯示錯誤。

Sub findtest() 
dim c as long
dim rng as range
   Set rng = ActiveSheet.Rows("1:1").Find(What:="John Smith", _
        After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

    If Not rng Is Nothing Then c = rng.column : Debug.Print c
end sub