На этом шаге мы рассмотрим особенности выполнения этой операции.
В таблице на рабочем листе ИсхДанные для переносимых данных выделите строки 4911:5000 для:
- 4911:4950 - перечисляемые налоги;
- 4951:4984 - расчеты по кредитной линии;
- 4985:5000 - проценты по кредитной линии.
Макрос очистки данных в исходной таблице
В связи с тем, что данные в строки листа ИсхДанные вносятся автоматически, то иногда будет возникать необходимость в очистке этой области от данных таким же автоматическим путем. Для этого запишите макрос ОчисткаАвтоматическиВведенныхДанных (рисунок 1).
Макрос ввода в исходную таблицу сумм процентов и дат их перечисления
Задача макроса ВводСуммыПроцентов (рисунок 1) - скопировать в отчете по кредитной линии на рабочем листе Кредит данные по срокам и выплачиваемым суммам и производить вставку на рабочий лист ИсхДанные в области строк 4911:4950.
Рис.1. Подпрограммы ВводСуммыПроцентов и ОчисткаАвтоматическиВведенныхДанных
После этого ввести формулы ввода текста Проценты, признаков налогообложения, денежных потоков и названия валюты.
Макросы ввода в исходную таблицу сумм налогов и движения по кредитной линии
Для ввода данных сумм налогов и сумм, получаемых и возвращаемых ДС по кредитной линии в исходную таблицу, запишите подпрограмму, которая выполняет операции:
- ввод данных по кредитной линии;
- ввод данных сумм налогов;
- создание формул для ввода текста проводимой операции, валюты и признака движения ДС.
Формулы, вводимые в диапазоны ячеек С4911:С4950, Н4911:Н4950 и К4911:К4984 листа ИсхДанные, аналогичны формулам в макросе ВводСуммыПроцентов, кроме текста Налоги в первой формуле. В ячейку С4951 введите формулу, которая при наличии положительного значения в ячейке М4951, возвращает текст Кредит получен, а в противном - Кредит возвращен:
=ЕСЛИ(D4951="";"";ЕСЛИ(M4951>0;"Кредит получен";"Кредит возвращен"))
Если же значение в ячейке М4951 отсутствует, то формула ничего не возвращает.
Рис.2. Подпрограмма ПереносСуммКредитаНалогов
На следующем шаге мы рассмотрим полный цикл расчета параметров кредитной линии.
