Эксель перевести число в текст прописью

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Отблагодарите автора, поделитесь статьей в социальных сетях.

Число прописью в Excel (динамический вариант)

​Смотрите также​ формулы, которую введем​ отмечаться?​Скачать число прописью в​ поэтому вводим переменную​ иначе – формируем​ "семьсот ": tys(7)​ 1, "двенадцать рублей",​ в него следующий​ n = Right(n,​

​ ", "тысячи ",​На вкладке​ Case 8: Result​ Dollar" Case Else​ окупаемость или Фитнес​через меню Формулы/ Определенные​ вариант) на листе​Запишем число прописью в​ во вспомогательный столбец.​Вам же написали​ Excel.​

​ Sclon_Tys ) If​ десятки Case 7​ = "тысяч ":​ "двенадцать долларов")) Edinicy(13)​ код:​ 1) End Select​

• ​ "тысяч ") ‘Единицы’​Файл​
• ​ = "Eighty "​ Dollars = Dollars​ для определенной цели.​ имена/ Присвоить имя​
• ​ Служ размещены вспомогательные​ Excel без использования VBA.​ Функция ПЕЧСИМВ удаляет​
• ​ – кривая. Зачем​Теперь вы можете быстро​ shag > 1​ ‘ – единицы​ mln(7) = "миллионов​

​ = "тринадцать ":​Function ЧислоПрописьюВалюта(SumBase As Double,​ Dim Двадцатка As​ Поз = 10​выберите команду​ Case 9: Result​ & " Dollars"​ В этой статье​ создайте именованную формулу​ диапазоны, содержащие некоторые​ Вспомогательные диапазоны разместим​

​ непечатаемые знаки. СЖПРОБЕЛЫ​ еще выкладывать?​ перевести сумму в​ Then If Mid(SumInt,​

• ​ миллионов vl =​ ": mlrd(7) =​ EdinicyPoslednie(13) = IIf(Valuta​ Valuta As Integer)​ String Двадцатка =​
• ​ strЕдиницы = Сотни(M Select Case​ Поз, 1)) strЕдиницы​

​.​ Case Else End​ Case Cents Case​​ знакомы с языком​​в поле Диапазон введите​Теперь эти диапазоны длиннее​​ макросов. Кроме того,​​ Функция ЗНАЧЕН преобразует​: от спасибки так​

​ воспользоваться готовым решением​ 1) = 1​

​ If shag >​ = "восемьдесят ":​ евро", IIf(Valuta =​ 19) As String:​ n Case "0":​ = strЕдиницы &​

​Щелкните раскрывающееся меню​ Select Result =​ "" Cents =​ VBA программирования и​ формулу указанную выше:​ (числа от 1​ добавим руб./коп. для​ текстовый формат в​ спасибки – а​

​ рекомендуем скачать пример​ Then Sclon_Tys =​ 2 Then If​​ Sotni(8) = "восемьсот​​ 1, "тринадцать рублей",​
​ Dim EdinicyPoslednie(0 To​
​ Двадцатка = ""​
​ Десятки(Mid(strЧисло, Поз +​
​Тип файла​

​ Result & GetDigit​ " and No​ с помощью средств,​нажмите ОК;​ до 999) и​ записи денежных сумм,​ числовой.​ главное все элементарно​ числа прописью в​

​ Edinicy(M ​ которые используются для​

​в ячейке​ содержат слова тысяча​ например: четыреста сорок​Применение инструмента «Текст по​При импорте файлов или​ Excel. Данный файл​ 1, 2)) &​ 2, 1) =​ "тысяч ": mln(8)​ = "четырнадцать ":​ Dim Desyatki(0 To​

​ Case Sex Case​ If strМиллиарды &​Книгу Excel с поддержкой​ ‘ Retrieve ones​ Cents = "​ создания и отладки​В1​ и миллион с​ четыре руб. 00​ столбцам». Выделяем столбец​ копировании данных с​

​ содержит уже готовую​​ "тисяч " End​ 0 And M : Двадцатка =​ strМиллионы & strТысячи​
​ макросов​
​ place. End If​
​ and One Cent"​
​ процедур. Сотрудники службы​введите формулу =ЧислоПрописью​ учетом склонения. Также​

​ коп.​ с текстовыми аргументами,​ числовыми значениями часто​ пользовательскую функцию и​ If txt =​ shag – 1,​ mlrd(8) = "миллиардов​

​ = 0, "четырнадцать​ Dim Sotni(0 To​ "один " Case​ & strЕдиницы =​

• ​.​​ GetTens = Result​​ Case Else Cents​
• ​ поддержки Майкрософт могут​ячейка​ создан диапазон для​Иногда требуется записать число​
• ​ которые нужно преобразовать​ возникает проблема: число​
• ​ VBA-код макроса, который​
• ​ txt & Sclon_Tys​​ 1) = 0​​ " Desyatki(9) =​
• ​ евро", IIf(Valuta =​​ 9) As String:​​ "ж": Двадцатка =​ "" Then strЕдиницы​

​Нажмите кнопку​​ End Function ‘​​ = " and​ пояснить конкретной процедуры.​В1​ отображения слова Рублей​ прописью: 256 записать​ в числа. На​ преобразуется в текст.​ доступен в модуле​ ‘-КОНЕЦ БЛОКА_______________________ Case​

​ And vl =​ "девяносто ": Sotni(9)​ 1, "четырнадцать рублей",​ Dim mlrd(0 To​ "одна " Case​ = "ноль "​Сохранить​ Converts a number​ " & Cents​ Однако они не​будет содержать число​

Преобразование чисел в слова

​ с учетом склонения.​​ как двести пятьдесят​ вкладке «Данные» находим​ В результате формулы​ из редактора.​ 3 ‘ -​ "0") Then GoTo​ = "девятьсот ":​ "четырнадцать долларов")) Edinicy(15)​ 9) As String​ "с": Двадцатка =​ ‘strЕдиницы = strЕдиницы​.​ from 1 to​ & " Cents"​ изменять эти примеры​ прописью.​Теперь все готово для​ шесть. Набирать этот​ кнопку «Текст по​ не работают, вычисления​

​ALISA​ сотни vl =​ 10 End If​ tys(9) = "тысяч​ = "пятнадцать ":​ Dim mln(0 To​ "одно " End​ & ИмяРазряда(" ",​К началу страницы​ 9 into text.​ End Select SpellNumber​ для обеспечения функциональных​Теперь ячейки​ записи формулы переводящей​ текст безумно скучно,​ столбцам». Откроется окно​ становятся невозможными. Как​: Уважаемые знатоки. Знаю​ Mid(SumInt, shag, 1)​ If shag >​ ": mln(9) =​ EdinicyPoslednie(15) = IIf(Valuta​

​ 9) As String:​ Select Case "2":​ M >

​ возможностей или создания​​А1В1​ исходное число (ячейка​ кроме того легко​ «Мастера». Нажимаем «Далее».​ это быстро исправить?​ вопрос банальный, но​ txt = txt​ 1 Then If​ "миллионов ": mlrd(9)​ = 0, "пятнадцать​ Dim tys(0 To​ Select Case Sex​ 1, 2), "рубль​ в текст в​ Case Val(Digit) Case​ Cents End Function​ процедур в соответствии​можно скопировать и​B6​ ошибиться, поэтому давно​ На третьем шаге​ Сначала посмотрим, как​ очень хочется, чтобы​ & Sotni(vl) Case​

Создание функции SpellNumber для преобразования чисел в слова

​ M ,​ Excel так, чтобы​

​ 1: GetDigit =​​ ‘ Converts a​ с конкретными требованиями.​ перенести в любое​) в текст:​

​ написаны макросы на​​ обращаем внимание на​​ исправить ошибку без​​ вы мне помогли. ​​ 2 ‘ -​

​ ‘——————————————— On Error​​ 1, "пятнадцать рублей",​ Dim SumInt, x,​ = "два "​ "рублей ") ‘Сотые’​ оно отображалось прописью​

​ "One" Case 2:​ number from 100-999​Используйте сочетание клавиш​ место в книге,​=СЖПРОБЕЛЫ(​ VBA, которые легко​ формат данных столбца.​ макросов.​ Есть таблица, в​ десятки vl =​ 1 Then txt​ Resume Next SumInt​ "пятнадцать долларов")) Edinicy(16)​ shag, vl As​ Case "ж": Двадцатка​ ‘strСотые = strКопейки​ (словами) на русском​ GetDigit = "Two"​ into text Function​Alt​ но они должны​ИНДЕКС(Миллионы;ОСТАТ(ОТБР(B6/1000000);1000000)+1)&" "&​ справляются с этой​Последний способ подходит в​Excel помогает пользователю сразу​ которой по строкам​ M Case 5:​ 0 Then Exit​ редактор Visual Basic​ т.к. именованной формуле​ осталось только разместить​ решение этой задачи​​ текст. Числовые форматы​ общая сумма всех​ 1) <> 0​ txt = txt​ shag + 1​ 1, "шестнадцать рублей",​ EdinicyPoslednie(0) = IIf(Valuta​ "3": Двадцатка =​ strМиллиарды & strМиллионы​ пользовательскую функцию с​ GetDigit = "Five"​ Function MyNumber =​ (VBE).​ использована относительная ссылка.​ вспомогательные диапазоны в​ позволяющей перевести число​Преобразовать числа, сохраненные как​ выравниваются по правому​ чисел. В строке​ Then GoTo 10​ & Edinicy(vl) &​ Select Case x​ "шестнадцать долларов")) Edinicy(17)​ = 0, "евро",​ "три " Case​ & strТысячи &​ помощью макросов.​ Case 6: GetDigit​ Right("000" & MyNumber,​Примечание:​При пересылке файла, например,​ Личную книгу макросов​ в текстовую форму​ текст, в числа​ краю, текстовые –​ ИТОГО надо чтобы​ Else txt =​ mln(vl) ‘числа в​ Case 12 ‘​ = "семнадцать ":​ IIf(Valuta = 1,​ "4": Двадцатка =​ strЕдиницы ЧислоПропись =​Для создания пользовательской функции,​ = "Six" Case​ 3) ‘ Convert​ Вы также можете открывать​ по электронной почте,​ PERSONAL.XLSB, для того​ по следующему алгоритму:​ можно с помощью​ по левому.​ общая сумма прописываль​ txt & Desyatki(vl)​ диапозоне от 11​ – сотни миллиардов​ EdinicyPoslednie(17) = IIf(Valuta​ "рублей", "долларов")) Edinicy(1)​ "четыре " Case​ UCase(Left(ЧислоПропись, 1)) &​ которая сможет перевести​ 7: GetDigit =​ the hundreds place.​ редактор Visual Basic,​ формула будет продолжать​ чтобы формула, переводящая​вводим число в определенную​ макроса.​Когда при импорте файлов​ текстом. ​ ‘ – если​ до 19 склоняются​ vl = M ​ работать, не смотря​ число в текст​ ячейку;​Есть набор значений, сохраненных​

​ или сбое в​Serge​​ конец триады от​​ на "мільярдов" независимо​ shag, 1) txt​

​ евро", IIf(Valuta =​​ EdinicyPoslednie(1) = IIf(Valuta​​ "пять " Case​ 1) Exit Function​ прописью , нам​ GetDigit = "Eight"​

​ 1) <> "0"​​ на ленту.​ на то, что​ была доступна в​с помощью формул, вспомогательных​ в текстовом формате:​ Excel числовой формат​: "сумма прописью" в​ 11 до 19​

​ от последнего числа​

Использование функции SpellNumber в отдельных ячейках

​ = txt &​​ 1, "семнадцать рублей",​​ = 0, "один​​ "6": Двадцатка =​​ Число_Error: MsgBox Err.Description​ нужно выполнить 3​ Case 9: GetDigit​ Then Result =​На вкладке​ Личная книга макросов​ любой книге.​ диапазонов с текстом​

​Чтобы вставить макрос, на​​ становится текстовым, в​​ окошке поисковика. ​

​ то перескакиваем на​

Сохранение книги с функцией SpellNumber

​ триады Else txt​ Sotni(vl) Case 11​ "семнадцать долларов")) Edinicy(18)​ евро", IIf(Valuta =​ "шесть " Case​ End Function Function​​ простых шага:​​ = "Nine" Case​​ GetDigit(Mid(MyNumber, 1, 1))​​Insert​​ не пересылалась, т.е.​​В Windows XP эта​​ и имен получаем​​ вкладке «Разработчик» находим​

​ левом верхнем углу​Выбирайте на вкус​​ единицы, иначе -​ = txt &​​ ‘ – десятки​ = "восемнадцать ":​

​ 1, "один рубль",​​ "7": Двадцатка =​​ Сотни(n As String)​​Открыть редактор макросов ALT+F11.​​ Else: GetDigit =​

​ ячеек появляется зеленый​​ и цвет. ​​ формируем десятки Case​

Как перевести сумму или число прописью в Excel

​ миллиардов vl =​ EdinicyPoslednie(18) = IIf(Valuta​ "один доллар")) Edinicy(2)​ "семь " Case​ As String Сотни​Создать новый модуль и​ "" End Select​ " End If​Module​ файл, смогут с​ папке C:Documents and​

​копируем результат вычисления формулы​ Открывается окно редактора.​ треугольничек. Это знак​Guest​ 1 ‘ -​ End If ‘-КОНЕЦ​

1. ​ M />
2. ​ (число прописью) в​ Для добавления кода​

​ ошибки. Ошибка также​

​: Спасибо большое, кажется​ единицы If M : Двадцатка =​ 0: Сотни =​ способом: Function вместо​ поле​ place. If Mid(MyNumber,​Примечание:​Примечание:​ загружается при каждом​вставляем текст в любую​ следующий код:​ числом поставить апостроф.​ макросов, с помощью​ 1) <> 1​ тысяч vl =​ shag + 1,​ "восемнадцать долларов")) Edinicy(19)​ евро", IIf(Valuta =​ "девять " Case​ "" Case 1:​ Sub. Тогда наша​Module1 (Code)​ 2, 1) <>​ Известные как Пользовательской функции​ Мы стараемся как можно​ запуске приложения Excel.​ открытую книгу «Как​Sub Conv() With ActiveSheet.UsedRange​Способов преобразования текста в​ какой-нибудь формулы этого​ Or Mid(SumInt, shag​ Mid(SumInt, shag, 1)​ 1) <> 0​ = "девятнадцать ":​ 1, "два рубля",​ "10": Двадцатка =​ Сотни = "сто​ функция «ЧислоПропись» будет​(Модуль 1 —​ "0" Then Result​ (UDF)этот код Автоматизация​ оперативнее обеспечивать вас​ В Windows Vista​ значение» (Главная/ Буфер​ arr = .Value​ число существует несколько.​ сделать нельзя?​ – 1, 2)​ txt = txt​ Then GoTo 10​ EdinicyPoslednie(19) = IIf(Valuta​ "два доллара")) Edinicy(3)​ "десять " Case​ " Case 2:​ отображаться в списке​ код).​ = Result &​ задач для преобразования​ актуальными справочными материалами​ эта книга хранится​ обмена/ Вставить/ Вставить​ .NumberFormat = "General"​ Рассмотрим самые простые​vikttur​ = "10" Then​ & Sotni(vl) Case​ Else txt =​ = 0, "девятнадцать​ = "три ":​ "11": Двадцатка =​ Сотни = "двести​ мастера функций (SHIFT+F3),​Нажмите клавиши​ GetTens(M >;​ vl = M пятьсот​Function ЧислоПропись(Число As Currency)​Примечание:​ a number from​ Count ReDim Place(9)​ важно, чтобы эта​ файла примера в​ и получить результат.​ сохранена в формате​ есть кнопка «Ошибка».​ макросов, с помощью​ ‘-КОНЕЦ БЛОКА_______________________ End​ 1, 1) <>​ формируем десятки Case​ ": mln(0) =​ EdinicyPoslednie(4) = IIf(Valuta​ "четырнадцать " Case​ " Case 6:​ As String ‘до​ Эта функция работает только​ 10 to 99​ As String Place(2)​ статья была вам​ новую книгу, и​ Все промежуточные вычисления​ с поддержкой макросов.​ Если навести на​ какой-нибудь формулы этого​ Select 10: Next​

​ 0 Then GoTo​ 10 ‘ -​ "миллионов ": mlrd(0)​ = 0, "четыре​ "15": Двадцатка =​ Сотни = "шестьсот​ 999 999 999​ для текущей книги.​ into text. Function​

​ n = Right(n,​ Десятки = "сорок​ strМиллионы & Десятки(M Temp =​ т. Это может​

• ​ИНДЕКС(PERSONAL.XLSB!тысячи;ОСТАТ(ОТБР(A1/1000);1000)+1)&" "&​
• ​ так, чтобы она​
• ​ сумму прописью в​

​ кнопки «Копировать» или​:​ функция автоматически подставит​ тысяч в русском​ 1) txt =​ ": mlrd(4) =​ "восемь долларов")) Edinicy(9)​ 1) End Select​ ": n =​ Поз + 1,​ формате стандартной книги​

​ "Nineteen" Case Else​ GetHundreds(Right(MyNumber, 3)) If​

​ быть очень полезным​ИНДЕКС(PERSONAL.XLSB!Единицы;ОСТАТ(A1;1000)+1)&" руб. "&ТЕКСТ((A1-ЦЕЛОЕ(A1))*100;"00")&"​ позволяла выводить число​ Excel.​ сочетания клавиш Ctrl​Аля, был человек, который​ нужную валюту в​ языке If vl​ txt & Sotni(vl)​ "миллиарда " Desyatki(5)​ = "девять ":​ Select Case n​

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

​ Right(n, 1) Case​​ 2), "м") strМиллионы​ без поддержки макросов​ End Select Else​ Temp <> ""​ при использовании Excel​ коп.");"ноль руб. 00​ прописью, например, в​Скачать примеры преобразования текста​ + C). Выделить​ сам с собой​ сумме прописью:​ = 1 Then​ Case 8 ‘​ = "пятьдесят ":​

​ EdinicyPoslednie(9) = IIf(Valuta​​ Case "1": ИмяРазряда​ "5": Десятки =​
​ = strМиллионы &​ (XLSX). Если щелкнуть​

​ ‘ If value​​ Then Dollars =​ как шаблон для​ коп.")​ соседней ячейке слева​ в число.​

​ столбец с редактируемыми​​ говорил, но по​1-рубли;​
​ Sclon_Tys = "одна​

​ – десятки миллионов​​ Sotni(5) = "пятьсот​ = 0, "девять​ = Имя1 Case​ "пятьдесят ": n​ ИмяРазряда(strМиллионы, Mid(strЧисло, Поз​

​ & Dollars If​Если вы хотите преобразования​

​ Ячейки, содержащие исходное​​В результате вышеуказанных манипуляций​ импорте или копировании​

​ меню кнопки «Вставить»​​Guest​

​0-евро;​ ‘ – для​ shag, 1) If​ "тысяч ": mln(5)​

​ 1, "девять рублей",​​ ИмяРазряда = Имя24​ Case "6": Десятки​

​ "миллион ", "миллиона​​Сохранить​ Case 2: Result​ Len(MyNumber) > 3​ числовых значений в​ число и формулу,​

​ можно будет, например,​​ числовых данных ошибку​ нажать «Специальная вставка».​: работает и с​
​Как видите, этот VBA-код​ тысяч склонение "один"​ vl = "1"​

​ = "миллионов ":​​ "девять долларов")) Edinicy(11)​ Case Else: ИмяРазряда​ = "шестьдесят ":​

Преобразование текста в число в ячейке Excel

​ ", "миллионов ")​. Откроется диалоговое окно​ = "Twenty "​ Then MyNumber =​ текстовом формате без​ можно перенести в​ записав в ячейке​ легко устранить. Преобразовать​ В открывшемся окне​ офисом 2к10​ макроса преобразует числа​ и "два" неприменимо​

Как преобразовать текст в число в Excel

​ And M :​ = ИмяПроч End​ n = Right(n,​ ‘Тысячи’ Поз =​проекта VB​ Case 3: Result​

​ Left(MyNumber, Len(MyNumber) -​ отображения их как​ любое место в​G6​ текст в число​ установить галочку напротив​MCH​ в слова. После​ ( поэтому вводим​ + 1, 1)​

​ " Desyatki(6) =​ EdinicyPoslednie(11) = IIf(Valuta​ Select End If​ 1) Case "7":​

1. ​ 7 strТысячи =​. Нажмите кнопку​ = "Thirty "​ 3) Else MyNumber​ слова, используйте функции​ книге или даже​исходное число, а​ можно разными способами​ «Умножить». После нажатия​: Функция кривая, на​ вставки данного кода​ переменную Sclon_Tys )​ <> 0 Then​ "шестьдесят ": Sotni(6)​ = 0, "одиннадцать​
2. ​ End Function​ Десятки = "семьдесят​ Сотни(M />

​ = "Fifty "​ Loop Select Case​ для иллюстрации и​ именованную формулу ЧислоПрописью.​

​ получить нужный результат.​

Макрос «Текст – число»

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

​ & tys(vl) ‘​ – если конец​

​ "миллионов ": mlrd(6)​ = "двенадцать ":​ чтобы она дописывала​ "восемьдесят ": n​ "ж") strТысячи =​Книга Excel с поддержкой​ Case 6: Result​

​ Dollars Case ""​ без гарантий выраженное​ Для этого:​Все это реализовано в​ впоследствии с числовыми​ распознается программой из-за​

​vikttur​ из мастера (кнопка​ – для тысяч​ триады от 11​ = "миллиардов "​

​ EdinicyPoslednie(12) = IIf(Valuta​ валюту суммы прописью.​ = Right(n, 1)​ strТысячи & ИмяРазряда(strТысячи,​ макросов (xlsm)​ = "Sixty "​ Dollars = "No​ или подразумевается. Включает​выделите ячейку​

​ аргументами производятся все​ невидимых символов. Удалим​

​: Безымянный, Вы в​ fx возле строки​ склонение "один" и​ до 19 то​ Desyatki(7) = "семьдесят​

​ = 0, "двенадцать​ Для этого создайте​ Case "9": Десятки​ Mid(strЧисло, Поз +​, чтобы сохранить файл​ Case 7: Result​ Dollars" Case "One"​

​ в себя, но​B1​Как и в примере​ необходимые операции.​

​ их с помощью​ каждой теме будете​

​ формул).​ "два" неприменимо (​ перескакиваем на единицы,​ ": Sotni(7) =​ евро", IIf(Valuta =​ Module2 и введите​ = "девяносто ":​ 1, 2), "тысяча​ в текущем формате.​ = "Seventy "​ Dollars = "One​ не ограничивается гарантий​;​

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

Компьютер Путина и Windows XP: кто экономит на главе государства?

Прекращение поддержки Виндовс 7: пришла пора ли прощаться с ноутбуком?

Обновление Windows 10 – вирус с доставкой на дом

Режим инкогнито Explorer: место, где можно спрятаться от всего мира

Как в Explorer посмотреть сохраненные пароли

Во многих документах мы можем видеть строку, в которой требуется указать сумму не в числовом виде, а прописью. Это защищает отчетность от подделки, ведь цифру легко переправить. А вот длинную запись незаметно исправить не так-то просто. Сумма прописью в Excel доступна только в виде надстроек или с использованием формул. Встроенного инструмента не имеется.

Как в Excel сделать сумму прописью

Чтобы получить эту возможность, вы можете скачать надстройку «Сумма прописью» в Excel бесплатно на нашем сайте.

Разместите его в любом удобном каталоге и подключите. Для этого следует пройти следующие этапы:

• Запустите Excel и нажмите «Файл».
  
• Щелкните на параметры.
  
• Далее переходите в надстройки.
  
  И кликайте по кнопке «Перейти».
  
• Чтобы подгрузить скачанный файл жмите «Обзор».
  
• И ищите его в папке, куда сохраняли. Вам предложат скопировать файл в папку надстроек, рекомендуем согласиться. Так Excel всегда будет видеть эту надстройку и вы легко найдете функцию для суммы прописью.
  
• Нужная библиотека Excel подключена. Галочка означает, что ее можно использовать. Жмите ОК.
  
• Нужные действия реализованы в виде функции СУММА_ПРОПИСЬЮ. Чтобы применить ее, введите в ячейку A1 число и установите указатель рядом, на B1. Нажмите значок Fx около строки формул.
  
• И в полном алфавитном перечне найдите функцию СУММА_ПРОПИСЬЮ. Рекомендуем начать печатать название. В таком случае Excel сам перемотает ближе к нужному разделу.
  
• Жмите ОК и в окне мастера укажите адрес A1. Можно просто мышкой кликнуть по ячейке.
  
• После нажатия ОК вы увидите сумму прописью.
  

Эта функция «сумма_прописью» работает в Excel 2007, 2010, 2016

Данная надстройка работает только для рублей. Если вам нужна другая валюта, скачайте еще файл sumprop.xla. Действуя по аналогии подключите надстройку для получения суммы прописью в Excel.

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

Как видите, нам стали доступны:

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

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

После нажатия ОК получаем результат.

С помощью этих инструментов преобразование числа в текст прописью в 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),<0,"ь ";1,"я ";4,"ей ">,2)&RIGHT(TEXT(A1,n0),2)&" копе"&VLOOKUP(MOD(MAX(MOD(RIGHT(TEXT(A1,n0),2)-11,100),9),10),<0,"йка";1,"йки";4,"ек">,2)

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

Преобразование с помощью макросов Excel

Можно написать собственную функцию, которая произведет конвертацию суммы прописью. Нажмите сочетание ALT+F11 и в открывшемся разработчике Excel VBA вставьте новый модуль.

В него добавьте следующий код.

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

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

Перевод в сумму прописью осуществляется только для целых чисел.

Дробное число требует дополнительной формулы:

Вместо ячейки A7 подставляйте свой адрес. Копейки в таком исполнении будут выводиться в виде числа.

Мы рассмотрели все способы представления суммы прописью в Excel. Выбирайте для себя самый удобный и пользуйтесь с удовольствием!