如何处理cells.find找不到搜索数据时的情况

newbie1999

比如说:
···
range("a1").select
cells.find(各种参数).activate
···
运行时，当查找的关键词不存在时，就会出现程序错误：运行时错误91，对象变量或with块变量未设置
如何应对这种情况？
我的目标是：如果找不到查找对象，就给出msgbox “输入错误，查无此项”

jiangxiaoyun

应该是set rng= 单元格.find。。。。。。。。。。。。
找不到rng就是nothing，if判断一下

newbie1999

jiangxiaoyun 发表于 2017-12-11 08:39
应该是set rng= 单元格.find。。。。。。。。。。。。
找不到rng就是nothing，if判断一下

刚试了下
set rng=rang("b1").find(....)
if rng = nothing then
      ......
end if

运行后会出现：编译错误：对象使用无效
问题就出在那个nothing。。。

newbie1999

朱荣兴 发表于 2017-12-11 09:00
if rng is nothing then

嗯 自己改过来了，谢谢各位大神

zmm101

newbie1999 发表于 2017-12-11 09:02
嗯 自己改过来了，谢谢各位大神

你好，你后面是怎么改的。执行到SET RNG这句已经跳出 错误提示了，后面的IF没效果啊

cui26896

我下载过楼主的原帖，的确存在此问题。原因不是find语句的问题，你把原数据格式改为文本或是数值类型，错误就不存在了。为什么在会计专用格式下查找错误，找不到原因。

125675117

最后完整的代码是什么？

Qs18

Public Sub 查询1()
    Dim st, i
    st = Sheet1.Range("c3").Value
    On Error GoTo 100
    i = Application.WorksheetFunction.Match("*" & st & "*", Sheet4.Range("k:k"), 0)

    Sheet4.Activate
    Sheet4.Cells(i, 2).Select
    Exit Sub
100
  MsgBox "没有查找到相应信息请核对后重新输入！"
End Sub
Public Sub 查询2()
    Dim st, i
    st = Sheet1.Range("c3").Value
    On Error GoTo 100
    i = Application.WorksheetFunction.Match("*" & st & "*", Sheet5.Range("k:k"), 0)

    Sheet5.Activate
    Sheet5.Cells(i, 2).Select
    Exit Sub
100
  MsgBox "没有查找到相应信息请核对后重新输入！"
End Sub