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. Защитить лист.