[已解决]Find函数在找不存在值的时候，怎么避免出错

林木水

问题描述：
    vba使用find函数找某值，如果值在查找范围里面有，会输出对应结果；但是如果找不到某值，就会弹窗出错。
想要结果：
   在不使用on Error Resume Next语句的情况下，运行后面代码，并且体现find最后输出的结果是一个错误值
   比如 a = Range("a:a").Find("D").Address，而D不存在，让a输出结果为一个错误值

请各位老师帮忙解惑，万分感谢，祝大家顺心！

附件为例题：

Sub FIND报错()
'  On Error Resume Next
    Dim a
    '1)存在"A"的情况没问题
'    a = Range("a:a").Find("a").Address
'    MsgBox a
    '2)不存在的时候，不能运行下一条
    a = Range("a:a").Find("D").Address
    MsgBox a
End Sub

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-12-10 12:38

Option Explicit
Sub demo()
   Dim r As Range, a
   Set r = Range("a:a").Find("a")
   If r Is Nothing Then a = "Not Found" Else a = r.Address
   MsgBox a
   Set r = Range("a:a").Find("d")
   If r Is Nothing Then a = "Not Found" Else a = r.Address
   MsgBox a
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Option Explicit
Sub demo()
   Dim r As Range, a
   Set r = Range("a:a").Find("a")
   If r Is Nothing Then a = "Not Found" Else a = r.Address
   MsgBox a
   Set r = Range("a:a").Find("d")
   If r Is Nothing Then a = "Not Found" Else a = r.Address
   MsgBox a
End Sub

祝順心，南無阿彌陀佛！

林木水

cutecpu 发表于 2021-12-10 12:38
Option Explicit
Sub demo()
   Dim r As Range, a

可以，谢谢。