Не удалось получить свойство VLookup класса WorksheetFunction

0

Я хочу реализовать средство поиска штрих-кодов в Excel, поэтому имена элементов и штрих-коды на отдельных листах располагаются в зависимости от того, к какой группе принадлежит элемент. Пользователь нажимает кнопку-переключатель (выбирает «Группа 1», «Группа 2» и т. Д.), И диапазон заполнения списка устанавливается на одну из динамические диапазоны имен, которые я определил ,

enter image description here

Затем пользователь нажимает кнопку, чтобы скопировать штрих-код для соответствующего элемента. Вот макрос, связанный с кнопкой:

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 и я не знаю, что я делаю не так ...

lekroif
источник

Ответы:

1

Решил это.

Изменена соответствующая строка в исходном коде со следующим:

штрихкод = Application.VLookup (ListBox1.Text, ActiveWorkbook.Names (ListBox1.ListFillRange) .RefersToRange, 2, False)

lekroif
источник