Question

我刚刚写了一个带有两个UserForms的七页宏，这是一个很美的东西。有两个数据库，左边的数据库比右边的数据库长。

我使用变量DDataa1和VBA函数：

Sub SSearchh()
... code ...
Cells.Find(What:=DDataa1, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
... code ...
End Sub

除了没有要找到的DDataa1之外，它完美地工作。（也就是说，左手列表中正在搜索的右侧列表中没有变量。）

在这种情况下，Macro就会停止。我想抓住这个＆＃34;未找到的数据＆＃34;事件并编写更多特定于此故障的代码，但此函数似乎不会生成True / False条件。

特别协助将不胜感激

Answer 1

你可以尝试

Dim FindRange As Range
Set FindRange = Cells.Find(What:=DDataa1, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If FindRange Is Nothing Then
    ' do error handling here
Else
    FindRange.Activate
End If

VBA找到，如何找不到任何内容

1 个答案: