Сумма прописью | Пользовательская функция для MS Excel
Нажмите на "социальную кнопку", чтобы поделиться ссылкой с друзьями
Нравится
Пользовательская функция для MS Excel

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


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

Функция "Сумма прописью" позволяет существенно облегчить корректное заполнение подобных документов в 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 - через пункт ленты "Разработчик":
    •      Открытие редактора VBA в MS Excel 2007
    • в MS Excel 2003 - через пункт главного меню "Сервис -> Макрос -> Редактор Visual Basic":
    •      Открытие редактора VBA в MS Excel 2003
  3. в главном меню редактора VBA выбрать пункт "File" -> "Import file...":
  4. Выбор пункта меню
  5. в появившемся окне выбора файла выбрать файл bdgNumberToText.bas и нажать кнопку "Открыть":
  6. Импорт файла с программой
    В результате этих действий в проводнике проекта в левой части экрана появится ветвь "Modules" (если ее еще не было), раскрыв которою можно увидеть строку bdgNumberToText. А дважды кликнув по этой строке справа можно увидеть программный код самой функции:
    Просмотр импортированного кода

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

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

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

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

Вот еще несколько примеров ее использования:
Примеры использования функции

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

special offer
Cпециальная цена: 1800 рублей
Скидка 40% только до 04.12.24 23:59:59
Поделиться ссылкой     

К началу страницы