- •Ход работы: (часть 1)
- •1. Создать таблицу сравнения влияния сокращения уровня затрат и увеличения объема продаж на величину получаемой прибыли
- •3.2 Режим уменьшения объема затрат
- •3.3 Описание последовательности выполнения действий подпрограммой УменьшениеЗатрат.
- •3.4 Режим увеличения объема продаж
- •3.6 Режим изменения пропорций затраты/прибыль в исходных данных
- •3.7 Подпрограмма изменения пропорций затраты/прибыль в исходных данных
- •(Часть 2) Приближение созданной модели к пользовательскому интерфейсу
- •4. Защита приложения от неосторожных действий пользователя
- •4.1 Защита рабочего листа
- •5. Создание удобного интерфейса
- •Порядок выполнения лабораторной работы
- •Содержание отчета
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. Подпрограмма ИзменитьПропорцииЗатратыПрибыль.