Visual Basic for Applications. Практика. Нагина Е.К - 14 стр.

     ReDim CodeGood(Nproducts)
     ReDim Price(Nproducts)
        For i = 1 To Nproducts
            CodeGood (i) = .Offset (i,0)
            Price (i) = .Offset (i,1)
        Next I
   End With
‘ Ввод кода товара пользователем
     FindCode = InputBox (“Введите код товара (с
         большой буквы и четырьмя цифрами.”)
‘ Поиск кода товара в списке. Сохранение найденной
цены товара.
   Flag = False
   For i = 1 To Nproducts
      If CodeGood (i) = FindCode Then
           Flag = True
           FindPrice = Price (i)
           Exit For
      End If
   Next i
‘ Вывод сообщения в окно сообщения в зависимости от
значения логической переменной Flag.
     If Flag Then
        MsgBox “Товар с кодом ” & FindCode _
            & “ стоит ” & Format (FindPrice, _
            “0.00р.”), vbInformation, “Товар найден”
     Else
        Msgbox “Товара с кодом ” & FindCode _
          & “нет в списке”, vbInformation, “Товар _
          не найден”
     End If
End Sub

9. Запуск процедуры оформить кнопкой, расположенной на рабочем лис-
   те, там же, где расположен список. Для этого вывести на экран панель
   инструментов Формы. Четвертый элемент управления этой панели
   предназначен для создания кнопок, которые запускают процедуры -
   макросы. Для создания кнопки щелкните на кнопке панели инструмен-
   тов и нарисуйте прямоугольную кнопку на листе «Цены». Вам будет
   предложено назначить макрос для данной кнопки. Это нужно будет
   сделать немедленно. Затем ввести название для этой кнопки «Поиск це-
   ны». Для запуска программы нужно просто щелкнуть на этой кнопке.


                                  14