Question

我有一个表格来输入值，提交给工作表。

为避免重复数据，我使用vlookup函数在工作表上搜索值的范围并显示一条消息（如果该值已存在）。

当我输入数据表中已经存在的值时，我的代码就会起作用。

当我输入新值时，会出现以下错误：

无法获取WorksheetFunction类的VLookup属性

我认为这与vlookup＃N / A输出有关。

Dim MyWorksheet As Worksheet
Set MyWorksheet = ThisWorkbook.Worksheets("DATA")

If Me.tbx_DINumber.Value <> Application.WorksheetFunction.VLookup(Me.tbx_DINumber.Value, MyWorksheet.Range("D3:D100"), 1, False Then

    .Cells(myFirstBlankRow, 4) = Me.tbx_DINumber.Value

Else

If Me.tbx_DINumber.Value = Application.WorksheetFunction.VLookup(Me.tbx_DINumber.Value, MyWorksheet.Range("D3:D100"), 1, False) Then MsgBox "DI NUMBER ALREADY EXISTS IN THE DATABASE!"

Answer 1

如果Me.tbx_DINumber.Value <> Application.WorksheetFunction.VLookup（Me.tbx_DINumber.Value，MyWorksheet.Range（“ D3：D100”），1，False）然后

应该是

如果IsError（Application..VLookup（Me.tbx_DINumber.Value，MyWorksheet.Range（“ D3：D100”），1，False））然后

使用Vlookup查找重复值

1 个答案: