Запись макроса РасчетНалогОборот
Для создания макроса РасчетНалогОборот выполните следующие действия:
находясь в Редакторе Visual Basic, полностью выделите текст подпрограммы РасчетНДС и, скопировав его в буфер обмена, перейдя в конец окна программ, произведите вставку из буфера обмена;
измените имя скопированного макроса на РасчетНалогОборот;
очень удобно наблюдать выполнение макроса, не выходя из Редактора Visual Basic. Для этого в верхней половине экрана монитора расположите окно Редактора Visual Basic, а в нижней — окно Excel (рис. 18.7.);
используя кнопку Шаг с заходом панели инструментов Отладка, перейдите в режим отладки, и при пошаговом прохождении подпрограммы, наблюдайте его выполнение в окне Excel;
например, отредактировав вводимые формулы прямо в Редакторе Visual Basic, при выполнении оператора ввода формул в диапазон ячеек АВ5:АВ5000 обратите внимание — какая формула введена в ячейке АВ5. Если формула отредактирована неправильно, то, установив курсор на желтую стрелку, передвиньте ее на строку вверх, отредактируйте формулу в тексте подпрограммы и, нажав кнопку Шаг с заходом, проверьте еще раз правильность ввода;
проверив выполнение всего текста подпрограммы, выйдите из режима отладчика.
Рис. 18.7. Двухоконный режим просмотра пошагового выполнения подпрограммы
Расчет суммы налога на прибыль
При расчете суммы налога на прибыль используется макрос РасчетНалогПрибыль, при создании которого используется такая же методика, как и для написания подпрограммы РасчетНалогОборот. Отличие заключается только в формуле, вводимой в ячейку I5, которая производит умножение суммы определенного налогооблагаемого дохода на листе ИсхДанные на ставку налога на прибыль с последующим округлением полученного результата до второго знака после запятой:
=ОКРУГЛ(СУММЕСЛИ($AC$5:$AD$5000;AA5;$AD$5:$AD$5000)*СтавкаНалогПрибыль;2) (18.1)
Расчет всех налогов
Для расчета всех налогов запишите подпрограмму РасчетВсехНалогов (рис. 18.8.), которая состоит только из перечня имен выполняемых подпрограмм. Предполагаем, что перед расчетом налогов должен произойти перерасчет всех данных на рабочем листе ИсхДанные с помощью подпрограммы ПолныйРасчетИсхДанные (рис. 17.8).
Рис. 18.8. Подпрограмма РасчетВсехНалогов
Анализ подпрограммы РасчетВсехНалогов
Созданная подпрограмма обладает рядом недостатков: в процессе ее выполнения три раза создаются одинаковые формулы в столбцах АА и АС и после выполнения вычислений три раза уничтожаются. Но этот недостаток, полностью компенсируется простотой и, как следствие, унифицированностью макросов по расчету каждого налога в отдельности.
Включение рассчитанных сумм налогов в общий денежный поток
Задайте следующее условие — указание только самой суммы не является достаточным для включения этой суммы налогов в общую сумму денежных потоков. Достаточным условием для этого является ввод даты. Для этого введите в ячейки D5:D16, F5:F16 и H5:H16 даты предполагаемой оплаты этих налогов.
Итоги
Создание таблицы расчета налогов довольно несложно, но в этой главе описан довольно важный инструмент для создания подпрограмм — панель Отладки, при помощи которой присутствует возможность пошагового прохождения записанного макроса с контролем выполнения его действий.
http://www.management.com.ua/bpr/bpr027.html