Я хочу реализовать средство поиска штрих-кодов в 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 ответ1

1

Решил это.

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

штрих-код = Application.ВПР (ListBox1.Текст, ActiveWorkbook.Имена (ListBox1.ListFillRange).RefersToRange, 2, False)

|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .