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

Question

我想创建一个数据库。似乎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

Answer 1

后期通过删除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