匹配生成“无法获取 WorksheetFunction 类的匹配属性”

Posted 2023-04-13

【中文标题】匹配生成“无法获取 WorksheetFunction 类的匹配属性”

【英文标题】：Match generates "Unable to get the Match property of the WorksheetFunction class"

【发布时间】：2019-10-22 17:35:53

【问题描述】：

我想创建一个数据库。 VBA 似乎无法识别数字。

这是我得到的错误：

无法获取 WorksheetFunction 类的 Match 属性

这是我的代码：

Private Sub CommandButton1_Click()

Dim TargetRow As Integer

TargetRow = Application.WorksheetFunction.Match(ColumnB_Menu, Sheets("Data").Range("Dyn_Onsite_Number"), 0)
MsgBox TargetRow

End Sub

这是我的工作表的图片：

现场编号 = ColumnB_Menu

【问题讨论】：

该错误意味着找不到匹配项。 ColumnB_Menu 和 .Range("Dyn_Onsite_Number") 是什么？即失败时ColumnB_Menu 的具体值是多少？

【参考方案1】：

Late 通过删除WorkSheetFUnction. 绑定匹配并测试错误：

Private Sub CommandButton1_Click()

    Dim TargetRow As Variant

    TargetRow = Application.Match(ColumnB_Menu, Sheets("Data").Range("Dyn_Onsite_Number"), 0)

    If Not IsError(TargetRow) Then
        MsgBox TargetRow
    Else
        MsgBox ColumnB_Menu & " Not Found in Range"
    End If

End Sub