3.4 Режим увеличения объема продаж
К следующему элементу управления по изменению уровня объема продаж предъявлены следующие требования:
изменение содержимого ячейки С9 с шагом 1% и 10%;
начальное (минимальное) значение 0%;
максимальное значение 250%;
быстрое перемещение в начальное или конечное значение, а также в любую точку выбранного диапазона;
автоматический подбор параметра (значения) в ячейке С14, показывающий - на сколько процентов необходимо уменьшить уровень издержек, чтобы достичь такого же уровня прибыли при любом исходном соотношении продажи/затраты от нуля до 100%;
формирование текста - в состоянии какого режима расчета находится созданная модель.
Отличие элемента управления изменения уровня объема реализации в том, что он помещает результат в ячейку I10 и ему назначен макрос УвеличениеПродаж (рис. 5).
Перед записью макроса введите формулы в ячейки С6, С9 и С14:
=I5
=I10/100
=(C6-C16)/C6
и в ячейку F19 введите текст Режим изменения объема продаж.
3.5 Описание последовательности выполнения действий подпрограммой УвеличениеПродаж:
проверить содержимое ячейки F19 и если в нее введен текст Режим изменения уровня издержек, то выполнить подпрограмму ИсходноеСостояние, которая обновит все формулы таблицы (приведет в исходное состояние) и очистит содержимое ячейки F19 с введенным текстом. После этого переходит к выполнению следующей строки кода VBA;
если же в ячейке F19 не содержится ничего или введены другие данные, то перейти к выполнению следующей строки, игнорируя выполнение подпрограммы УвеличениеПродаж;
ввести в ячейку F19 текст Режим изменения уровня издержек;
в ячейку С6 ввести ссылку на ячейку I6 (заданный уровень затрат в выручке при исходном состоянии). Содержимое ячейки I6 изменяется при помощи следующего элемента управления и будет раскрыто далее.
в ячейку С9 (процент увеличения объема продаж) ввести формулу деления содержимого ячейки I10 на 100. Содержимое ячейки I10 изменяется с помощью элемента управления Полоса прокрутки;
в ячейку С14 (процент изменения уровня затрат) вводится формула, производящая вычитание значения затрат, полученное после изменения издержек (ячейка С16) из значения затрат в исходном состоянии (ячейка С6), после чего результат делится на сумму затрат исходного состояния (ячейка С6);
значению (Value) в ячейке С16 присваивается прежнее значение этой же ячейки, которое находилось в ней до выполнения подпрограммы за минусом значения, возвращаемого формулой в ячейке С21, которая сравнивает полученную дополнительную прибыль от изменения уровня объема продаж.
Таким образом, изменяя при помощи элемента управления значение увеличения объемов продаж на определенный процент по сравнению с исходными данными, в ячейке С14 будет виден уровень, на который необходимо уменьшить затраты, чтобы достичь такого же увеличения дополнительно полученной прибыли.
Рис. 5 Подпрограмма УвеличениеПродаж