На этом шаге мы рассмотрим алгоритм создания этого макроса.
Прежде чем приступить к записи макроса, введите на рабочем листе Кредит формулы.
В ячейку В2 введите формулу, которая при движении средств по кредитной линии в ячейках ВС4 и ВD4 на рабочем листе СуммПотоки возвращает дату, введенную в ячейку В4:
=ЕСЛИ(СУММ(СуммПотоки!BC4:BD4)=0;"";СуммПотоки!B4)
В ячейке С2 формула, которая при наличии даты в ячейке В2, возвращает получаемую предприятием сумму по кредитной линии:
=ЕСЛИ($B2="";0;СуммПотоки!BC4)
В ячейке F2 формула, которая возвращает дату выплачиваемых процентов:
=СуммПотоки!BG3
Подпрограмма формирования отчета ОтчетПоКредиту (рисунок 1) вначале передает выполнение процедуре по вводу промежуточных формул расчета параметров кредитной линии. После этого переходит на лист Кредит, в котором по очереди формирует отчеты. Создание отчета заключается во вводе формул в диапазоны ячеек до строки 198, последующей замене их на вычисленные значения и сортировкой по возрастанию.
Рис.1. Подпрограмма формирования отчета о движении денежных средств по кредитной линии
На следующем шаге мы рассмотрим автоматизацию уточненного расчета кредитной линии с учетом налогов.
