На этом шаге мы рассмотрим макрос, реализующий указанную задачу.
В процессе описания проводимых расчетов по кредитной линии были созданы небольшие макросы, с помощью которых весь описанный цикл может быть автоматизирован. Получились различные элементы как в конструкторе, из которых можно собрать нужную подпрограмму. Запишите последовательность выполнения подпрограмм ссылками на их имена.
Рис.1. Подпрограмма УточненыйРасчетКредитнойЛинии
Последовательность выполнения полного цикла расчетов в созданной модели
Задача созданной подпрограммы УточненныйРасчетКредитнойЛинии - последовательно передавать выполнение различных процедур другим подпрограммам. Она формируется в Редакторе Visual Basic, в основном, методом копирования и вставки в необходимой последовательности, имен подпрограмм, которых насчитывается около 20-ти.
В процессе выполнения последовательности операций будут активизироваться различные рабочие листы, а в них ячейки и диапазоны. И если наблюдать на мониторе за выполнением операций, то глаза могут устать, а компьютеру требуются дополнительные ресурсы для постоянного обновления экрана. Поэтому в первой строке кода VBA для свойства ScreenUpdating (Обновление экрана во время выполнения подпрограммы) объекта Excel Application устанавливается свойство False. Поэтому при выполнении подпрограммы на экране никаких изменений наблюдаться не будет.
Далее производится очистка содержимого строк 4911:5000 на рабочем листе ИсхДанные. Эта процедура необходима для приведения таблицы в исходное состояние до проведения расчетов. Затем происходит:
- перерасчет таблицы на рабочем листе ИсхДанные;
- расчет всех налогов на рабочем листе Налоги;
- перерасчет таблицы на рабочем листе СуммПотоки с учетом рассчитанных налогов;
- расчет параметров кредитной линии и подготовка отчета по кредитной линии на рабочем листе Кредит.
Далее используется инструкция For-Next, в состав элементов которой входят девять подпрограмм, выполняющих:
- ввод сумм и дат выплачиваемых процентов по кредитной линии в исходную таблицу на рабочем листе ИсхДанные. Это необходимо для того, чтобы далее откорректировать базу налогообложения и рассчитать уточненную сумму налога на прибыль;
- затем выполняются все процедуры от расчета обновленной исходной таблицы до получения отчета по кредитной линии.
После завершения цикла For-Next производится очистка содержимого области расчета параметров кредитной линии на рабочем листе СуммПотоки.
Завершающий этап - перенос в исходную таблицу рассчитанных параметров кредитной линии и цикл подпрограмм для получения таблицы суммарных оборотов ДДС на рабочем листе СуммПотоки с учетом внесенных изменений.
Рис.2. Введенные суммы налогов в исходную таблицу на рабочем листе ИсхДанные
На следующем шаге мы рассмотрим таблицу движения денежных потоков при получении кредитной линии.
