Сумма прописью
Очень часто в различных документах (счетах, платежных поручениях, квитанциях, чеках, договорах, актах сверки и т.д.) требуется указывать суммы не только цифрами, но и прописью. Написание длинных числительных представляет известную сложность, особенно, если сумму необходимо указать не в именительном падеже. В то же время досадная грамматическая ошибка может повлечь за собой серьезные юридические последствия вплоть до признания документа недействительным.
Функция "Сумма прописью" позволяет существенно облегчить корректное заполнение подобных документов в MS Excel, особенно полезна она в случае использования средств автоматизации: например, при выводе данных из файла MS Excel в документ MS Word.
Что реализовано:
- работа с любыми числами от 0 до 999'999'999'999'999,999 (999 триллионов)
- корректный вывод в любом падеже: "Тридцати семи тысяч двухсот пяти рублей 17 копеек", "Тремя тысячами пятьюстами семьюдесятью двумя рублями 53 копейками"
- 5 видов валюты: рубли, доллары, евро, гривны, тенге: "Две тысячи долларов 00 центов", "Пятьсот семьдесят две тысячи восемьсот тридцать девять гривен 37 копеек", "Тридцать тысяч пятьсот тенге"
- возможность самостоятельной настройки пользователем под любые единицы измерения: иены, юани, литры, метры, килограммы и т.д. (видео-инструкция прилагается)
- возможность вывода в формате "целые/дробные": "Двести восемьдесят пять целых 367 тысячных", "Одна целая 3 десятых"
- возможность вывода без дробной части: "Две тысячи долларов", "Тремя тысячами пятьюстами семьюдесятью двумя рублями"
- возможность использования как в виде надстройки (можно использовать во всех файлах на данном рабочем месте), так и в виде кода, внедренного в файл (функция будет работать в данном файле на любом рабочем месте - удобно, если файл, например, отправляется контрагенту)
- открытый программный код - при желании можно изучать алгоритм либо модифицировать
Как подключить?
Программа представляет собой один файл с названием bdgNumberToText.bas. Для того, чтобы использовать ее в том или ином файле, функцию нужно импортировать в этот файл. Для этого необходимо:
- открыть файл MS Excel, в котором требуется использовать функцию
- войти в редактор VBA по нажатию горячей клавиши "Alt + F11" или через меню:
- в MS Excel 2007 - через пункт ленты "Разработчик":
- в MS Excel 2003 - через пункт главного меню "Сервис -> Макрос -> Редактор Visual Basic":
- в главном меню редактора VBA выбрать пункт "File" -> "Import file...":
- в появившемся окне выбора файла выбрать файл bdgNumberToText.bas и нажать кнопку "Открыть":


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

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


Вот еще несколько примеров ее использования:

Цена: 3000 рублей
![]() |
Cпециальная цена: 1800 рублей
Скидка 40% только до 19.02.25 23:59:59 |