Я получаю сообщение об ошибке "невозможно получить свойство vlookup класса функции worksheet".InputBox просит пользователя ввести номер модели, а затем статус «2» или «3» для розничных или образовательных цен. VLookup должен искать цену в зависимости от того, что ввел пользователь.A5: A15 - модель №, B5: B15 - розничная цена, C5: C15 - образовательная цена. Диапазон цен: A5: A15
Dim strModel As String
Dim strStatus As String
Dim shtComputers As Worksheet
Dim curPrice As Currency
Set shtComputers = Application.Workbooks("T6-EX-
E3D.xlsm").Worksheets("computers")
shtComputers.Unprotect
strModel = InputBox("Enter Model #: ", Default:="C100")
strStatus = InputBox("Enter status, 2 for retail or 3 for educational: ", Default:="2")
Range("Model") = strModel
Range("Status") = strStatus
curPrice = Application.WorksheetFunction.VLookup(strModel,Range("PriceList"), strStatus, False)
Range("Price").Value = curPrice