VLookUp в Userform на Excel VBA

В настоящее время у меня проблема с моей функцией vlookup в VBA. У меня есть список с транспортными средствами в нем, и я стараюсь, чтобы он отображал смежные данные транспортного средства, которое я выбрал в своем списке, например, цена, модель и т. Д. Для отображения в моей пользовательской форме. Всякий раз, когда я нажимаю на поле списка, он говорит «Требуется объект». Спасибо за помощь. Вот мой код:

Private Sub CB_Calc_Click() SelectCar = LB_Car.Value ModelYear = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 1, False) CarPrice = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 3, False) FLCost = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 4, False) EWarranty = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 5, False) NorU = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 6, False) Worksheets.Results.Range("B1").Value = SelectCar Worksheets.Results.Range("B2").Value = ModelYear Worksheets.Results.Range("B3").Value = CarPrice Worksheets.Results.Range("B4").Value = FLost Worksheets.Results.Range("B5").Value = EWarranty Worksheets.Results.Range("B6").Value = NorU End Sub Private Sub CB_Cancel_Click() Unload Me End Sub Private Sub LB_Car_Click() ModelYear = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 1, False) Label_Year.Caption = "Model Year: " & ModelYear CarPrice = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 3, False) Label_Price.Caption = "Product Category: " & CarPrice FLCost = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 4, False) Label_Tax.Caption = "Unit Price: $" & FLCost EWarranty = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 5, False) Label_Warranty.Caption = "Unit Price: $" & EWarranty NorU = Application.WorksheetFunction.VLookup(SelectCar, Data.Range("$A$5:$F$33"), 6, False) Label_Condition.Caption = "Unit Price: $" & NorU End Sub 

Interesting Posts

Ошибка RunTime на макросе VBA

Поднять события сервера COM в excel

Логическая формула Excel для разделения элементов на разные категории

Строки строк, основанные на целочисленном значении смежной ячейки?

Манипулирование размера выборки функций в Excel

Selenium Webdriver: поле Date заполняется переданной строкой, но позже изменяется на другую дату, как только фокус изменяется

sql встроенный диапазон запросов ячеек для параметра excel 2010

Excel: как объединить два столбца с условиями

Вызвать функцию возврата Var из одного листа из другого

openpyxl – рабочий лист только для записи не может добавить таблицу

Ошибка Python XLSXwriter. Рабочая книга не закрывается правильно

Можете ли вы преобразовать скаляр в произвольный массив длины в excel

как перечислять значения в строке, где смежные ячейки пусты в excel

Excel VBA для запуска макроса в новой строке добавлен

VLOOKUP в Power Pivot

Давайте будем гением компьютера.