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