Ввод сумм рассчитанных налогов в таблицу движения денежных потоков
Перенос сумм налогов и сроков их оплаты на лист СуммПотоки
Следующая предстоящая задача - создание подпрограммы ввода сумм рассчитанных налогов в таблицу суммарных потоков ДС. Выбор наиболее оптимального пути зависит от ориентации расположения таблицы на листе Налоги. А она имеет горизонтальное расположение. Поэтому первая задача расположить находящиеся в ней значения вертикально.
В таблице суммарных потоков не имеет значение назначение платежа. Таблицу интересует только дата и сумма проведения операции. Для вертикального расположения данных таблицы с рассчитанными налогами предназначена подпрограмма НалогиПереносДанных (рис. 19.8.), которая:
- последовательно копирует содержимое диапазонов таблицы Налоги и производит их вставку на листе СуммПотоки;
- производит сортировку вставленных данных не считая первую строку строкой заголовка.
Рис. 19.8. Подпрограмма транспонирования расположения данных таблицы с рассчитанными налогами
Ввод сумм налогов в таблицу суммарных ДДС
Для определения сумм налогов, выплата которых приходятся на даты, введенные с клавиатуры в ячейки, предназначенные для ввода дат на рабочем листе Налоги (рис. 18.1.), в столбце АС введите формулы, которые в зависимости от дат, введенных в столбце В, будут определять эту сумму. В ячейке АС3 находится формула:
=СУММЕСЛИ($AA$3:$AA$38;B3;$AB$3:$AB$38)
Значения, полученные в результате расчета этой формулы нужно добавить в расходную часть общей таблицы движения ДС. Это производится выделением области АС3:АС200, копированием ее в буфер обмена и последующей вставкой в область D3:D200, но используя при этом диалоговое окно Специальная вставка, в котором необходимо активизировать переключатели Значения и Сложить. Обратите внимание на код VBA вставки значений со сложением. В ней присутствуют только те действия, которые совершаются. В этом и заключается редакция кода VBA.
|
|
|
После этого выделите область расчета остатков ДС на конец дня, введите формулу:
=E3+СУММ(C4:D4)
и нажмите комбинацию клавиш Ctrl+Enter. После этого замените формулы на вычисленные значения в столбцах D:Е и очистите область промежуточных расчетов в столбцах АА:АС. Последовательность этих операций выполняет подпрограмма НалогиВводТаблица (рис. 19.9.).
Рис. 19.9. Подпрограмма НалогиВводТаблица
Цикл полного создания таблицы суммарных оборотов ДС
Полный цикл расчетов для формирования данных таблицы с суммарным потоков ДС осуществляет подпрограмма РасчетТаблицыСНалогами (рис. 19.10.), которая:
- производит перерасчет всех данных на листе ИсхДанные, после чего формирует таблицу с расчетом налогов (РасчетВсехНалогов);
- рассчитывает таблицу суммарных оборотов ДДС без учета налогов (ДенежныеПотокиЭквивалент);
- вводит в таблицу суммарных оборотов ДДС рассчитанные суммы налогов (НалогиПереносДанных и НалогиВводТаблица).
|
|
|
Рис. 19.10. Подпрограмма выполнения полного цикла формирования итоговых данных ДДС
Таблица суммарных оборотов ДС с итоговыми данными
После записи макросов создайте несколько элементов управления Кнопка запускающих на выполнение макросы, расположите их в удобном для вас порядке и назначьте им выполнение макросов. Итоговая таблица с данными, полученными в результате полного цикла расчетов, показана на рис. 19.11.
Рис. 19.11. Рабочий лист СуммПотоки с созданными элементами управления
Итоги
В этой главе, используя несложные подпрограммы, получена таблица суммарных оборотов ДДС по проведению планируемой операции по поставке товара.
Достоинство этой таблицы заключается в том, что по остаткам денежных средств можно судить о том, когда и сколько денежных средств не хватает предприятию для проведения операции. А на основании этих данных можно принимать решения - где брать недостающие ресурсы и сколько за это платить.
Дата добавления: 2018-06-01; просмотров: 180; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!