Question

在Excel中,利用VBA中的Find函数进行查询的问题，请高手指点。

在Excel中，利用VBA中的Find函数进行查询，当要查询的内容找不到时，会弹出对话框，怎样能使对话框不弹出呢？

Answer 1

你要做什么呢？
如 set rng = range("A:A").find("查找的内容") 这个不管找到找不到都不会弹出对话框的。找不到时rng=nothing

Answer 2

在你的FIND语句之前加入下面这句：
Application.DisplayAlerts = False
在你的FIND语句之后加入下面这句：
Application.DisplayAlerts = True

Application.DisplayAlerts =False 这句的意思是禁止弹出对话框。但要记得在执行完查询后恢复。

Answer 3

Sub aa()
on error resume next
Set c = Range("B4").Find("你要查找的内容")
End Sub

on error resume next ：这一句的意思就是找不到时候继续运行
不光用在FIND函数也可以用在其他的函数或者代码中

Answer 4

Sub aa()
Set c = Range("B4").Find("你要查找的内容")
If Not c Is Nothing Then
你的代码
End If
End Sub

Answer 5

有专门的软件 做的
呵呵