Сумма прописью

Очень часто в различных документах (счетах, платежных поручениях, квитанциях, чеках, договорах, актах сверки и т.д.) требуется указывать суммы не только цифрами, но и прописью. Написание длинных числительных представляет известную сложность, особенно, если сумму необходимо указать не в именительном падеже. В то же время досадная грамматическая ошибка может повлечь за собой серьезные юридические последствия вплоть до признания документа недействительным.

Функция "Сумма прописью" позволяет существенно облегчить корректное заполнение подобных документов в MS Excel, особенно полезна она в случае использования средств автоматизации: например, при выводе данных из файла MS Excel в документ MS Word.

Что реализовано:

• работа с любыми числами от 0 до 999'999'999'999'999,999 (999 триллионов)
• корректный вывод в любом падеже: "Тридцати семи тысяч двухсот пяти рублей 17 копеек", "Тремя тысячами пятьюстами семьюдесятью двумя рублями 53 копейками"
• 5 видов валюты: рубли, доллары, евро, гривны, тенге: "Две тысячи долларов 00 центов", "Пятьсот семьдесят две тысячи восемьсот тридцать девять гривен 37 копеек", "Тридцать тысяч пятьсот тенге"
• возможность самостоятельной настройки пользователем под любые единицы измерения: иены, юани, литры, метры, килограммы и т.д. (видео-инструкция прилагается)
• возможность вывода в формате "целые/дробные": "Двести восемьдесят пять целых 367 тысячных", "Одна целая 3 десятых"
• возможность вывода без дробной части: "Две тысячи долларов", "Тремя тысячами пятьюстами семьюдесятью двумя рублями"
• возможность использования как в виде надстройки (можно использовать во всех файлах на данном рабочем месте), так и в виде кода, внедренного в файл (функция будет работать в данном файле на любом рабочем месте - удобно, если файл, например, отправляется контрагенту)
• открытый программный код - при желании можно изучать алгоритм либо модифицировать

Как подключить?

Программа представляет собой один файл с названием bdgNumberToText.bas. Для того, чтобы использовать ее в том или ином файле, функцию нужно импортировать в этот файл. Для этого необходимо:

1. открыть файл MS Excel, в котором требуется использовать функцию
2. войти в редактор VBA по нажатию горячей клавиши "Alt + F11" или через меню:
   • в MS Excel 2007 - через пункт ленты "Разработчик":
        
   • в MS Excel 2003 - через пункт главного меню "Сервис -> Макрос -> Редактор Visual Basic":
        
3. в главном меню редактора VBA выбрать пункт "File" -> "Import file...":

4. в появившемся окне выбора файла выбрать файл bdgNumberToText.bas и нажать кнопку "Открыть":

В результате этих действий в проводнике проекта в левой части экрана появится ветвь "Modules" (если ее еще не было), раскрыв которою можно увидеть строку bdgNumberToText. А дважды кликнув по этой строке справа можно увидеть программный код самой функции:

Все, программный код импортирован и его можно использовать.

Как использовать?

1. выделите курсором ячейку, в которой хотите поместить результат функции
2. нажмите на пиктограмму "Вставить функцию" на панели формул:

3. в появившемся окне Мастера функций выберите категорию "Определенные пользователем", затем в списке выделите название функции "СуммаПрописью" и нажмите кнопку "ОК":

4. и далее в окне Аргументы функций заполните поля:
   В поле ИсходнаяСумма требуется указать ссылку на ячейку с суммой или ввести сумму вручную. Остальные реквизиты являются необязательными для заполнения.
   В поле ЕдиницыИзмерения можно указать номер требуемого формата (целое число от -2 до 4):
   • 0 (по умолчанию) - рубли, копейки
   • 1 - доллары, центы
   • 2 - евро, евроценты
   • 3 - гривны, копейки
   • 4 - тенге
   • -1 - целые, дробные (десятые, сотые и т.д.)
   • -2 - без единиц измерения
   
   В реквизите Падеж можно указать, в каком падеже нужно вывести сумму (целое число от 1 до 6 - номер падежа от именительного до предложного);
   В поле БезДробнойЧасти можно поставить 1 - если при выводе должна отображаться только целая часть суммы.
   Поле РодЕслиНетЕдиниц используется в случае, когда ЕдиницыИзмерения = -2 (т.е. без единиц) - чтобы указать, выводить "один", "одна" или "одно".
   После заполнения параметров нажмите кнопку "ОК".
   В результате в выделенной ячейке отобразится результат вычисления функции.

Цена: 3000 рублей

	Cпециальная цена: 1800 рублей Скидка 40% только до 19.02.25 23:59:59