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

Application. _

CountA(Sheets("Комиссионные").Range("В:В"))

вычисляет число непустых ячеек в столбце В.

14. Модель управления запасами

Рассмотрим следующую модель управления запасами ([2]). Уличный продавец покупает журналы у издательства по цене 20 руб. за штуку, а продает - по 23 руб. за штуку. В случае, если товар не удается реализовать, продавец возвращает его издательству по цене 17 руб. за штуку. Необходимо определить, сколько журналов следует закупать продавцу, чтобы его ожидаемая прибыль была максимальна.

Продавцу никогда не удавалось продать более 20 журналов, а в среднем за 37 дней объемы реализации и число соответствующих событий показаны на рис. 14.1 (для простоты учитываются только пачки по пять журналов).

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

Рис. 14.1. Модель управления запасами В ячейку ¥9 введена формула

=Г8/СУММ($Г$8 : $^8)

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

вычисляющая вероятность события. Эту формулу протаскиваем за маркер заполнения на диапазон F9: J9. Стоимость продукции вводится в ячейки D6 (Продажа), Е6 (Покупка) и F6 (Возврат) из диалоговых окон ввода (рис. 14.2) с помощью процедуры Cale, назначенной кнопке Start. Кроме того, процедура Start выводит найденные значения максимальной прибыли и оптимального объема закупки газет в диалоговое окно, представленное на рис. 14.2.

Sub Cale()

Dim г, V As Double

Range ("Продажа") .Value =

InputBox("Введите стоимость продажи") Range("Покупка").Value =

Input Box("Введите стоимость покупки") Range ("Возврат").Value =

InputBox("Введите стоимость возврата") г = Range("Максимальная прибыль").Value V = Range("Оптимальный объем").Value г = Formats "#.##")

MsgBox "Максимальная прибыль : " & г _ & Chr(13) Sc _

"Оптимальный объем: " & _ V, vbinformation, "Расчет прибыли" End Sub

В ячейках F12:J16 (см. рис. 14.1) с помощью функции пользователя Прибыль, которая будет описана ниже, вычисляются финансовые исходы при всевозможных вариантах событий покупки журналов и их реализации.


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