На этом шаге мы рассмотрим алгоритм создания платежного календаря.
Чтобы в после переноса платежей из файла СистемаБюджетов в файл ДенежныеПотокиБюджет не было необходимости задумываться о том, какие операции нужно выполнять для получения результатов, запишите подпрограмму СозданиеПлатежногоКалендаря (рисунок 1) в файле СистемаБюджетов.
Рис.1. Подпрограмма подготовки отчетов по прогнозируемым денежным потокам
Задача этой подпрограммы заключается в последовательном запуске на выполнение процедур файла ДенежныеПотокиБюджет для получения отчетов, а в частности:
- отчета о суммарных оборотов на листе СуммПотоки;
- отчета о параметрах кредитной линии при нехватке денежных средств;
- платежного календаря.
В начале подпрограммы запускается таймер, и по окончанию появляется пользовательское диалоговое окно с указанием времени выполнения программы. Эти строки кода VBA создаются копированием из подпрограммы ПолныйРасчетДенежныхПотоков (рисунок 2) первой и двух последних строк с последующим редактированием последней строки.
Рис.2. Подпрограмма ПолныйРасчетДенежныхПотоков полного расчета модели денежных потоков
Обратите внимание: в строке функции MsgBox указано числовое значение второго аргумента (buttons), равное 48. В этом случае пользовательское диалоговое окно появляется с предупреждающим значком.
Для записи подпрограммы СозданиеПлатежногоКалендаря выполните следующие действия, изначально находясь в файле СистемаБюджетов:
- перейдите на листе ИсхДанные и нажмите кнопку Полный расчет листа ИсхДанные, что запустит на выполнение макрос ПолныйРасчетИсхДанные для перерасчета таблицы на этом листе;
- перейдите на лист СуммПотоки и нажмите на кнопку Денежные потоки ЭКВИВАЛЕНТ для запуска подпрограммы ДенежныеПотокиБюджет.
В результате выполнения макроса на рабочем листе СуммПотоки будет создана таблица ежедневных оборотов и
остатков денежных средств (рисунок 3).
Рис.3. Таблица ежедневных оборотов и остатков денежных средствОстаток денежных средств по состоянию на 1 августа (конец планируемого периода) в созданной таблице меньше остатка по БДДС на 8 копеек. Это расхождение получено в результате округлений при проведении вычислений;
- перейдите на лист Кредит и с помощью кнопки Параметры кредитной линии запустите на выполнение
подпрограмму ПараметрыДополнительногоКредита. На листе Кредит будет создана таблица (рисунок 4), показывающая
возможную ежедневно изменяющуюся нехватку денежных средств и возможность их ежедневного возврата в случае привлечения внешних ресурсов,
а также сумму начисленных процентов при таком развитии событий.
Рис.4. Параметры недостающих денежных средств и начисленным процентам при условии привлечения кредитной линииЭта же подпрограмма произведет расчеты для создания диаграммы возможного привлечения и погашения кредитных ресурсов на листе Диаграмма2 (рисунок 5);
Рис.5. График возможного привлечения внешних денежных ресурсов, их возврата и суммарной задолженности - перейдите на лист ПК и в ячейку D2 введите формулу определения месяца периода, за который требуется сформировать платежный календарь:
=МЕСЯЦ([СистемаБюджетов.xls]Пульт!$F$2)
После этого нажмите кнопку Заполнение платежного календаря, которой назначена подпрограмма ЗаполнениеПлатежногоКалендаря. На рисунке 6 показан фрагмент сформированного планового платежного календаря за июль 2003 года.
Рис.6. Сформированный платежный календарь на июль 2003 года
Рис.7. График планируемого движения денежных потоков за июль 2003 года
На следующем шаге мы рассмотрим анализ полученных результатов.
