Function Стоимость (Цена, Количество, Сорт)
If Количество < 500 And Сорт = 1 Then
Стоимость = Цена * Количество
ElseIf Количество < 500 And Сорт = 2 Then
Стоимость = Цена * Количество * (1 - 0.1)
ElseIf Количество >= 500 And Сорт = 1 Then
Стоимость = Цена * Количество * (1 - 0.1)
Else
Стоимость = Цена * Количество * (1 - 0.2)
End If
End Function
6. Снять защиту с ячеек, с которыми связаны элементы управления.
7. Формулы скрыть.
8. Скрыть столбцы, содержащие вспомогательные данные.
9. Создать и назначить кнопке «Расчет» следующий макрос
Sub Расчет()
Цена = Range("B2")
Количество = Range("B3")
Сорт = Range("B4")
Range("B5").Value = Стоимость(Цена, Количество, Сорт)
End Sub
10. Защитить лист.