vba - VBA 中的应用程序匹配

Question

我正在使用“Application.match”来查找工作表的 AD 列是否包含“1”。

但是每当我尝试运行我的代码时，“Else”条件总是为真。虽然我希望它进入“If”条件，但因为 AD 列有一个值为“1”的单元格。

AD 列中单元格的值大多是公式的结果，除了 AD1 具有字符串“检查标题和作者是否匹配”和 AD2 具有值“0”。

问题是什么。它的解决方案是什么？

我希望您能提出一个仍然使用“.match”方法的解决方案。这是因为据我了解，“.match”方法返回匹配项在范围内的相对位置。我计划稍后在我的代码中使用该值。

Private Sub CmdLocateDta_Click()

Dim SearchColumn As Integer

If Not IsError(Application.Match(1, "AD:AD", 0)) Then
    SearchColumn = Application.Match(1, "AD", 0)
    MsgBox "Data has been located." & vbNewLine & _
           "You can now input the Lending Information below."
Else
    MsgBox "There seems to be no such book in the Database." & _
            vbNewLine & "Please re-check your input."
End If

End Sub

Answer 1

您需要指定在两个匹配项中搜索的范围。

Application.Match(1, ws.range("AD:AD"),0)

其中 ws 是您的工作表。