Добрый день уважаемый читатель!
Статья посвящена такому интересному вопросу: «Как в Excel создается прописная сумма?» Эта возможность позволяет организовать всю массу информации и расчетов, которые сведены в единый результат, как финансовый документ, который нельзя интерпретировать двояко. Недаром банковские, юридические и финансовые документы оформляются цифрами и буквами. Кроме того, такие суммы не позволяют ошибиться там, где должна быть запятая, и они просто отлично смотрятся по сравнению с рядом чисел. Подводя итог, скажу, что любому пользователю Excel, который работает с числами и временем, а также печатает документы с их помощью, действительно нужен инструмент, который создает сумму на словах.
Есть несколько способов решить эту проблему:
- Использование формул;
- Использование пользовательской функции;
- С VBA.
Создание сумм прописью с помощью формул
Это возможный, но очень громоздкий вариант. Формула, которая умеет самостоятельно переводить числа в буквы и правильно записывать сумму словами, получится очень большой. Если вы хотите упростить формулу, вам понадобится отдельный блок формул, который позаботится обо всех преобразованиях. Единственное преимущество использования формулы заключается в том, что когда вы ее понимаете, вы можете изменить ее самостоятельно: разрядность, валюту, склонение и т.д.
С помощью пользовательской функции
На мой взгляд, это наиболее оптимальное и простое, относительно очевидное решение поставленного вопроса. Вам просто нужно активировать эту функцию и получать удовольствие от ее использования.
Для этого нужно выполнить несколько шагов. Сначала загрузите файл надстройки здесь. Затем перенесите его в папку AddIns, которая находится по пути C: Documents и SettingsUserApplication DataMicrosoftAddIns, только вы замените свое имя пользователя Windows вместо «User». Также может быть проблема с отображением папки «Данные приложения», она может быть скрытой, поэтому нужно в настройках «Параметры папки» включить пункт «Показывать скрытые файлы и папки». 
А теперь собственно, приступим к включению этого дополнения. В Excel выберите «Файл» — «Параметры» — «Надстройки». 
В диалоговом окне «Настройки» поставьте галочку напротив включенного надстройки «Сумма прописью» и нажмите «ОК». 
Следующим шагом является установка курсора на нужную ячейку и вызов «управляемой функции». В разделе «Категория» выберите пункт «Определяется пользователем» и теперь доступен весь список встроенных функций для записи сумм прописью. Кстати, как видите, есть еще и выбор функций в разрезе валют. Сразу замечаю, что надстроек много, есть и более продвинутые, но этот меня полностью устраивает, поэтому я его описываю. 
В результате мы имеем возможность получить следующие данные: 
С помощью VBA
Вот еще один способ на любителя. Конечно, словесное создание суммы в Excel с помощью макроса — не самый распространенный способ, но он использовался довольно часто и до сих пор используется. Это не очень сложно, нужно:
- Используйте комбинацию горячих клавиш ALT + F11 для вызова редактора Visual Basic;
- Используя меню «Вставка» — «Модуль», создайте новый пустой модуль;
- Скопируйте код макроса, указанный в теле модуля.
Получается готовая кастомная функция VBA, которая может конвертировать любую сумму от 0 до 9 999 999 в текстовом варианте, сумма создается словами.
Требуемый код макроса выглядит так:
|
Функция СУММ (n как double) как строка Dim Num1, Num2, Num3, Num4 как вариант Num1 = Array («», «один», «два», «три», «четыре», «пять», «шесть», «семь», «восемь», «девять «) Num2 = Array («», «десять», «двадцать», «тридцать», «сорок», «пятьдесят», «шестьдесят», «семьдесят», _ «Восемьдесят», «девяносто «) Num3 = Array («», «сто», «двести», «триста», «четыреста», «пятьсот», «шестьсот», «семьсот», _ «Девятнадцатый век», «двадцатый век «) Num4 = Массив («», «один», «два», «три», «четыре», «пять», «шесть», «семь», «восемь», «девять «) Num5 = Массив («десять», «одиннадцать», «двенадцать», «тринадцать», «четырнадцать «, «Пятнадцать», «шестнадцать», «семнадцать», «восемнадцать», «девятнадцать «) Если n SUMA = «ноль» Выйти из функции Конец, если ‘разделите число на цифры с помощью функции справки по классу ed = Класс (n, 1) dic = Класс (n, 2) sot = Класс (n, 3) tys = Класс (n, 4) dectys = Класс (n, 5) sottys = Класс (n, 6) mil = Класс (n, 7) decimil = Класс (n, 8) «проверить миллионы Выбрать чехол Decmil Дело 1 mil_txt = Num5 (mil) & «миллион « Перейти на www Случаи 2-9 decmil_txt = Num2 (декамил) Конец выбора Выбрать Case Mil Дело 1 mil_txt = Num1 (mil) & «миллион « Случай 2, 3, 4 mil_txt = Num1 (mil) & «миллион « Случаи 5-20 mil_txt = Num1 (mil) & «миллион « Конец выбора www: sottys_txt = Nums3 (sottys) проверить тысячи Выберите Case dectys Дело 1 tys_txt = Num5 (тыс) & «одна тысяча « Перейти к eee Случаи 2-9 dectys_txt = Num2 (dectys) Конец выбора Выберите типы кейсов Случай 0 Если dectys> 0, то tys_txt = Nums4 (tys) & «тысяча « Дело 1 tys_txt = Num4 (тыс) & «одна тысяча « Случай 2, 3, 4 tys_txt = Num4 (тыс) & «тысячи « Случаи 5–9 tys_txt = Num4 (тыс) & «одна тысяча « Конец выбора Если dectys = 0 И tys = 0 И sottys 0 Тогда sottys_txt = sottys_txt & «mille « эээ: sot_txt = Num3 (сот) «проверить дюжину Выбрать дело Dec Дело 1 ed_txt = Num5 (ред) Перейти на rrr Случаи 2-9 dec_txt = Num2 (dec) Конец выбора ed_txt = Num1 (изд) ррр: ‘формируем последнюю строку ИТОГО = decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Конец функции ‘Функция поддержки для извлечения из числа цифр Класс частных функций (M, I) Класс = Int (Int (M — (10 ^ I) * Int (M / (10 ^ I))) / 10 ^ (I — 1)) Конец функции |
Сохраните изменения, и теперь вы можете использовать новую функцию, как и другие функции, представленные в «Функции мастера» в категории «Определяемые пользователем», или просто введите ее вручную в ячейку, указав сумму для заглавной буквы. 
Но, как видите, макрос записывает суммы словами, только целыми числами, но чтобы получить копейки, эту конструкцию нужно модифицировать с помощью следующей функции:
= ИТОГО (A3) & «руб.» & ТЕКСТ ((A3-ВЕСЬ (A3)) * 100; «00») & «коп.»
Вы можете опустить префикс «Module2» в моей формуле, так как таким образом программа отделяет 2 похожие формулы: одну от установленных надстроек, а вторую — от макроса.
И это все для меня! Я действительно надеюсь, что все, что касается использования ваших чисел, вам ясно. Буду очень благодарен за оставленные комментарии, так как это показатель читабельности и вдохновляет на написание новых статей! Делитесь прочитанным с друзьями и ставьте им лайки!
