3.6 Режим изменения пропорций затраты/прибыль в исходных данных

Для перевода Excel в ручной режим вычислений выполните команду Сервис/Параметры и в открывшемся диалоговом окне Параметры на вкладке Вычисления активизируйте переключатель Вручную в области Вычисления.

После перевода Excel в ручной режим вычислений созданные подпрограммы не выполнят возложенные на них функции. Запишите макрос выполнения процедуры перевода Excel в автоматический режим перерасчета формул. Для этого, после начала записи макроса, выполните команду вызова диалогового окна Сервис/Параметры и активизируйте переключатель Автоматически. Макрос зафиксирует все необходимые параметры вкладки Вычисления. Отредактируйте код VBA для получения только одной строки (первая строка кода на рис. 6.), в которой:

• Application - объект (сам Excel);

• Calculation - свойство объекта Application, которое может принимать значения: xlAutomatic, xlSemiautomatic и xlManual, соответствующие перечисленным режимам вычислений

Полученную строку кода затем скопируете в следующий макрос.

3.7 Подпрограмма изменения пропорций затраты/прибыль в исходных данных

Подпрограмма ИзменитьПропорцииЗатратыПрибыль (рис. 6) изменения уровня пропорций затраты/прибыль в исходных данных создается практически только методом копирования отдельных фрагментов текста кода VBA из прежде созданных подпрограмм.

До перехода к конструктору Select Case, подпрограмма переводит Excel в режим автоматического вычисления и присваивает ячейке С6 значение ячейки I5 (уровень затрат в получаемой выручке), которой управляет третий элемент управления, изменяющий значения в этой ячейке в диапазоне от нуля до 1000 с шагом 10 или 100.

Если ранее был активизирован один из режимов, о чем говорит введенный в ячейку F19 текст, то подпрограмма на основании конструктора Select Case выбирает три режима:

Режим изменения объема продаж - который указывает на то, что перед переходом к режиму изменения исходных параметров затраты/прибыль, производилось манипулирование значением изменения объема продаж и последующим подбором параметра уменьшения издержек. В таком случае изменение исходного соотношения затраты/прибыль фиксирует уровень повышения уровня продаж и производит подбор параметра изменения объема издержек, для получения такого же уровня прибыли. Для этого после первого элемента Case Is следуют три строки кода VBA, скопированные из подпрограммы УвеличениеПродаж;

Режим изменения уровня издержек - который указывает на то, что перед переходом к режиму изменения исходных параметров затраты/прибыль, производилось манипулирование изменение значением объема издержек и последующим подбором параметра изменения объема продаж. В таком случае изменение исходного соотношения затраты/прибыль фиксирует уровень изменения объема затрат и производит подбор параметра изменения объема продаж, для получения такого же уровня прибыли. Для этого после второго элемента Case Is следуют три строки кода VBA, скопированные из подпрограммы УменьшениеЗатрат;

Без включения режима - изменяется соотношение исходных параметров затраты/прибыль без всякого подбора параметров.

Рис. 6. Подпрограмма ИзменитьПропорцииЗатратыПрибыль.