Перенос данных в исходную таблицу на рабочем листе ИсхДанные
В таблице на рабочем листе ИсхДанные для переносимых данных выделите строки 4911:5000 для:
4911:4950 — перечисляемые налоги;
4951:4984 — расчеты по кредитной линии;
4985:5000 — проценты по кредитной линии.
Макрос очистки данных в исходной таблице
В связи с тем, что данные в строки листа ИсхДанные вносятся автоматически, то иногда будет возникать необходимость в очистке этой области от данных таким же автоматическим путем. Для этого запишите макрос ОчисткаАвтоматическиВведенныхДанных.
Макрос ввода в исходную таблицу сумм процентов и дат их перечисления
Задача макроса ВводСуммыПроцентов (рис. 20.10.) скопировать в отчете по кредитной линии на рабочем листе Кредит данные по срокам и выплачиваемым суммам и производить вставку на рабочий лист ИсхДанные в области строк 4911:4950. После этого ввести формулы ввода текста Проценты, признаков налогообложения, денежных потоков и названия валюты.
Рис. 20.10. Подпрограммы ВводСуммыПроцентов и ОчисткаАвтоматическиВведенныхДанных
Макросы ввода в исходную таблицу сумм налогов и движения по кредитной линии
Для ввода данных сумм налогов и сумм, получаемых и возвращаемых ДС по кредитной линии в исходную таблицу, запишите подпрограмму, которая выполняет операции:
ввод данных по кредитной линии;
ввод данных сумм налогов;
создание формул для ввода текста проводимой операции, валюты и признака движения ДС.
Формулы, вводимые в диапазоны ячеек С4911:С4950, Н4911:Н4950 и К4911:К4984 листа ИсхДанные аналогичны формулам в макросе ВводСуммыПроцентов, кроме текста Налоги в первой формуле. В ячейку С4951 введите формулу, которая при наличии значения в ячейке М4951 больше нуля возвращает текст Кредит получен, а в противном Кредит возвращен:
=ЕСЛИ(D4951="";"";ЕСЛИ(M4951>0;"Кредит получен";"Кредит возвращен")) (20.6)
Если же значение в ячейке М4951 отсутствует, то формула ничего не возвращает.
Рис. 20.11. Подпрограмма ФормулыПереносаДанных
Полный цикл расчета параметров кредитной линии
В процессе описания проводимых расчетов по кредитной линии были созданы небольшие макросы, с помощью которых весь описанный цикл может быть автоматизирован. Получились различные элементы как в конструкторе, из которых можно собрать нужную подпрограмму. Запишите последовательность выполнения подпрограмм ссылками на их имена.
Рис. 20.12. Подпрограмма УточненыйРасчетКредитнойЛинии
Последовательность выполнения полного цикла расчетов в созданной модели
Задача созданной подпрограммы УточненныйРасчетКредитнойЛинии последовательно передавать выполнение различных процедур другим подпрограммам. Она формируется в Редакторе Visual Basic, в основном, методом копирования и вставки в необходимой последовательности, имен подпрограмм, которых насчитывается около 20-ти.
В процессе выполнения последовательности операций будут активизироваться различные рабочие листы, а в них ячейки и диапазоны. И если наблюдать на мониторе за выполнением операций, то глаза могут устать, а компьютеру требуются дополнительные ресурсы для постоянного обновления экрана. Поэтому в первой строке кода VBA для свойства ScreenUpdating (обновление экрана во время выполнения подпрограммы) объекта Excel (Application) устанавливается свойство False. Поэтому при выполнении подпрограммы на экране никаких изменений наблюдаться не будет.
Далее производится очистка содержимого строк 4911:5000 на рабочем листе ИсхДанные. Эта процедура необходима для приведения таблицы в исходное состояние до проведения расчетов. Затем происходит:
перерасчет таблицы на рабочем листе ИсхДанные;
расчет всех налогов на рабочем листе Налоги;
перерасчет таблицы на рабочем листе СуммПотоки с учетом рассчитанных налогов;
расчет параметров кредитной линии и подготовка отчета по кредитной линии на рабочем листе Кредит.
Далее используется инструкция For- Next, в состав элементов которой входят девять подпрограмм, выполняющих:
ввод сумм и дат выплачиваемых процентов по кредитной линии в исходную таблицу на рабочем листе ИсхДанные. Это необходимо для того, чтобы далее откорректировать базу налогообложения и рассчитать уточненную сумму налога на прибыль.
затем выполняются все процедуры от расчета обновленной исходной таблицы до получения отчета по кредитной линии.
После завершения цикла For- Next производится очистка содержимого области расчета параметров кредитной линии на рабочем листе СуммПотоки.
Завершающий этап — перенос в исходную таблицу рассчитанных параметров кредитной линии и цикл подпрограмм для получения таблицы суммарных оборотов ДДС на рабочем листе СуммПотоки с учетом внесенных изменений.
Рис. 20.13. Введенные суммы налогов в исходную таблицу на рабочем листе ИсхДанные
Таблица движения денежных потоков при получении кредитной линии
Если сравнить полученную таблицу движения денежных потоков на рабочем листе СуммПотоки при получении кредитной линии (рис. 20.14.) с аналогичной таблицей на рис. 20.3., то заметите что второй пример более выгоден.
В первом случае остаток денежных средств по завершению торговой операции 67089,46 руб., во втором же 73804,55 руб. Получена экономия денежных средств в размере 6715,09 руб.
Конечно сумма небольшая, но и пример условный. Например, в исходных данных не введены суммы комиссионных вознаграждений для банка, которые во втором случае будут несомненно больше, из-за резервирования банком денежных ресурсов под кредитную линию. Но важно, что создана модель, в которую при подстановке реальных данных, произведет расчет и выдаст реальный результат.
Рис. 20.14. Таблица движения денежных средств при открытии кредитной линии
Модель предназначена для прогнозирования, на основе наиболее вероятных событий, которые могут произойти. Применение моделирования позволит определить, какой вариант действий из числа возможных альтернатив является наиболее оптимальным.
Итоги
В этой главе модель прогнозирования движения денежных потоков после незначительной доработки была приспособлена для самостоятельного расчета сумм недостающих денежных средств и стоимости привлеченных ресурсов.
В модель внедрен механизм самостоятельного формирования управленческого отчета по параметрам привлекаемой кредитной линии.
По мере усовершенствования модели и написания небольших макросов, самостоятельно обрабатывающих информацию, определено, что с их помощью можно установить любую последовательность операций, в результате чего можно получить результат, значительно облегчающий принятие управленческих решений.
http://www.management.com.ua/bpr/bpr027.html