На этом шаге мы рассмотрим текст даннаго макроса.
Для полного расчета всей модели от перерасчета данных на листе ИсхДанные до расчета кредитной линии и заполнения платежного календаря запишите подпрограмму ПолныйРасчетДенежныхПотоков (рисунок 1), которая осуществляет весь цикл расчетов, описанный в шагах, начиная с 364, и посвященных созданию модели ДенежныеПотоки.
Рис.1. Подпрограмма ПолныйРасчетДенежныхПотоков полного расчета модели денежных потоков
Запуск подпрограммы на выполнение поручите кнопке Полный расчет денежных потоков (рисунок 2).
Рис.2. Рабочий лист ПК с созданным платежным календарем и числовым примером за февраль месяц
Подпрограмма перепоручает созданным ранее процедурам УточненныйРасчетКредитнойЛинии (рисунок 3) и ЗаполнениеПлатежногоКалендаря (рисунок 4) выполнение всего цикла вычислений с момента перерасчета таблицы на листе ИсхДанные до заполнения платежного календаря.
Рис.3. Подпрограмма УточненыйРасчетКредитнойЛинии
Рис.3. Подпрограмма ЗаполнениеПлатежногоКалендаря
Кроме этого подпрограмма дополнена сервисными функциями:
- таймером, фиксирующем время выполнения всего цикла расчета;
- диалоговым окном, всплывающем при окончании вычислений;
- сворачиванием окна Excel на все время выполнения вычислений и последующем восстановлении его на весь экран по завершению выполнения подпрограммы.
На следующем шаге мы рассмотрим таймер.
