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