☰

无法获取 WorksheetFunction 类的 VLookup 属性

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 worksheet-function
无法获取 WorksheetFunction 类的 VLookup 属性

我想在 excel 中实现条形码查找器，因此我会根据项目所属的组将项目名称和条形码放在单独的工作表中。用户单击单选按钮（选择组 1、组 2 或其他），列表框的填充范围将设置为以下之一我定义的动态名称范围。

在此处输入图片描述

然后，用户单击按钮以复制相应项目的条形码。以下是与该按钮关联的宏：

Sub Get_Barcode()
    Dim objData As New DataObject
    Dim barcode As String
    On Error GoTo Errorcatch
    barcode = Application.WorksheetFunction.VLookup(ListBox1.Text, ListBox1.ListFillRange, 1, False)
    objData.SetText barcode
    objData.PutInClipboard
    MsgBox "Barcode " & barcode & " copied to clipboard"
Errorcatch:
MsgBox Err.Description
End Sub

问题是它显示了一个Unable to get the VLookup property of the WorksheetFunction class，我不知道我做错了什么......

答案1

解决了。

将原始代码中的相应行更改为以下内容：

条形码=Application.VLookup(ListBox1.Text,ActiveWorkbook.Names(ListBox1.ListFillRange).RefersToRange, 2, False)

相关内容