Как сделать сумму прописью в excel: пошаговая инструкция

eighty-five thousand, nine hundred and eighty-five rubles and zero kopecks

Начислить НДС на сумму 85985.00:

Сумма НДС 18% (Россия) = 15477.30 прописью:

На русском языке: пятнадцать тысяч четыреста семьдесят семь рублей тридцать копеек На английском языке: fifteen thousand, four hundred and seventy-seven rubles and thirty kopecks

Сумма 85985.00 с НДС 18% (Россия) = 101462.30 прописью:

На русском языке: сто одна тысяча четыреста шестьдесят два рубля тридцать копеек На английском языке: one hundred and one thousand, four hundred and sixty-two rubles and thirty kopecks

Сумма НДС 10% (Россия) = 8598.50 прописью:

На русском языке: восемь тысяч пятьсот девяносто восемь рублей пятьдесят копеек На английском языке: eight thousand, five hundred and ninety-eight rubles and fifty kopecks

Сумма 85985.00 с НДС 10% (Россия) = 94583.50 прописью:

На русском языке: девяносто четыре тысячи пятьсот восемьдесят три рубля пятьдесят копеек На английском языке: ninety-four thousand, five hundred and eighty-three rubles and fifty kopecks

Сумма НДС 12% (Казахстан) = 10318.20 прописью:

На русском языке: десять тысяч триста восемнадцать рублей двадцать копеек На английском языке: ten thousand, three hundred and eighteen rubles and twenty kopecks

Сумма 85985.00 с НДС 12% (Казахстан) = 96303.20 прописью:

На русском языке: девяносто шесть тысяч триста три рубля двадцать копеек На английском языке: ninety-six thousand, three hundred and three rubles and twenty kopecks

Сумма НДС 20% (Украина) = 17197.00 прописью:

На русском языке: семнадцать тысяч сто девяносто семь рублей ноль копеек На английском языке: seventeen thousand, one hundred and ninety-seven rubles and zero kopecks

Сумма 85985.00 с НДС 20% (Украина) = 103182.00 прописью:

На русском языке: сто три тысячи сто восемьдесят два рубля ноль копеек На английском языке: one hundred and three thousand, one hundred and eighty-two rubles and zero kopecks

Выделить НДС из суммы 85985.00:

Сумма НДС 18% (Россия) = 13116.36 прописью:

На русском языке: тринадцать тысяч сто шестнадцать рублей тридцать шесть копеек На английском языке: thirteen thousand, one hundred and sixteen rubles and thirty-six kopecks

Сумма 85985.00 без НДС 18% (Россия) = 72868.64 прописью:

На русском языке: семьдесят две тысячи восемьсот шестьдесят восемь рублей шестьдесят четыре копейки На английском языке: seventy-two thousand, eight hundred and sixty-eight rubles and sixty-four kopecks

Сумма НДС 10% (Россия) = 7816.82 прописью:

На русском языке: семь тысяч восемьсот шестнадцать рублей восемьдесят две копейки На английском языке: seven thousand, eight hundred and sixteen rubles and eighty-two kopecks

Сумма 85985.00 без НДС 10% (Россия) = 78168.18 прописью:

На русском языке: семьдесят восемь тысяч сто шестьдесят восемь рублей восемнадцать копеек На английском языке: seventy-eight thousand, one hundred and sixty-eight rubles and eighteen kopecks

Сумма НДС 12% (Казахстан) = 9212.68 прописью:

На русском языке: девять тысяч двести двенадцать рублей шестьдесят восемь копеек На английском языке: nine thousand, two hundred and twelve rubles and sixty-eight kopecks

Сумма 85985.00 без НДС 12% (Казахстан) = 76772.32 прописью:

На русском языке: семьдесят шесть тысяч семьсот семьдесят два рубля тридцать две копейки На английском языке: seventy-six thousand, seven hundred and seventy-two rubles and thirty-two kopecks

Сумма НДС 20% (Украина) = 14330.83 прописью:

На русском языке: четырнадцать тысяч триста тридцать рублей восемьдесят три копейки На английском языке: fourteen thousand, three hundred and thirty rubles and eighty-three kopecks

Сумма 85985.00 без НДС 20% (Украина) = 71654.17 прописью:

На русском языке: семьдесят одна тысяча шестьсот пятьдесят четыре рубля семнадцать копеек На английском языке: seventy-one thousand, six hundred and fifty-four rubles and seventeen kopecks

← 85984.99
85985.01 →

Цифры прописью в Excel

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

Интересно. Как сделать подобное в Word читайте здесь.

Число прописью в Экселе. Установка

Как правило, необходимость конвертировать цифры в текст возникает в различных бухгалтерских и платежных документах, поэтому радует и наличие возможности выбора основных валют (рубли, доллары и евро).

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

Делаем в следующем порядке:

1. Скачиваем и распаковываем файл кликнув здесь.

2. Закиньте файл NUMSTR.XLA в папку Library, которая находится C:ProgramFiles (x86)MicrosoftOfficeOffice14Library (возможно расположение немного отличается, зависит от версий ПО).

3. Запустите Excel и на вкладке «Разработчик» кликните по кнопке «Надстройки» ( если ее нет, читайте ниже ).

Внимание. Если нет вкладки «Разработчик», пройдите Файл → Параметры → Настройка ленты и установите галку напротив пункта «Разработчик»

4. В окне «Надстройки» отметьте пункт NumStrAdd-in и нажмите ОК.

Усё можно пользоваться.

Число прописью в Excel. Как пользоваться

Расширение установлено, теперь несколько слов как использовать:

5. Для примера напишите в произвольной ячейке число цифрами.

6. Кликните по кнопке «Вставить Функцию».

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

8. После этого выберите необходимую функцию:

NumStr – отобразит цифры буквами в Excel;

RubStr – преобразует число прописью в рублях;

USDStr – конвертирует число прописью в долларах;

EURStr – выведет сумму прописью в евро.

9. В следующем окне «Аргументы функции» укажите в поле ячейку с данными (кликнут курсором) или непосредственно число цифрами, завершив нажатием кнопки ОК и растянувшейся улыбкой.

Интересно. Как закрепить строки в Excel читайте тут.

Как работает калькулятор «Сумма прописью онлайн»

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

Прописная расшифровка появляется именно в том варианте, который принят для финансовых документов: рубли указываются прописью, копейки — цифрами, это правило. Сумма пишется с заглавной буквы, значение суммы в рублях и копейках не разделяется запятой или другим знаком препинания (точка, скобка). Например: “Двадцать тысяч пятьсот один рубль 51 копейка”.

Если нужно указать число копеек в сумме, пишите их после запятой или точки в составе числа. Пробел для этой цели использовать не удастся. Например: “20500,56” или “346.5”.

Если сумма целая, без копеек, пишите число без запятой и нулевых показателей после нее. Например: “3000000”. Калькулятор все поймет сам и предложит прописной вариант суммы с дополнением: “00 копеек”. Но и указание суммы в виде десятичной дроби с нулевыми значениями после запятой тоже допустимо. Например: “100,00”. Третий знак после запятой (точки) поставить не удастся.

Будьте внимательны, прописывая большие числа, особенно с несколькими нулями подряд.

Арабские и римские цифры

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

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

Порядковые числительные, обозначаемые арабскими цифрами, пишутся с наращением: «80-е годы». Падежное окончание в порядковых числительных должно быть однобуквенным или двубуквенным.

Однобуквенные окончания пишутся тогда, когда последней букве числительного предшествует гласный звук. Например, 4-й (четвертый), 4-я (четвертая), 5-е (пятое, пятые), 5-м (пятом, пятым).

Двубуквенные окончания используют, если последней букве числительного предшествует согласный звук. Например, 5-го, 5-му, 6-му.

При написании порядковых числительных гораздо реже могут использоваться римские цифры, которые в этом случае пишутся без наращения: «специалист II категории», «юрисконсульт I категории».

Сложные существительные и прилагательные, имеющие в своем составе числительные, пишутся следующим образом:

500-летие,
3-месячный срок,
10-процентный,
3-дневный.

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

Впервые в мировой истории постановление о том, что во всех документах цифры должны писаться прописью, а не арабскими цифрами, было принято в 1299 году во Флоренции. Однако этот запрет на арабские цифры был наложен не только из-за того, что цифры легче исправить, чем слова, но и из-за того, что новые тогда для Европы арабские цифры многие жители рассматривали как подозрительную «арабскую магию».

Использования для написания суммы прописью программы Exсel

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

Порядок использования надстройки:

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

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

Примеры

Для начала приведем примеры преобразования, чтобы узнать возможности 1С:

// ***** Вывод чисел: *****
ЧислоПрописью(9876.54);
// Девять тысяч восемьсот семьдесят шесть 54

ЧислоПрописью(1234.56, "Л=ru_RU;ДП=ИСТИНА", "целая, целых, целых, ж, сотая, сотой, сотых, ж, 2");
// Одна тысяча двести тридцать четыре целых пятьдесят шесть сотых

ЧислоПрописью(7432, "Л=ru_RU;НП=Ложь", ",,,,,,,,0");
// Семь тысяч четыреста тридцать два

// ***** Вывод денежных сумм: *****
ЧислоПрописью(9845.11, "Л=ru_RU", "рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
// Девять тысяч восемьсот сорок пять рублей 11 копеек

ЧислоПрописью(2845.11, "Л=ru_RU;ДП=Истина", "рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
// Две тысячи восемьсот сорок пять рублей одиннадцать копеек

ЧислоПрописью(555.16, "Л=ru_RU;ДП=Истина", "доллар, доллара, долларов, м, цент, цента, центов, м, 2");
// Пятьсот пятьдесят пять долларов шестнадцать центов

ЧислоПрописью(453.23, "Л=ru_RU;ДП=Истина", "евро, евро, евро, м, цент, цента, центов, м, 2");
// Четыреста пятьдесят три евро двадцать три цента

ЧислоПрописью(812.44, "Л=en_US;ДП=Истина", "dollar, dollars, cent, cents, 2");
// Eight hundred twelve dollars forty four cents

ЧислоПрописью(3945.76, "Л=en_US;ДП=Истина", "euro, euros, cent, cents, 2");
// Three thousand nine hundred forty five euros seventy six cents

// ***** Преобразовывать можно не только денежные единицы: *****
ЧислоПрописью(535, "Л=ru_RU", "коробка, коробки, коробок, ж,,,,ж, 0");
// Пятьсот тридцать пять коробок

ЧислоПрописью(342, "Л=ru_RU", "телевизор, телевизора, телевизоров, м,,,,м, 0");
// Триста сорок два телевизора

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

Сумма прописью в Excel – одна из возможностей, которая не реализована в стандартном Excel. Почему, я скажу позже свои доводы. А пока для чего она нужна: прописью записанная сумма позволяет не ошибиться со знаком после запятой, не принять одну сумму за другую. Еще такая запись лучше выглядит по сравнению с набором цифр. Те, кто работает с цифрами, со временем и печатает документы с использованием таких цифр, нуждаются в таком инструменте.

К счастью, решений проблемы масса, их можно найти в инете и причем бесплатно:

Формулы. Это громоздко, но вполне используемо. Тем более, что если вы разбираетесь в этой формуле, сможете сами поправить ее: разрядность, склонение и т.д.
Функции. На мой взгляд, лучшее решение. Позволяет не воевать с функцией, диапазонами и книгами. Просто добавить надстройку и использовать функцию Суммапрописью (или любую другую).

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

Просто число или единица времени, денег и т.д.?
Мужской род единицы или женский?
Сколько разрядов поддерживать?

Сумма прописью онлайн

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

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

одна тысяча пятьсот тенге 85 тиынСкопировано в буфер обмена!

Сумма прописью на казахском языке:

бір мың бес жүз теңге 85 тиынСкопировано в буфер обмена!

Сумма прописью на английском языке:

one thousand five hundred tenge 85 tiynСкопировано в буфер обмена!

? кликните на поле ввода, чтобы скопировать полученную сумму прописью в буфер обмена для последующей вставки клавишами Ctrl + V.

Сумма	На русском языке	На казахском языке	На английском языке
ноль	нөл	zero
1	один	бір	one
2	два	екі	two
3	три	үш	three
4	четыре	төрт	four
5	пять	бес	five
6	шесть	алты	six
7	семь	жеті	seven
8	восемь	сегіз	eight
9	девять	тоғыз	nine
10	десять	он	ten
11	одиннадцать	он бір	eleven
12	двенадцать	он екі	twelve
13	тринадцать	он үш	thirteen
14	четырнадцать	он төрт	fourteen
15	пятнадцать	он бес	fifteen
16	шестнадцать	он алты	sixteen
17	семнадцать	он жеті	seventeen
18	восемнадцать	он сегіз	eighteen
19	девятнадцать	он тоғыз	nineteen
20	двадцать	жиырма	twenty
100	сто	бір жүз	one hundred
200	двести	екі жүз	two hundred
300	триста	үш жүз	three hundred
400	четыреста	төрт жүз	four hundred
500	пятьсот	бес жүз	five hundred
600	шестьсот	алты жүз	six hundred
700	семьсот	жеті жүз	seven hundred
800	восемьсот	сегіз жүз	eight hundred
900	девятьсот	тоғыз жүз	nine hundred
1 000	одна тысяча	бір мың	one thousand
2 000	две тысячи	екі мың	two thousand
3 000	три тысячи	үш мың	three thousand
4 000	четыре тысячи	төрт мың	four thousand
5 000	пять тысяч	бес мың	five thousand
6 000	шесть тысяч	алты мың	six thousand
7 000	семь тысяч	жеті мың	seven thousand
8 000	восемь тысяч	сегіз мың	eight thousand
9 000	девять тысяч	тоғыз мың	nine thousand
10 000	десять тысяч	он мың	ten thousand
100 000	сто тысяч	бір жүз мың	one hundred thousand
200 000	двести тысяч	екі жүз мың	two hundred thousand
300 000	триста тысяч	үш жүз мың	three hundred thousand
400 000	четыреста тысяч	төрт жүз мың	four hundred thousand
500 000	пятьсот тысяч	бес жүз мың	five hundred thousand
600 000	шестьсот тысяч	алты жүз мың	six hundred thousand
700 000	семьсот тысяч	жеті жүз мың	seven hundred thousand
800 000	восемьсот тысяч	сегіз жүз мың	eight hundred thousand
900 000	девятьсот тысяч	тоғыз жүз мың	nine hundred thousand
1 000 000	один миллион	бір миллион	one million
2 000 000	два миллиона	екі миллион	two million
3 000 000	три миллиона	үш миллион	three million
4 000 000	четыре миллиона	төрт миллион	four million
5 000 000	пять миллионов	бес миллион	five million
6 000 000	шесть миллионов	алты миллион	six million
7 000 000	семь миллионов	жеті миллион	seven million
8 000 000	восемь миллионов	сегіз миллион	eight million
9 000 000	девять миллионов	тоғыз миллион	nine million
10 000 000	десять миллионов	он миллион	ten million
100 000 000	сто миллионов	бір жүз миллион	one hundred million
200 000 000	двести миллионов	екі жүз миллион	two hundred million
300 000 000	триста миллионов	үш жүз миллион	three hundred million
400 000 000	четыреста миллионов	төрт жүз миллион	four hundred million
500 000 000	пятьсот миллионов	бес жүз миллион	five hundred million
600 000 000	шестьсот миллионов	алты жүз миллион	six hundred million
700 000 000	семьсот миллионов	жеті жүз миллион	seven hundred million
800 000 000	восемьсот миллионов	сегіз жүз миллион	eight hundred million
900 000 000	девятьсот миллионов	тоғыз жүз миллион	nine hundred million
1 000 000 000	один миллиард	бір миллиард	one billion

Как сумму перевести в текст в Excel2007

. Сюда можно записать в 2003.Юрий М тысяча рублей 00 «А» в ячейке после запятой. rrr: ‘формируем итоговую:Wasp49 десятки vl = txt = txt = «миллиона «: = 0, «два «ж»: Двадцатка = ИмяРазряда(strМиллионы, Mid(strЧисло, ПозИНДЕКС(PERSONAL.XLSB!Единицы;ОСТАТ(A1;1000)+1)&» руб. «&ТЕКСТ((A1-ЦЕЛОЕ(A1))*100;»00»)&»

 прерогатива VBA. обычное число. ОноЯ сделал так:: А что -

 копеек. А56 работает нормально.4. Делает первую строку СУММАПРОПИСЬЮ =Аля, был человек, который: «Спасибо большое, кажется Mid(SumInt, shag, 1)

 & Desyatki(vl) ‘ mlrd(2) = «миллиарда евро», IIf(Valuta =

 «одна » Case + 1, 2), коп.»);»ноль руб. 00

Тем не менее, можно в выделенной ячейке распаковал post-106917 и нашу «Копилку» обворовали?GuestEvgeniyaD букву прописной, остальные decmil_txt & mil_txt

 сам с собой нашла!!! А без If vl = — если конец » Desyatki(3) = 1, «два рубля», «с»: Двадцатка =

 «миллион «, «миллиона коп.») предложить следующее решение отобразиться в формате

 скопировал файл в Там нет Суммы: Стандартной функции нет.

: MCH, ясно. Отображается строчные. & sottys_txt &

 говорил, но по макросов, с помощью «1» And Mid(SumInt, триады от 11 «тридцать «: Sotni(3) «два доллара»)) Edinicy(3) «одно » End «, «миллионов «)

Формула отобразит число прописью. с помощью обычных записанной прописью денежной C-DocumSet-User-ApplicData-Microsoft-AddIns. Затем в прописью?Есть только пользовательские.

 у нас по-разному.5. Если число dectys_txt & tys_txt делу - какой-нибудь формулы этого shag + 1,

 до 19 то = «триста «: = «три «: Select Case «2»: ‘Тысячи’ Поз = Ячейки, содержащие исходное формул: суммы в рублях рабочет документе (счете,Guest

Поищите на форуме Alex_ST, «гарантированный» просто целое, например 121, & sot_txt &Guest

 сделать нельзя?» 1) <> 0

 перескакиваем на единицы, tys(3) = «тысячи

 EdinicyPoslednie(3) = IIf(Valuta Select Case Sex 7 strТысячи =

 число и формулу,разместить в Личной книге и копейках. накладной) в любой: не такая

 самостоятельно — примеры забыла удалить. Я то результат будет dec_txt & ed_txt: работает и сПопробую найти у Then GoTo 10 иначе — формируем «: mln(3) = = 0, «три

 Case «м»: Двадцатка Сотни(Mid(strЧисло, Поз, 1))

 можно перенести в макросов (PERSONAL.XLSB) вспомогательныеМожно в поле занести нужной ячейке пишуЮрий М

 выкладывались неоднократно. имела ввиду именно «Сто двадцать один», End Function ‘вспомогательная офисом 2к10 себя в файлах Else txt = десятки Case 7 «миллиона «: mlrd(3) евро», IIf(Valuta = = «два « strТысячи = strТысячи любое место в диапазоны, содержащие некоторые адрес любой ячейки. =СуммаПрописью(), где в: Что не такая?ytk5kyky

 ячейку а56. Но, если дробное - функция для выделенияMCH пропись на русском txt & Desyatki(vl) ‘ — единицы = «миллиарда « 1, «три рубля», Case «ж»: Двадцатка & Десятки(Mid(strЧисло, Поз книге или даже числа прописью (от Это делается либо скобках указываю суммуdude: Я уж было видимо, зависит от 121,22, то результат из числа разрядов: Функция кривая, на языке без маросов.

 ‘ — если миллионов vl =

 Desyatki(4) = «сорок «три доллара»)) Edinicy(4) = «две « + 1, 2), в другую книгу. 0 до 999); путем ручной записи или даю ссылку

: сумма прописью подумал, что никто программы. получится «Сто двадцать

 Private Function Class(M, числах 0, 1000000, есть на английском конец триады от Mid(SumInt, shag, 1) «: Sotni(4) = = «четыре «: Case «с»: Двадцатка «ж») strТысячи =Чтобы еще больше приблизитьсясоздать формулу, переводящую в координат этой ячейки, на ячейку. Все(без арабской вязи)

 этот вопрос неAlex_ST одна целая двадцать I) Class = 1000000000 и др. (но там все

 11 до 19 If shag > «четыреста «: tys(4) EdinicyPoslednie(4) = IIf(Valuta = «Два « strТысячи & ИмяРазряда(strТысячи, к идеалу создадим текст любое число либо простым кликом работает!Владимир задаст. Большой был: Да похоже, что две сотых». Int(Int(M — (10 дает не правильное проще — нет то перескакиваем на 2 Then If = «тысячи «: = 0, «четыре End Select Case

planetaexcel.ru⁪>

Mid(strЧисло, Поз +

В excel преобразовать число в время в
Excel 2016 сумма прописью
Excel преобразовать в число
Преобразовать дату в число в excel
В excel перевод числа в текст
Excel число преобразовать в строку
Excel как число преобразовать в текст
Excel преобразовать дату в текст
Как в excel выделить число из текста
Как преобразовать текст в число эксель
Как в excel число сделать прописью
Функция в excel преобразовать в число

Как работает калькулятор «Сумма прописью онлайн»

Ведите бухгалтерский учет и сдавайте отчетность в ПФР, ФСС, ФНС в веб-сервисе Контур.Бухгалтерия.

Будьте внимательны, прописывая большие числа, особенно с несколькими нулями подряд.

Юсипова Е.Г. | заместитель начальника правового управления, начальник договорного отдела фармацевтической компании, член Гильдии Управляющих Документацией

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

Существуют три формы написания чисел в тексте:

В цифровой форме пишутся преимущественно количественные числительные, например, «Подтверждаем, что нашим предприятием было получено 3 тонны цемента».

В словесной форме пишутся все числа, с которых начинается предложение, особенно первое в абзаце, например: «Десять станков необходимо отправить в филиал предприятия «Экотехника» в г. Псков».

Буквенно-цифровая форма представления чисел предпочтительнее тогда, когда приводятся крупные круглые цифры. Например, 50 млрд рублей, 50 тыс. руб., 10 млн рублей прочитать легче, чем 50 000 000 000 рублей.

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

Вот код 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 в строке формул, категория Определенные пользователем)

Надстройка: цена прописью в Excel

В большинстве случаев ее использование в качестве надстройки наиболее удобно. Хотя иногда возникают проблемы подключения надстройки.

Нужно поместить полученный файл sumprop.xla в папку, в которой хранятся дополнительные надстройки. Конкретный путь к этой папке зависит от версии Excel. Но скорее всего, в Windows 7, он будет похожим на этот:

C:\Documents and Settings\User\Application Data\Microsoft\AddIns

где: вместо User следует подставить имя пользователя Windows.

Дополнительное неудобство вызывается тем, что папка Application Data может быть скрыта. То есть не видна при просмотре в проводнике Windows.

Проще всего для размещения скачанного файла в нужной папке нужно:

Выбрать в Excel команду меню Сервис — Надстройки и в появившемся диалоге нажать кнопку Обзор. Будет открыт диалог выбора файла с надстройкой, причем текущей окажется нужная вам папка.
Запустите проводник Windows и перейдите в нем к папке, в которой находится скачанный ранее из интернета файл. Перетащите с помощью мыши значок файла из окна проводника в открытый диалог. Теперь файл с нужной надстройкой находится в нужной папке.
Щелкните на нем мышью и нажмите кнопку OK, чтобы закрыть диалог. В списке доступных надстроек должна появиться строка Сумма Прописью.
Установите флажок рядом с этой строкой и нажмите кнопку OK,
После чего вы сможете использовать функцию печати суммы прописью в Excel.

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

После этого была создана надстройка, в которой были объединены все наиболее востребованные инструменты для преобразования чисел в текст прописью на русском языке. Кроме людей, работающих с договорами, эта надстройка может стать незаменимым инструментом в повседневной работе бухгалтеров, менеджеров, экономистов, финансистов и вообще всех пользователей, кто использует в своей деятельности Microsoft Office Excel для работы с договорами, платежками, приходниками, расходниками, счетами-фактурами и прочими документами, формируемыми в Excel.

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

1. Одним кликом мыши вызвать диалоговое окно макроса прямо с панели инструментов Excel;

2. преобразовать любое число от 0 до 999 999 999 999 в прописной текст ;

3. преобразовать все числа в выбранном Вами диапазоне;

4. использовать при написании чисел прописью одну из валют на выбор: рубли, доллары, евро, тенге, гривны;

5. выбрать строчную либо заглавную букву в каждом первом слове суммы прописью;

6. выбрать любую позицию для вставки суммы прописью, относительно суммы цифрами;

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

Формула суммы прописью в 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.

Выделить НДС из суммы 85985.00:

Сумма НДС 18% (Россия) = 13116.36 прописью:

Сумма 85985.00 без НДС 18% (Россия) = 72868.64 прописью:

Сумма НДС 10% (Россия) = 7816.82 прописью:

Сумма 85985.00 без НДС 10% (Россия) = 78168.18 прописью:

Сумма НДС 12% (Казахстан) = 9212.68 прописью:

Сумма 85985.00 без НДС 12% (Казахстан) = 76772.32 прописью:

Сумма НДС 20% (Украина) = 14330.83 прописью:

Сумма 85985.00 без НДС 20% (Украина) = 71654.17 прописью:

← 85984.99
85985.01 →

О сервисе вывода суммы прописью

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

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

При работе с большим количеством цифр возникновение технической ошибки (описки) — вопрос времени. Использование нашего сервиса позволит избежать ошибок и обработать большой массив данных без потерь времени.