На этом шаге мы рассмотрим некоторые итоговые операции, завершающие создание таблицы расчета налогов.
При расчете суммы налога на прибыль используется макрос РасчетНалогПрибыль, при создании которого используется такая же методика, как и для написания подпрограммы РасчетНалогОборот. Отличие заключается только в формуле, вводимой в ячейку I5, которая производит умножение суммы определенного налогооблагаемого дохода на листе ИсхДанные на ставку налога на прибыль с последующим округлением полученного результата до второго знака после запятой:
=ОКРУГЛ(СУММЕСЛИ($AC$5:$AD$5000; AA5;$AD$5:$AD$5000)*СтавкаНалогПрибыль;2)
Для расчета всех налогов запишите подпрограмму РасчетВсехНалогов (рисунок 1), которая состоит только из перечня имен выполняемых подпрограмм. Предполагаем, что перед расчетом налогов должен произойти перерасчет всех данных на рабочем листе ИсхДанные с помощью подпрограммы ПолныйРасчетИсхДанные (рисунок 2).
Рис.1. Подпрограмма РасчетВсехНалогов
Рис.2. Подпрограмма ПолныйРасчетИсхДанные
Созданная подпрограмма обладает рядом недостатков: в процессе ее выполнения три раза создаются одинаковые формулы в столбцах АА и АС и после выполнения вычислений три раза уничтожаются. Но этот недостаток полностью компенсируется простотой и, как следствие, унифицированностью макросов по расчету каждого налога в отдельности.
Задайте следующее условие: указание только самой суммы не является достаточным для включения этой суммы налогов в общую сумму денежных потоков. Достаточным условием для этого является ввод даты. Для этого введите в ячейки D5:D16, F5:F16 и H5:H16 даты предполагаемой оплаты этих налогов.
Полный текст этого приложения можно взять здесь.
Итоги.
Создание таблицы расчета налогов довольно несложно, но в этих шагах описан довольно важный инструмент для создания подпрограмм: панель отладки, при помощи которой присутствует возможность пошагового прохождения записанного макроса с контролем выполнения его действий.
Со следующего шага мы начнем рассматривать создание таблицы расчета суммарных ежедневных оборотов денежных средств .