Сумма прописью формула эксель

Содержание:

Формула суммы прописью в Excel — как написать число
Sumprop
- Работа с формулами
Числа прописью с копейками заглавными или строчными буквами в Excel
Функция сумма прописью на русском языке
- Вставка суммы прописью через пользовательскую форму
- Подробный синтаксис функции
Использование программы печати суммы прописью в Excel (Ексел)
История изменений
Прописать формулу для суммы прописью
Использование надстройки
- Excel. Сумма прописью без макросов и надстроек
Использование надстройки
- Excel. Сумма прописью без макросов и надстроек
Создание сумм прописью с помощью формул

Формула суммы прописью в Excel — как написать число

Для вывода числа прописью в Excel можно создать формулу. Приведем пример:

Для ее использования вам необходимо указать несколько массивов Excel:

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

В англоязычном Excel формула суммы прописью будет выглядеть следующим образом:

SUBSTITUTE(PROPER(INDEX(n_4,MID(TEXT(A1,n0),1,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),2,1)+1,MID(TEXT(A1,n0),3,1)+1)&IF(-MID(TEXT(A1,n0),1,3),»миллиард»&VLOOKUP(MID(TEXT(A1,n0),3,1)*AND(MID(TEXT(A1,n0),2,1)-1),мил,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),4,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),5,1)+1,MID(TEXT(A1,n0),6,1)+1)&IF(-MID(TEXT(A1,n0),4,3),»миллион»&VLOOKUP(MID(TEXT(A1,n0),6,1)*AND(MID(TEXT(A1,n0),5,1)-1),мил,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),7,1)+1)&INDEX(n1x,MID(TEXT(A1,n0),8,1)+1,MID(TEXT(A1,n0),9,1)+1)&IF(-MID(TEXT(A1,n0),7,3),VLOOKUP(MID(TEXT(A1,n0),9,1)*AND(MID(TEXT(A1,n0),8,1)-1),тыс,2),»»)&INDEX(n_4,MID(TEXT(A1,n0),10,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),11,1)+1,MID(TEXT(A1,n0),12,1)+1)),»z»,» «)&IF(TRUNC(TEXT(A1,n0)),»»,»Ноль «)&»рубл»&VLOOKUP(MOD(MAX(MOD(MID(TEXT(A1,n0),11,2)-11,100),9),10),,2)&RIGHT(TEXT(A1,n0),2)&» копе»&VLOOKUP(MOD(MAX(MOD(RIGHT(TEXT(A1,n0),2)-11,100),9),10),,2)

Как видим, это не самый удобный способ преобразовать число в текст прописью в Excel.

Sumprop

Сумма (число) 65 прописью:

Установка данного модуля происходит точно так же, как в описанном выше способе, только на этот раз выбираем другой файл.

Ставим галочку возле новой надстройки и нажимаем на кнопку «OK».

После этого в вашем редакторе появится еще несколько новых функций. Рассмотрим их всех.

Работа с формулами

Для этого нужно сделать следующие действия.

Первым делом создадим наглядную таблицу. В одном столбце у нас будут цифры, во втором – результат. Для демонстрации возможностей будем использовать дробные числа.

Переходим первую пустую ячейку и нажимаем на кнопку «Fx».

В появившемся окне выберите категорию «Определенные пользователем». Новые функции будут именно там.

Будем вставлять поочередно. Именно в той хронологии, как они идут в списке.

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

Выберите соответствующий пункт и нажмите на кнопку «OK».

Справка нам подсказывает, что эта функция для рублей.

В появившемся окне нужно вставить аргумент. Для этого достаточно кликнуть на ячейку с числом.

Благодаря этому адрес подставится автоматически. Для продолжения нажмите на кнопку «OK».

В результате этого вы увидите следующее.

СуммаПрописьюГривны

Выделяем следующую строчку и кликаем на иконку вставки функции.

На этот раз выбираем вторую функцию. Для вставки нажимаем на кнопку «OK».

Затем кликаем на следующее число.
После автоматической подстановки нажмите на кнопку «OK».

Результат будет следующим.

СуммаПрописьюДоллары

Переходим на третью строчку и кликаем на иконку «Fx».

Выбираем «долларовую» функцию и нажимаем на «OK».

Указываем соответствующий аргумент.

Кликаем на «OK».

Благодаря этому целое число отображается в долларах, а дробное – в центах.

СуммаПрописьюЕвро

Переходим на четвертую строчку и вызываем окно вставки уравнения.

Указываем функцию для «Евро».

Кликаем на соответствующий аргумент.

Нажимаем на кнопку «OK».

Результат будет следующим.

Обратите внимание на то, что количество центов (копеек) выводится всегда. Даже если их 0

ЧислоПрописью

Преимущество данного модуля в том, что вы можете осуществить преобразование без дополнительных денежных приставок.

Перейдите на последнюю строчку и нажмите на иконку «Fx».

Выберите последнюю функцию.

В качестве аргумента укажите последнее оставшееся число.

Для вставки нажмите на кнопку «OK».

В результате проделанных действий, мы увидим следующую таблицу.

Обратите внимание на то, что во всех ячейках сумма прописью указывается с большой буквы и только число – с маленькой

Числа прописью с копейками заглавными или строчными буквами в Excel

Сумма (число) 58 прописью:

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

Function РубПропись(Сумма As Double, Optional Без_копеек As Boolean = False, _
 Optional КопПрописью As Boolean = False, Optional начинитьПрописной As Boolean = True) As String
'Функция для написания суммы прописью
 Dim ed, des, sot, ten, razr, dec
 Dim i As Integer, str As String, s As String
 Dim intPart As String, frPart As String
 Dim mlnEnd, tscEnd, razrEnd, rub, cop
 
 dec = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
 ed = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
 ten = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
 des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
 sot = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
 razr = Array("", "тысяч", "миллион", "миллиард")
 mlnEnd = Array("ов ", " ", "а ", "а ", "а ", "ов ", "ов ", "ов ", "ов ", "ов ")
 tscEnd = Array(" ", "а ", "и ", "и ", "и ", " ", " ", " ", " ", " ")
 razrEnd = Array(mlnEnd, mlnEnd, tscEnd, "")
 rub = Array("рублей", "рубль", "рубля", "рубля", "рубля", "рублей", "рублей", "рублей", "рублей", "рублей")
 cop = Array("копеек", "копейка", "копейки", "копейки", "копейки", "копеек", "копеек", "копеек", "копеек", "копеек")
 If Сумма >= 1000000000000# Or Сумма < 0 Then РубПропись = CVErr(xlErrValue): Exit Function
 '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
 If Round(Сумма, 2) >= 1 Then
 intPart = Left$(Format(Сумма, "000000000000.00"), 12)
 For i = 0 To 3
 s = Mid$(intPart, i * 3 + 1, 3)
 If s <> "000" Then
 str = str & sot(CInt(Left$(s, 1)))
 If Mid$(s, 2, 1) = "1" Then
 str = str & ten(CInt(Right$(s, 1)))
 Else
 str = str & des(CInt(Mid$(s, 2, 1))) & IIf(i = 2, dec(CInt(Right$(s, 1))), ed(CInt(Right$(s, 1))))
 End If
 On Error Resume Next
 str = str & IIf(Mid$(s, 2, 1) = "1", razr(3 - i) & razrEnd(i)(0), _
 razr(3 - i) & razrEnd(i)(CInt(Right$(s, 1))))
 On Error GoTo 0
 End If
 Next i
 str = str & IIf(Mid$(s, 2, 1) = "1", rub(0), rub(CInt(Right$(s, 1))))
 End If
 РубПропись = str
 ''''''''''''''''''
 If Без_копеек = False Then
 frPart = Right$(Format(Сумма, "0.00"), 2)
 If frPart = "00" Then
 frPart = ""
 Else
 If КопПрописью Then
 frPart = IIf(Left$(frPart, 1) = "1", ten(CInt(Right$(frPart, 1))) & cop(0), _
 des(CInt(Left$(frPart, 1))) & dec(CInt(Right$(frPart, 1))) & cop(CInt(Right$(frPart, 1))))
 Else
 frPart = IIf(Left$(frPart, 1) = "1", frPart & " " & cop(0), frPart & " " & cop(CInt(Right$(frPart, 1))))
 End If
 End If
 РубПропись = str & " " & frPart
 End If
 ''''''''''''''''''
' РубПропись = str & frPart
 If начинитьПрописной Then Mid$(РубПропись, 1, 1) = UCase(Mid$(РубПропись, 1, 1))
' If начинитьПрописной Then РубПропись = UCase(Left(РубПропись, 1)) & Mid(РубПропись, 2)
End Function

Без копеек (1), с копейками (0)
Копейки прописью (1), числом (0)
Начинать прописью (0), заглавной (1)

Вот как используется функция

Примечание

Данная функция будет работать с числами от 0 до 99 999 999
Перед копирование кода переключите раскладку клавиатуры на русский язык (для корректного копирования русского текста)
Код VBA необходимо вставлять во все файлы (Книги Excel), где вы хотите, чтобы она работала
После вставки код, необходимо сохранить файл с поддержкой макросов xlsm (в Excel, начиная с 2007 версии)
Функцию можно либо набирать в ручную, либо, если вы забыли как она пишется, через мастер функций (кнопка fx в строке формул, категория Определенные пользователем)

Функция сумма прописью на русском языке

Сумма (число) 250.00 прописью:

После установки надстройки VBA-Excel добавится функционал для вставки суммы прописью. Он содержит удобную форму для ввода (см. рисунок справа), а также функцию СУММАПРОПИСЬЮ, которой можно пользоваться так же как и любой встроенной в Excel.

Вы сможете указать число прописью в любом падеже, а также выбрать формат вывода, который необходим в конкретном случае.

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

Функционал достаточно гибкий и позволяет настраивать отображение скобок, формат дробной части, указывать сумму с заглавной или прописной буквы и многое другое.

Вставка суммы прописью через пользовательскую форму

Наиболее простой способ вставить сумму прописью – это заполнить специальную форму.

Выберите ячейку, в которую необходимо вставить число прописью.
На вкладке VBA-Excel нажмите команду Сумма прописью и выберите язык Русский.
Появится диалоговое окно для выбора параметров функции. Заполните ее так как необходимо Вам. Настройки автоматически сохраняются, чтобы не пришлось повторять действия в следующий раз.
Нажмите Вставить текстом, тогда сумма прописью будет вставлена в ячейку как текст. Нажмите Вставить формулой в случае если в ячейку должна быть вставлена формула, в этом случае сумма прописью будет автоматически изменяться при редактировании числа.

Второй способ вставить сумму прописью – это ввести формулу в ячейку: =СУММАПРОПИСЬЮ(A1), где A1 – ссылка на ячейку с формулой.

Далее рассмотрим подробнее синтаксис функции.

Подробный синтаксис функции

Для использования функции не обязательно постоянно вызывать форму с параметрами. Функцию можно использовать также как и прочие функции Excel. Функция имеет следующие переменные:

=СУММАПРОПИСЬЮ(Число; ; ; ; ; ; )

Квадратные скобки означают что переменная не обязательная, в этом случае используется значение по умолчанию.

Число – ссылка на ячейку или число (не обязательно в числовом формате), которое необходимо написать прописью.
– число от 1 до 6, определяющее падеж

Именительный (по умолчанию если параметр не указан)
Родительный
Дательный
Винительный
Творительный
Предложный

– число от 0 до 8 для добавления после суммы прописью в нужном падеже тип данных

Ничего (по умолчанию если параметр не указан)
Рубли
Доллары США
Евро
Календарные дни
Рабочие дни
Дни
Штуки
Целое + дробная часть

– значение 0 или 1, которое указывает на необходимость записи дробной части числа прописью

Не выводить прописью дробную часть числа (по умолчанию)
Указать прописью также и дробную часть числа

– значение 0 или 1, которое указывает на необходимость дублирования числа перед суммой прописью

Скрыть число перед суммой прописью
Продублировать числовое значение суммы прописью (по умолчанию)

– значение 0 или 1, которое указывает на необходимость записывать сумму прописью в скобках

Убрать скобки из суммы прописью
Поместить сумму прописью в скобки (по умолчанию)

– значение 0 или 1, которое указывает на необходимость делать первую букву суммы прописью заглавной

Все буквы суммы прописью строчные
Сделать первую букву заглавной (по умолчанию)

Разберем синтаксис функции на примерах:

Склонение числительных по падежам.

Добавление типа данных после указания суммы прописью

Обратите внимание, что если вторая переменная (падеж) не задана, то указывается по умолчанию в именительном падеже

Как прописать дробную часть числа с помощью функции.

Различные форматы вывода суммы прописью.

Использование программы печати суммы прописью в Excel (Ексел)

Работа с ней ведется через использование функций Excel. Введите в первую ячейку третьей строки формулу =СуммаПрописью(836) и вы увидите результат вычислений:

Введите после этого в первую ячейку второй строки формулу = СуммаПрописью (A1). Так как пока в ячейку A1 ничего не введено, то результатом будет:

После того, как в первую ячейку будет введено число, например, 3743917034,51, результат изменится на:

При вводе другого числа результат соответственно изменится. Кроме печати суммы прописью доступна стала и еще одна дополнительная функция. Введите в первую ячейку число 582,43, а в любую свободную ячейку формулу =ЧислоПрописью(A1) . Результатом будет пятьсот восемьдесят два , то есть первая буква уже не прописная, копейки отброшены и нет названия рублей. Также имеется возможность вывода суммы для названий женского рода – пятьсот восемьдесят две . Для этого следует использовать формулу =ЧислоПрописью(A1;ЛОЖЬ) . Если второй параметр опущен, выводится сумма для названий мужского рода.

История изменений

Дата	Версия	Описание
09.02.2021	1.4.12.0	Этот релиз вобрал в себя множество изменений, накопленных за полтора года работы: Добавлено 752 фамилии из Википедии. Добавлено 25 тысяч слов из русского Викисловаря. Улучшено склонение несловарных ФИО, а также фамилий с дефисом (Тер-Оганесян, Кул-Мухаммед) Функция склонения больше не заменяет латинские буквы на русские. Функция Пропись теперь считает единицы измерения нарицательными. Исправлено склонение контакт-центр, Илон Маск. Исправлено склонение смартфон samsung galaxy j3 sm-j330f ds черный. Исправлено склонение фамилии Краснящих в украинской функции. Добавлено имя Рамін в украинский словарь. Добавлено более 14600 новых слов (новое издание словаря Зализняка + пополнение словаря odict.ru). Исправлено склонение ряда женских имен Ближнего Востока:Алмаз, Анушик, Алтнат и др. Исправлена ошибка прописи числа 500 триллионов. Исправлено склонение нестандартной фамилии Василив. Исправлено склонение нестандартного топонима Уторгош, который склоняется и по мужскому, и по женскому типу:Малая Уторгош и Малый Уторгош. Исправлено склонение имен Регіна, Альвіна, Фаїна в украинской версии. Устранено аварийное завершение программы при вводе определенной последовательности символов (внутренние номера задач — 627, 669). Слова в кавычках теперь не склоняются:Тариф «Бейсик», колбаса «Докторская», миноносец «Сметливый». Учет сокращения вр.и.о.
26.07.2019	1.4.11.0	Исправлено склонение слов чаек — чайком и подобных (буек, Бабуек); наречий отдельно, слегка, почти, совершенно; узбекской денежной единицы тийин; названия города Армавир; словосочетания «Заместитель Председателя Правления». Пополнение словаря.
19.12.2017	1.4.10.0	Пополнение словаря.
17.01.2017	1.4.8.0	В функции Пропись исправлена ошибка «ноль годов». Добавлены копейки к белорусскому рублю в связи с его деноминацией. Старый (до июня 2016 г.) белорусский рубль имеет обозначение BYR, новый — BYN. Пропись BYR не содержит копеек, а BYN содержит.
16.01.2017	1.4.7.0	Пополнение словаря. В частности, исправлено склонение слова роялти.
15.01.2017	1.4.6.0	Исправлено склонение некоторых слов с дефисом, например: Нью-Йорк, Лос-Анджелес. Ранее неправильно выдавался винительный падеж: Нью-Йорка, Лос-Анджелеса вместо правильных Нью-Йорк, Лос-Анджелес.
26.05.2016	1.4.5.0	Исправлена ошибка в склонении отчества Олеговна.
19.04.2015	1.4.4.0	Исправлена ошибка в функции Пропись: вместо неправильного «5 годов» теперь выдается правильное «5 лет». Ошибка касалась только единицы измерения «год» (это слово – исключение).
17.03.2015	1.4.3.0	Исправлена ошибка в функции Пропись. Ошибка проявлялась для сумм с числом копеек 0x. В результате выдавалось x0 копеек вместо 0x.
21.08.2014	1.4.1.0	Пополнение словарей. Исправлено склонение фамилии Ведмідь на украинском.
12.08.2014	1.4.0.0	Добавлена функция Множественное, позволяющая получить форму именительного падежа множественного числа слова или словосочетания.
07.01.2014	1.3.6.0	Добавлена функция ПредложныйО, возвращающая форму предложного падежа с предлогом О/ОБ/ОБО.
11.12.2013	1.3.5.0	Небольшое пополнение словаря (русского и украинского).
10.12.2013 ‏‎	1.3.4.0	В украинский алгоритм добавлен учет «апострофов» вида Дерев”яна и Дерев»яна.
11.11.2013 ‏‎	1.3.3.0	При указании более двух цифр после запятой в денежной сумме теперь выдается .
11.10.2013 ‏‎	1.3.2.0	Исправлена ошибка, вызывавшая сбой Excel при склонении фразы «Складной массажный стол Vision Apollo I».
30.09.2013 ‏‎	1.3.1.0	Добавлена возможность указания денежных единиц в сокращенном виде: руб, долл, грн, тнг.
25.09.2013 ‏‎	1.3.0.0	Добавлена функция прописи денежных сумм и чисел на русском языке.
10.09.2013 ‏‎	1.2.4.0	Уточнены некоторые формулировки в мастере функций. Нейтрализована известная ошибка в Excel, в результате которой некоторые сообщения в мастере функций выводились не полностью (Argument Description String Truncation in the Function Wizard).
5.09.2013 ‏‎	1.2.3.0	Исправлена ошибка в названии категории функции Рід.
29.01.2013 ‏‎	1.2.2.0	Исправлены ошибки в склонении, указанные пользователями. Добавлены правила для учета несклоняемых украинских фамилий на -ИХ (Грицьких).
28.01.2013 ‏‎	1.2.1.0	Исправлены ошибки в склонении, указанные пользователями. Учет двух видов апострофов в украинских словах, например, Мар’янович и Мар’янович.
‎03.01.2013 ‏‎	1.2.0.0	Добавлена функция определения рода (пола) для русского и украинского языков.
‎25.11.‎2012 ‏‎	1.1.0.0	Добавлены функции склонения ФИО на украинском языке.
‎20.12.‎2011 ‏‎	1.0.0.2	Добавлена возможность склонения данных из нескольких ячеек.

Прописать формулу для суммы прописью

 формула будет продолжать) в текст: например: четыреста сорок. IBM.: Да похоже, что1. Работают доСамойленко Михаил сдалRAN единицы If Mid(SumInt, txt = txt

 = «девятьсот «: = «тринадцать «: Select End If 1) Case «4»: Десятки(Mid(strЧисло, Поз + decmil_txt & mil_txt работать, не смотря

=СЖПРОБЕЛЫ( четыре руб. 00Для того, чтобы проверитьСам такую в от версии Офиса 999 трлн.

 сдал сдал: Вообще-то я про shag — 1, & Edinicy(vl) & tys(9) = «тысяч EdinicyPoslednie(13) = IIf(Valuta End Function Десятки = «сорок

 1, 2), «м») & sottys_txt & на то, чтоИНДЕКС(Миллионы;ОСТАТ(ОТБР(B6/1000000);1000000)+1)&» «& коп.

 как работает только свое время написал как раз и2. Делают первуюСандюк Валерий сдал поиск по сайту 1) <> 1

 mln(vl) ‘числа в «: mln(9) = = 0, «тринадцатьМожно написать алгоритм макро «: n = strМиллиарды = strМиллиарды dectys_txt & tys_txt Личная книга макросовИНДЕКС(Тысячи;ОСТАТ(ОТБР(B6/1000);1000)+1)&» «&Иногда требуется записать число

 что установленная надстройка на Паскале :-) не зависит. букву прописной, остальные

 сдал сдал говорил. Кнопочка между

 Or Mid(SumInt, shag диапозоне от 11 «миллионов «: mlrd(9) евро», IIf(Valuta = программы по-другому и Right(n, 1) Case & ИмяРазряда(strМиллиарды, Mid(strЧисло, & sot_txt & не пересылалась, т.е.ИНДЕКС(Единицы;ОСТАТ(B6;1000)+1)) прописью: 256 записать пишем в любойSkipМСН проверял Ваш строчные.Сурженко Александр не «Главная» и «Правила». — 1, 2) до 19 склоняются = «миллиардов «

 1, «тринадцать рублей», еще сделать так, «5»: Десятки = Поз + 1, dec_txt & ed_txt

 Ваши коллеги получившиеЗадача в принципе решена, как двести пятьдесят свободной ячейке листа: Сумма прописью файл на 2010,

3. Округляют до сдал сдал сдалMCH = «10» Then на «мільярдов» независимо ‘——————————————— On Error «тринадцать долларов»)) Edinicy(14) чтобы она дописывала «пятьдесят «: n 2), «миллиард «, End Function ‘вспомогательная файл, смогут с осталось только разместить

 шесть. Набирать этот произвольное число. ВыделяемНиже вы найдете я — на целых копеек.Швец Алена сдал: Кстати, Сумма прописью vl = Mid(SumInt, от последнего числа

 Resume Next SumInt = «четырнадцать «: валюту суммы прописью. = Right(n, 1)

 «миллиарда «, «миллиардов функция для выделения ним работать как вспомогательные диапазоны в текст безумно скучно, любую другую ячейку. готовую пользовательскую функцию 2003. Результат одинаковый4. Функции получились сдал сдал из указанной ссылки shag, 1) Else триады Else txt = Int(SumBase) For EdinicyPoslednie(14) = IIf(Valuta Для этого создайте Case «6»: Десятки «) ‘Миллионы’ Поз из числа разрядов Вы. Личную книгу макросов кроме того легко Кликаем по значку на VBA, которая — на листе относительно небольшими поЮщенко Мария сдал не корректна vl = Mid(SumInt,

 = txt & x = Len(SumInt) = 0, «четырнадцать Module2 и введите = «шестьдесят «:

excelworld.ru⁪>

Использование надстройки

В Эксель нет встроенного инструмента, который бы помогал автоматически переводить цифры в слова. Поэтому для решения поставленной задачи используют специальные надстройки.

Одной из самых удобных является надстройка NUM2TEXT. Она позволяет поменять цифры на буквы через Мастер функций.

Открываем программу Excel и переходим во вкладку «Файл».

Перемещаемся в раздел «Параметры».

В активном окне параметров переходим в раздел «Надстройки».

Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».

В открывшемся окне ищем предварительно скачанный и сохраненный на жесткий диск компьютера файл надстройки NUM2TEXT.xla. Выделяем его и жмем на кнопку «OK».

Мы видим, что данный элемент появился среди доступных надстроек. Ставим галочку около пункта NUM2TEXT и жмем на кнопку «OK».

Запускается Мастер функций. В полном алфавитном перечне функций ищем запись «Сумма_прописью». Её раньше не было, но она появилась тут после установки надстройки. Выделяем эту функцию. Жмем на кнопку «OK».

Отрывается окно аргументов функции Сумма_прописью. Оно содержит только одно поле «Сумма». Сюда можно записать обычное число. Оно в выделенной ячейке отобразиться в формате записанной прописью денежной суммы в рублях и копейках.

Можно в поле занести адрес любой ячейки. Это делается либо путем ручной записи координат этой ячейки, либо простым кликом по ней в то время, когда курсор находится в поле параметра «Сумма». Жмем на кнопку «OK».

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

Функцию можно также записать и вручную без вызова мастера функций. Она имеет синтаксис Сумма_прописью(сумма) или Сумма_прописью(координаты_ячейки). Таким образом, если вы в ячейке запишите формулу =Сумма_прописью(5) , то после нажатия кнопки ENTER в этой ячейке отобразиться надпись «Пять рублей 00 копеек».

Если вы введете в ячейку формулу =Сумма_прописью(A2) , то в таком случае, любое число, внесенное в ячейку A2 будет отображаться тут денежной суммой прописью.

Как видим, несмотря на то, что в Excel нет встроенного инструмента для преобразования чисел в сумму прописью, эту возможность можно довольно легко получить, просто установив необходимую надстройку в программу.

Office 365, AD, Active Directory, Sharepoint, C#, Powershell. Технические статьи и заметки.

Excel. Сумма прописью без макросов и надстроек

Дано: Excel c числами и суммами в рублях в ячейках. Задача: написать данные числа прописью без использования макросов и каких-либо надстроек программы Excel, т.е. написать число прописью при помощи стандартных формул.

Пример файла excel с таким решением можно скачать здесь. См. также Сумма прописью онлайн (если просто нужно получить результат). Что означает прописью? Данный файл производит следующие манипуляции с числами:

1. Формула 1 преобразовывает число в сумму прописью следующего формата: «0 (пропись) рублей 00 копеек»

2. Формула 2 преобразовывает число в сумму прописью следующего формата: «Пропись рублей 00 копеек»

3. Формула 3 просто переводит число в текст: число = пропись

Вот формулы, которые пишут сумму прописью:

При необходимости формулу можно подогнать под нужный формат.

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

Итак, нам необходимо сделать следующие справочники:

Имя диапазона: n_1 Диапазон: =

Имя диапазона: n_2 Диапазон: =

Имя диапазона: n_3 Диапазон: =

Имя диапазона: n_4 Диапазон: =

Имя диапазона: n_5 Диапазон: =

Имя диапазона: n0 Диапазон: =»000000000000″&ПСТР(1/2;2;1)&»00″

Имя диапазона: n0x Диапазон: =ЕСЛИ(n_3=1;n_2;n_3&n_1)

Имя диапазона: n1x Диапазон: =ЕСЛИ(n_3=1;n_2;n_3&n_5)

Имя диапазона: мил Диапазон: =

Имя диапазона: тыс Диапазон: =

Чтобы создать справочник таких диапазонов, переходим на вкладку «Формулы» — «Диспетчер имен«:

В открывшемся окне нажимаем кнопку «Создать» и в форме вводим данные первого диапазона из таблицы:

Далее таким же образом вводим все остальные диапазоны из таблицы:

Использование надстройки

Одной из самых удобных является надстройка NUM2TEXT. Она позволяет поменять цифры на буквы через Мастер функций.

Открываем программу Excel и переходим во вкладку «Файл».

Перемещаемся в раздел «Параметры».

В активном окне параметров переходим в раздел «Надстройки».

Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».

Office 365, AD, Active Directory, Sharepoint, C#, Powershell. Технические статьи и заметки.

Excel. Сумма прописью без макросов и надстроек

1. Формула 1 преобразовывает число в сумму прописью следующего формата: «0 (пропись) рублей 00 копеек»

2. Формула 2 преобразовывает число в сумму прописью следующего формата: «Пропись рублей 00 копеек»

3. Формула 3 просто переводит число в текст: число = пропись

Вот формулы, которые пишут сумму прописью:

При необходимости формулу можно подогнать под нужный формат.

Итак, нам необходимо сделать следующие справочники:

Имя диапазона: n_1 Диапазон: =

Имя диапазона: n_2 Диапазон: =

Имя диапазона: n_3 Диапазон: =

Имя диапазона: n_4 Диапазон: =

Имя диапазона: n_5 Диапазон: =

Имя диапазона: n0 Диапазон: =»000000000000″&ПСТР(1/2;2;1)&»00″

Имя диапазона: n0x Диапазон: =ЕСЛИ(n_3=1;n_2;n_3&n_1)

Имя диапазона: n1x Диапазон: =ЕСЛИ(n_3=1;n_2;n_3&n_5)

Имя диапазона: мил Диапазон: =

Имя диапазона: тыс Диапазон: =

Чтобы создать справочник таких диапазонов, переходим на вкладку «Формулы» — «Диспетчер имен«:

В открывшемся окне нажимаем кнопку «Создать» и в форме вводим данные первого диапазона из таблицы:

Далее таким же образом вводим все остальные диапазоны из таблицы:

Создание сумм прописью с помощью формул

Это вполне осуществимый вариант, но очень громоздкий. Формула, которая может самостоятельно преобразовывать числа в буковки и правильно орфографически написать сумму прописью получится очень большой. В случае, когда вы захотите упростить формулу, вам нужно будет отдельный блок формул, который буде и заниматься всеми преобразованиями. Единственное преимущество от использования формулы, это когда вы разберетесь с ней, то самостоятельно сможете ее изменять: разрядность, валюту, склонение и т.п.

Ради общего интереса я предоставлю вам пример файла с работающей формулой, которую я нашёл на excelworld.ru, поскольку самостоятельно формульным решением задачи я не занимался, но считаю нужным предоставить весь наработанный или собранный материал. Скачать пример можно по этой ссылке.