Автоматизация ввода формул расчета Ввод дат
После создания формул описанных выше, приступите к записи макроса ВводДат (рис. 19.3.) ввода этих формул и последующей замены их на вычисленные ими значения. Не пытайтесь записывать большие макросы, а ограничьтесь записью отдельных фрагментов выполняемых действий, которые затем будет легко объединить.
Рис. 19.3. Подпрограмма ВводДаты
Макрос выборки данных ддс по всем валютам
Макрос ВыборкаДанныхЭквивалент (рис. 19.4.) предназначен для:
ввода формул определения дат и ДДС по каждой операции в диапазоны ячеек АА3:АА5000 и АВ3:АС5000;
передачи выполнения операций подпрограмме ВводДат, которая по этим данным рассчитает временную ось для создаваемой таблицы;
ввода формулы определения сальдо эквивалента всех имеющихся ДС на начальную дату расчета.
Рис. 19.4. Подпрограмма ВыборкаДанныхЭквивалент
Выборка данных по различным валютам
Если необходимо определить ДДС по каждой из валют, то тогда в формулы выборки данных в столбцах АВ и АС введите корректировку. Формулы должны возвращать значения столбцов М и N вместо I и J из листа ИсхДанные. В формулу в ячейке АА3 введите дополнительную функцию ЕСЛИ для того, чтобы выборка осуществлялась и по указанной валюте. Например, для российского рубля:
=ЕСЛИ(ИсхДанные!H10=1;ЕСЛИ(ИсхДанные!K10="RUR";ИсхДанные!D10;"");"") (19.10)
Кроме того этой подпрограмме нет необходимости производить перерасчет валюты по существующему на день расчета курсу. Поэтому при определении остатка ДС в этой валюте ячейке Е3 таблицы просто присваивается значение остатка ДС, введенного в диапазон ячеек D1:D3 на рабочем листе ИсхДанные (см. рис. 17.10.). Например, для определения сальдо ДС по российским рублям ячейке Е3 присваивается значение ячейки D1 на листе ИсхДанные.
Можно производить выборку в различных валютах, причем как непосредственно в этих валютах, так и в пересчете их, каждой в отдельности, в национальную валюту на день расчета.
Рис. 19.5. Подпрограмма ВыборкаДанныхRUR
Расчет ежедневных оборотов ДДС и остатка ДС на каждый день
Выполнение подпрограммы РасчетОборотов (рис. 19.6.) заключается во вводе формул расчета ежедневных оборотов ДДС и остатка ДС в диапазоны ячеек С3:Е200, замене формул на определенные ими значения и последующую очистку содержимого столбцов АА:АС.
Рис. 19.6. Подпрограмма РасчетОборотов
Полный цикл заполнения таблицы суммарных оборотов
Подпрограмма ДенежныеПотокиЭквивалент автоматически выполняет все этапы, описанные выше, и включает в себя две процедуры: ВыборкаДанныхЭквивалент и РасчетОборотов. Точно такие же процедуры выполняют подпрограммы по расчетам с выбранными валютами.
Рис. 19.7. Подпрограммы полного расчета таблицы
Ввод сумм рассчитанных налогов в таблицу движения денежных потоков
Перенос сумм налогов и сроков их оплаты на лист СуммПотоки
Следующая предстоящая задача — создание подпрограммы ввода сумм рассчитанных налогов в таблицу суммарных потоков ДС. Выбор наиболее оптимального пути зависит от ориентации расположения таблицы на листе Налоги. А она имеет горизонтальное расположение. Поэтому первая задача расположить находящиеся в ней значения вертикально.
В таблице суммарных потоков не имеет значение назначение платежа. Таблицу интересует только дата и сумма проведения операции. Для вертикального расположения данных таблицы с рассчитанными налогами предназначена подпрограмма НалогиПереносДанных (рис. 19.8.), которая:
последовательно копирует содержимое диапазонов таблицы Налоги и производит их вставку на листе СуммПотоки;
производит сортировку вставленных данных не считая первую строку строкой заголовка.
Рис. 19.8. Подпрограмма транспонирования расположения данных таблицы с рассчитанными налогами