Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.60
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.60

=В9-В7.

Суммарная прибыль вычисляется в ячейке В12 по формуле

=В10*В11.

Менеджер пытается предсказать суммарную прибыль, однако у него нет точных сведений о том, каковы будут почасовая оплата труда, стоимость единицы материала и количество материалов. Эти данные определяются по трем сценариям, приведенным в табл. 13.1.

Таблица 13.1. Возможные варианты

Показатель

Сценарии

Почасовая оплата

Цена единицы материала 1

Цена единицы материала2

Количество материала 1

Количество материала2

Следующие три процедуры, связанные с соответствующими кнопками, осуществляют ввод требуемых значений в ячейки таблицы.

Sub Вариант_1()

Range("Стоимость_услуг") = 23 Range("Стоимость_материала_1") = 62 Range("Стоимость_материала_2") = 32 Range("Количество_материала_1") = 5 Range("Количество_материала_2") =3

End Sub

Sub Вариант_2()

Range("Стоимость_услуг") =29 Range("Стоимость_материала_1") = 55 Range("Стоимость_материала_2") = 24 Range("Количество_материала_1") = 3 Range("Количество_материала_2") = б

End Sub

104 Программирование в среде Visual Basic for Applications

Sub Вариант_3()

Range("Стоимость_услуг") = 31

Range("Стоимость_материала_1") = 59

Range("Стоимость_материала_2") = 27

Range("Количество_материала_1") = 3

Range("Количество_материала_2") = 4 End Sub

Данную задачу составления сценариев можно решить и более изящно с помощью следующей программы.

Sub Товар (a, pi, р2 As Double, nl, n2 As Integer)

Range("Стоимость_услуг") = a

Range("Стоимость_материала_1") = pi

Range("Стоимость_материала_2") = p2

Range("Количество_материала_1") = nl

Range("Количество_материала_2") = n2 End Sub

Sub Вариант_1()

Товар 23, 62, 32, 5, 3 End Sub

Sub Вариант_2()

Товар 29, 55, 24, 3, б End Sub

Sub Вариант_3()

Товар 31, 59, 27, 3, 4 End Sub

Рассмотрим еще один пример составления сценариев - начисление комиссионных ([2]).


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta