Excel как перевести цифры в слова

В Excel нет функции по умолчанию, которая отображает числа в качестве английских слов на листах, но вы можете добавить эту возможность, вклеив следующий код функции SpellNumber в модуль VBA (Visual Basic для приложений). Эта функция позволяет преобразовать суммы в рублях и центах в слова с помощью формулы, поэтому 22,50 будет читаться как Twenty-Two рублях и fifty Cents. Это может быть очень полезно, если вы используете Excel в качестве шаблона для печати проверок.

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

Примечание: Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации без каких-либо гарантий, как выраженных, так и подразумеваемых. При этом подразумеваемые гарантии пригодности для определенной цели включают, но не ограничив эту возможность. В этой статье предполагается, что вы знакомы с языком программирования VBA и средствами, которые используются для создания и отлагки процедур. Инженеры службы поддержки Майкрософт могут объяснить функциональные возможности конкретной процедуры. Однако они не будут изменять эти примеры, чтобы обеспечить дополнительные функции или создавать процедуры в порядке, отвечая вашим требованиям.

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

1. Используйте клавиши ALT+F11, чтобы открыть редактор Visual Basic (VBE).

2. На вкладке Insert (Вставка) нажмите кнопку Module (Модуль).

   

3. Скопируйте приведенный ниже код.

   Примечание: Этот код автоматизирует преобразование чисел в текст на всем компьютере.

   Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function

4. Вставьте строки кода в поле Module1 (Code) (Модуль 1 — код).

   

5. Нажмите ALT+Q, чтобы вернуться в Excel. Функция SpellNumber готова к использованию.

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

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

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

1. Введите формулу =SpellNumber(A1)в ячейку, в которой нужно отобразить записанное число, где A1 — это ячейка с числом, преобразуемом в ячейку. Вы также можете ввести значение вручную, например =SpellNumber(22,50).

2. Нажмите ввод, чтобы подтвердить формулу.

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

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

В Excel не удается сохранить книгу с функциями макроса в стандартном формате книги без макроса (XLSX). Если нажать кнопку «>сохранить». Откроется диалоговое окно проекта VB. щелкните Нет.

Вы можете сохранить файл как книгу Excel Macro-Enabled (XLSM), чтобы сохранить его в текущем формате.

1. На вкладке Файл выберите команду Сохранить как.

2. В меню «Тип сохранения» выберите пункт «Macro-Enabled Excel».

3. Нажмите кнопку Сохранить.

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

• Число прописью в Excel – формула
• Сумма прописью с копейками в Excel
  • В русских рублях, все буквы строчные
  • В русских рублях, первая буква заглавная
  • В русских рублях с копейками прописью
  • В белорусских рублях
• Сумма прописью — формула для Openoffice Calc
• Сумма прописью в Google Spreadsheets
• UDF-функции надстройки !SEMTools
• Процедуры !SEMTools
• Перевод чисел прописью в другие падежи

Число или сумма прописью — в ручном исполнении — непростая задача. А если его нужно печатать десятки раз на дню и с множеством документов, точно нужна автоматизация.

Идеальным решением была бы формула в Excel.

Есть ли такая формула? Да! А главное, что вам делать ничего не придется (только скопировать), потому что я уже сделал её за вас! Но обо всем по порядку.

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

• в зависимости от того, на какую цифру заканчивается число, его падеж и число могут быть:
  • единственное, именительный (двадцать один рубль)
  • единственное, родительный (двадцать два/три/четыре рубля)
  • множественное, родительный (двадцать, двадцать пять/шесть/семь/восемь/девять рублей)
• При этом даже из этого правила уже есть исключения – числа от 11 до 14 – множественного числа, хотя числа от 1 до 4 – единственного.
• Ноль пишется цифрами, но не пишется прописью. Кроме случая с копейками – там он пишется в прописи, но цифрами.
• При этом от нуля может зависеть то, как будет выглядеть число или сумма прописью.
• Копейки женского рода, а рубли – мужского. Одна копейка, но один рубль.

И это далеко не все нюансы. Есть ли варианты, которые их все учитывают?

Большинство руководств в интернете предлагают надстройки. Также предлагаются формулы на основе именованных диапазонов.

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

В случае с именованными диапазонами – нужно будет создавать их заново (а их около десятка!).

Возможна ли формула без применения VBA, макросов и надстроек?

Черт возьми, да! Я долго размышлял, прежде чем ее сделать, но мне это удалось.

Вот эта формула! Вставьте ее в любую ячейку, кроме A1, т.к. она преобразует значение этой самой ячейки:

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ДЛСТР(ЦЕЛОЕ(A1))>6;РИМСКОЕ(ПСТР(ЦЕЛОЕ(A1);1;ДЛСТР(ЦЕЛОЕ(A1))-6)+0)&" миллионов "&РИМСКОЕ(ПСТР(ЦЕЛОЕ(A1);ДЛСТР(ЦЕЛОЕ(A1))-5;3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ЦЕЛОЕ(A1);ДЛСТР(ЦЕЛОЕ(A1))-2;3)+0);ЕСЛИ(ДЛСТР(ЦЕЛОЕ(A1))>3;РИМСКОЕ(ПСТР(ЦЕЛОЕ(A1);1;ДЛСТР(ЦЕЛОЕ(A1))-3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ЦЕЛОЕ(A1);ДЛСТР(ЦЕЛОЕ(A1))-2;3)+0);РИМСКОЕ(ЦЕЛОЕ(A1))));"DCCC";" восемьсот");"DCC";" семьсот");"DC";" шестьсот");"CD";" четыреста");"XC";" девяносто");"CCC";" триста");"CC";" двести");"D";" пятьсот");"CM";" девятьсот");"C";" сто");"XL";" сорок");"LXXX";" восемьдесят");"LXX";" семьдесят");"LX";" шестьдесят");"L";" пятьдесят");"XXX";" тридцать");"XX";" двадцать");"XIX";" девятнадцать");"XVIII";" восемнадцать");"XVII";" семнадцать");"XVI";" шестнадцать");"XV";" пятнадцать");"XIV";" четырнадцать");"XIII";" тринадцать");"XII";" двенадцать");"XI";" одиннадцать");"IX";" девять");"X";" десять");"VIII";" восемь");"VII";" семь");"VI";" шесть");"IV";" четыре");"V";" пять");"III";" три");"II";" два");"I";" один");"один тысяч";"одна тысяча");"два тысяч";"две тысячи");"три тысяч";"три тысячи");"четыре тысяч";"четыре тысячи");"один миллионов";"один миллион");"два миллионов";"два миллиона");"три миллионов";"три миллиона");"четыре миллионов";"четыре миллиона"));"миллион тысяч";"миллион");"миллиона тысяч";"миллиона");"миллионов тысяч";"миллионов")

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

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

на

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

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

• Рубли пишутся словами, первая буква обычно заглавная;
• Словоформа слова “рубль” должна соответствовать количеству;
• Копейки пишутся цифрами, но падеж и число слова “копейка” тоже должны соответствовать числу.

Трудно в это поверить, но и такая формула тоже существует. Аналогично, без применения VBA, макросов и надстроек.

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

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

В русских рублях, все буквы строчные

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

Тройной клик по формуле выделит её целиком

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>6;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-6)+0)&" миллионов "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-5;3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" рублей";ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>3;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" рублей";РИМСКОЕ(ОКРУГЛВНИЗ(A1;0))&" рублей"));"DCCC";" восемьсот");"DCC";" семьсот");"DC";" шестьсот");"CD";" четыреста");"XC";" девяносто");"CCC";" триста");"CC";" двести");"D";" пятьсот");"CM";" девятьсот");"C";" сто");"XL";" сорок");"LXXX";" восемьдесят");"LXX";" семьдесят");"LX";" шестьдесят");"L";" пятьдесят");"XXX";" тридцать");"XX";" двадцать");"XIX";" девятнадцать");"XVIII";" восемнадцать");"XVII";" семнадцать");"XVI";" шестнадцать");"XV";" пятнадцать");"XIV";" четырнадцать");"XIII";" тринадцать");"XII";" двенадцать");"XI";" одиннадцать");"IX";" девять");"X";" десять");"VIII";" восемь");"VII";" семь");"VI";" шесть");"IV";" четыре");"V";" пять");"III";" три");"II";" два");"I";" один");"один тысяч";"одна тысяча");"два тысяч";"две тысячи");"три тысяч";"три тысячи");"четыре тысяч";"четыре тысячи");"один миллионов";"один миллион");"два миллионов";"два миллиона");"три миллионов";"три миллиона");"четыре миллионов";"четыре миллиона");"один рублей";"один рубль");"два рублей";"два рубля");"три рублей";"три рубля");"четыре рублей";"четыре рубля"));"миллион тысяч";"миллион");"миллиона тысяч";"миллиона");"миллионов тысяч";"миллионов")&" "&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПРАВСИМВ(ОКРУГЛ(A1*100;0);2)&" копеек";"1 копеек";"1 копейка");"2 копеек";"2 копейки");"3 копеек";"3 копейки");"4 копеек";"4 копейки");"11 копейка";"11 копеек");"12 копейки";"12 копеек");"13 копейки";"13 копеек");"14 копейки";"14 копеек")

В русских рублях, первая буква заглавная

В Excel нет простой функции, которая бы позволила сделать только первую букву ячейки заглавной, поэтому в первой конфигурации формула была в 2 раза длиннее из-за использования ЛЕВСИМВ и ДЛСТР.

Но в комментариях было предложено отличное решение – функцией ПОДСТАВИТЬ заменить пробелы на букву, которой в числах нет (например, Ф или Z), что сделает все как бы одним словом, на результате использовать функцию ПРОПНАЧ, и после заменить букву обратно на пробелы. Сейчас используется этот вариант формулы, он короче.

Тройной клик по формуле выделит её целиком.

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПРОПНАЧ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>6;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-6)+0)&" миллионов "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-5;3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" рублей";ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>3;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" рублей";РИМСКОЕ(ОКРУГЛВНИЗ(A1;0))&" рублей"));"DCCC";" восемьсот");"DCC";" семьсот");"DC";" шестьсот");"CD";" четыреста");"XC";" девяносто");"CCC";" триста");"CC";" двести");"D";" пятьсот");"CM";" девятьсот");"C";" сто");"XL";" сорок");"LXXX";" восемьдесят");"LXX";" семьдесят");"LX";" шестьдесят");"L";" пятьдесят");"XXX";" тридцать");"XX";" двадцать");"XIX";" девятнадцать");"XVIII";" восемнадцать");"XVII";" семнадцать");"XVI";" шестнадцать");"XV";" пятнадцать");"XIV";" четырнадцать");"XIII";" тринадцать");"XII";" двенадцать");"XI";" одиннадцать");"IX";" девять");"X";" десять");"VIII";" восемь");"VII";" семь");"VI";" шесть");"IV";" четыре");"V";" пять");"III";" три");"II";" два");"I";" один");"один тысяч";"одна тысяча");"два тысяч";"две тысячи");"три тысяч";"три тысячи");"четыре тысяч";"четыре тысячи");"один миллионов";"один миллион");"два миллионов";"два миллиона");"три миллионов";"три миллиона");"четыре миллионов";"четыре миллиона");"один рублей";"один рубль");"два рублей";"два рубля");"три рублей";"три рубля");"четыре рублей";"четыре рубля"));"миллион тысяч";"миллион");"миллиона тысяч";"миллиона");"миллионов тысяч";"миллионов")&" "&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПРАВСИМВ(ОКРУГЛ(A1*100;0);2)&" копеек";"1 копеек";"1 копейка");"2 копеек";"2 копейки");"3 копеек";"3 копейки");"4 копеек";"4 копейки");"11 копейка";"11 копеек");"12 копейки";"12 копеек");"13 копейки";"13 копеек");"14 копейки";"14 копеек");" ";"Z"));"z";" ");"Z";" ")

В русских рублях с копейками прописью

Если нужно, чтобы копейки тоже были написаны прописью, то формула будет чуть длиннее, такой:

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПРОПНАЧ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>6;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-6)+0)&" миллионов "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-5;3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" рублей";ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>3;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" рублей";РИМСКОЕ(ОКРУГЛВНИЗ(A1;0))&" рублей"));"DCCC";" восемьсот");"DCC";" семьсот");"DC";" шестьсот");"CD";" четыреста");"XC";" девяносто");"CCC";" триста");"CC";" двести");"D";" пятьсот");"CM";" девятьсот");"C";" сто");"XL";" сорок");"LXXX";" восемьдесят");"LXX";" семьдесят");"LX";" шестьдесят");"L";" пятьдесят");"XXX";" тридцать");"XX";" двадцать");"XIX";" девятнадцать");"XVIII";" восемнадцать");"XVII";" семнадцать");"XVI";" шестнадцать");"XV";" пятнадцать");"XIV";" четырнадцать");"XIII";" тринадцать");"XII";" двенадцать");"XI";" одиннадцать");"IX";" девять");"X";" десять");"VIII";" восемь");"VII";" семь");"VI";" шесть");"IV";" четыре");"V";" пять");"III";" три");"II";" два");"I";" один");"один тысяч";"одна тысяча");"два тысяч";"две тысячи");"три тысяч";"три тысячи");"четыре тысяч";"четыре тысячи");"один миллионов";"один миллион");"два миллионов";"два миллиона");"три миллионов";"три миллиона");"четыре миллионов";"четыре миллиона");"один рублей";"один рубль");"два рублей";"два рубля");"три рублей";"три рубля");"четыре рублей";"четыре рубля"));"миллион тысяч";"миллион");"миллиона тысяч";"миллиона");"миллионов тысяч";"миллионов")&" "&ПОДСТАВИТЬ(" "&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ЛЕВСИМВ(ПРАВСИМВ(ОКРУГЛ(A1*100;0);2))="1";ИНДЕКС({"десять";"одиннадцать";"двенадцать";"тринадцать";"четырнадцать";"пятнадцать";"шестнадцать";"семнадцать";"восемнадцать";"девятнадцать"};ПРАВСИМВ(ОКРУГЛ(A1*100;0);2)-9);ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЛЕВСИМВ(ПРАВСИМВ(ОКРУГЛ(A1*100;0);2));"2";"двадцать");"3";"тридцать");"4";"сорок");"5";"пятьдесят");"6";"шестьдесят");"7";"семьдесят");"8";"восемьдесят");"9";"девяносто");"0";"")&" "&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПРАВСИМВ(ПРАВСИМВ(ОКРУГЛ(A1*100;0);2));"1";"одна");"2";"две");"3";"три");"4";"четыре");"5";"пять");"6";"шесть");"7";"семь");"8";"восемь");"9";"девять");"0";""))&" копеек";"одна копеек";"одна копейка");"две копеек";"две копейки");"три копеек";"три копейки");"четыре копеек";"четыре копейки");"  копеек";"");" ";"Z"));"z";" ");"Z";" "))

В белорусских рублях

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

=ПРОПИСН(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>6;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-6)+0)&" миллионов "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-5;3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" белорусских рублей";ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>3;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" белорусских рублей";РИМСКОЕ(ОКРУГЛВНИЗ(A1;0))&" белорусских рублей"));"DCCC";" восемьсот");"DCC";" семьсот");"DC";" шестьсот");"CD";" четыреста");"XC";" девяносто");"CCC";" триста");"CC";" двести");"D";" пятьсот");"CM";" девятьсот");"C";" сто");"XL";" сорок");"LXXX";" восемьдесят");"LXX";" семьдесят");"LX";" шестьдесят");"L";" пятьдесят");"XXX";" тридцать");"XX";" двадцать");"XIX";" девятнадцать");"XVIII";" восемнадцать");"XVII";" семнадцать");"XVI";" шестнадцать");"XV";" пятнадцать");"XIV";" четырнадцать");"XIII";" тринадцать");"XII";" двенадцать");"XI";" одиннадцать");"IX";" девять");"X";" десять");"VIII";" восемь");"VII";" семь");"VI";" шесть");"IV";" четыре");"V";" пять");"III";" три");"II";" два");"I";" один");"один тысяч";"одна тысяча");"два тысяч";"две тысячи");"три тысяч";"три тысячи");"четыре тысяч";"четыре тысячи");"один миллионов";"один миллион");"два миллионов";"два миллиона");"три миллионов";"три миллиона");"четыре миллионов";"четыре миллиона");"один белорусских рублей";"один белорусский рубль");"два белорусских рублей";"два белорусских рубля");"три белорусских рублей";"три белорусских рубля");"четыре белорусских рублей";"четыре белорусских рубля"));"миллион тысяч";"миллион");"миллиона тысяч";"миллиона");"миллионов тысяч";"миллионов");1))&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>6;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-6)+0)&" миллионов "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-5;3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" белорусских рублей";ЕСЛИ(ДЛСТР(ОКРУГЛВНИЗ(A1;0))>3;РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);1;ДЛСТР(ОКРУГЛВНИЗ(A1;0))-3)+0)&" тысяч "&РИМСКОЕ(ПСТР(ОКРУГЛВНИЗ(A1;0);ДЛСТР(ОКРУГЛВНИЗ(A1;0))-2;3)+0)&" белорусских рублей";РИМСКОЕ(ОКРУГЛВНИЗ(A1;0))&" белорусских рублей"));"DCCC";" восемьсот");"DCC";" семьсот");"DC";" шестьсот");"CD";" четыреста");"XC";" девяносто");"CCC";" триста");"CC";" двести");"D";" пятьсот");"CM";" девятьсот");"C";" сто");"XL";" сорок");"LXXX";" восемьдесят");"LXX";" семьдесят");"LX";" шестьдесят");"L";" пятьдесят");"XXX";" тридцать");"XX";" двадцать");"XIX";" девятнадцать");"XVIII";" восемнадцать");"XVII";" семнадцать");"XVI";" шестнадцать");"XV";" пятнадцать");"XIV";" четырнадцать");"XIII";" тринадцать");"XII";" двенадцать");"XI";" одиннадцать");"IX";" девять");"X";" десять");"VIII";" восемь");"VII";" семь");"VI";" шесть");"IV";" четыре");"V";" пять");"III";" три");"II";" два");"I";" один");"один тысяч";"одна тысяча");"два тысяч";"две тысячи");"три тысяч";"три тысячи");"четыре тысяч";"четыре тысячи");"один миллионов";"один миллион");"два миллионов";"два миллиона");"три миллионов";"три миллиона");"четыре миллионов";"четыре миллиона");"один белорусских рублей";"один белорусский рубль");"два белорусских рублей";"два белорусских рубля");"три белорусских рублей";"три белорусских рубля");"четыре белорусских рублей";"четыре белорусских рубля"));"миллион тысяч";"миллион");"миллиона тысяч";"миллиона");"миллионов тысяч";"миллионов");2;200)&" "&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПРАВСИМВ(ОКРУГЛ(A1*100;0);2)&" копеек";"1 копеек";"1 копейка");"2 копеек";"2 копейки");"3 копеек";"3 копейки");"4 копеек";"4 копейки");"11 копейка";"11 копеек");"12 копейки";"12 копеек");"13 копейки";"13 копеек");"14 копейки";"14 копеек")

Если вам не нужно делать первую букву заглавной, просто “оберните” всю эту гигантскую формулу функцией СТРОЧН.

Сумма прописью — формула для Openoffice Calc

У формулы выше были проблемы с импортом в Openoffice, т.к. тот в отличие от Excel (2007 и старше), поддерживает максимум 42 уровня вложенности в формулах, а не 64.

Поэтому пришлось полностью переделать логику формулы и сделать ее сложной формулой массивов.

Так она выглядит в Excel:

=ПРОПИСН(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");1;3)+0>0;ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");2;1)="1";ПОДСТАВИТЬ(ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");1;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");2;1)+1)&ИНДЕКС({"mов";"один m";"два mа";"три mа";"cе mа";"пять mов";"шесть mов";"семь mов";"vь mов";"девять mов"};ПСТР(ТЕКСТ(A1;"000000000");3;1)+1);ИНДЕКС({"dь один m":"dь два mа":"dь три mа":"dь cе mа":"dь пять":"dь шесть":"dь семь":"dь vь":"dь девять"};ПСТР(ТЕКСТ(A1;"000000000");3;1));ИНДЕКС({"одиннаe mов":"двенаe mов":"тринаe mов":"cнаe mов":"пятнаe":"шестнаe":"семнаe":"vнаe":"девятнаe"};ПСТР(ТЕКСТ(A1;"000000000");3;1)));ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");1;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");2;1)+1)&ИНДЕКС({"mов";"один m";"два mа";"три mа";"cе mа";"пять mов";"шесть mов";"семь mов";"vь mов";"девять mов"};ПСТР(ТЕКСТ(A1;"000000000");3;1)+1));"")&" "&ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");4;3)+0>0;ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");5;1)="1";ПОДСТАВИТЬ(ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");4;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");5;1)+1)&ИНДЕКС({"тысяч";"одна тысяча";"две тысячи";"три тысячи";"cе тысячи";"пять тысяч";"шесть тысяч";"семь тысяч";"vь тысяч";"девять тысяч"};ПСТР(ТЕКСТ(A1;"000000000");6;1)+1);ИНДЕКС({"dь одна тысяча":"dь две тысячи":"dь три тысячи":"dь cе тысячи":"dь пять":"dь шесть":"dь семь":"dь vь":"dь девять"};ПСТР(ТЕКСТ(A1;"000000000");6;1));ИНДЕКС({"одиннаe тысяч":"двенаe тысяч":"тринаe тысяч":"cнаe тысяч":"пятнаe":"шестнаe":"семнаe":"vнаe":"девятнаe"};ПСТР(ТЕКСТ(A1;"000000000");6;1)));ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");4;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");5;1)+1)&ИНДЕКС({"тысяч";"одна тысяча";"две тысячи";"три тысячи";"cе тысячи";"пять тысяч";"шесть тысяч";"семь тысяч";"vь тысяч";"девять тысяч"};ПСТР(ТЕКСТ(A1;"000000000");6;1)+1));"")&" "&ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");8;1)="1";ПОДСТАВИТЬ(ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");7;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");8;1)+1)&ИНДЕКС({"rей";"один rь";"два rя";"три rя";"cе rя";"пять rей";"шесть rей";"семь rей";"vь rей";"девять rей"};ПСТР(ТЕКСТ(A1;"000000000");9;1)+1);ИНДЕКС({"dь один rь":"dь два rя":"dь три rя":"dь cе rя":"dь пять":"dь шесть":"dь семь":"dь vь":"dь девять"};ПРАВСИМВ(A1));ИНДЕКС({"одиннаe rей":"двенаe rей":"тринаe rей":"cнаe rей":"пятнаe":"шестнаe":"семнаe":"vнаe":"девятнаe"};ПРАВСИМВ(A1)));ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");7;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");8;1)+1)&ИНДЕКС({"rей";"один rь";"два rя";"три rя";"cе rя";"пять rей";"шесть rей";"семь rей";"vь rей";"девять rей"};ПСТР(ТЕКСТ(A1;"000000000");9;1)+1));"m";"миллион");"d";"десят");"r";"рубл");"e";"дцать");"v";"восем");"c";"четыр")))&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");1;3)+0>0;ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");2;1)="1";ПОДСТАВИТЬ(ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");1;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");2;1)+1)&ИНДЕКС({"mов";"один m";"два mа";"три mа";"cе mа";"пять mов";"шесть mов";"семь mов";"vь mов";"девять mов"};ПСТР(ТЕКСТ(A1;"000000000");3;1)+1);ИНДЕКС({"dь один m":"dь два mа":"dь три mа":"dь cе mа":"dь пять":"dь шесть":"dь семь":"dь vь":"dь девять"};ПСТР(ТЕКСТ(A1;"000000000");3;1));ИНДЕКС({"одиннаe mов":"двенаe mов":"тринаe mов":"cнаe mов":"пятнаe":"шестнаe":"семнаe":"vнаe":"девятнаe"};ПСТР(ТЕКСТ(A1;"000000000");3;1)));ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");1;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");2;1)+1)&ИНДЕКС({"mов";"один m";"два mа";"три mа";"cе mа";"пять mов";"шесть mов";"семь mов";"vь mов";"девять mов"};ПСТР(ТЕКСТ(A1;"000000000");3;1)+1));"")&" "&ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");4;3)+0>0;ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");5;1)="1";ПОДСТАВИТЬ(ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");4;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");5;1)+1)&ИНДЕКС({"тысяч";"одна тысяча";"две тысячи";"три тысячи";"cе тысячи";"пять тысяч";"шесть тысяч";"семь тысяч";"vь тысяч";"девять тысяч"};ПСТР(ТЕКСТ(A1;"000000000");6;1)+1);ИНДЕКС({"dь одна тысяча":"dь две тысячи":"dь три тысячи":"dь cе тысячи":"dь пять":"dь шесть":"dь семь":"dь vь":"dь девять"};ПСТР(ТЕКСТ(A1;"000000000");6;1));ИНДЕКС({"одиннаe тысяч":"двенаe тысяч":"тринаe тысяч":"cнаe тысяч":"пятнаe":"шестнаe":"семнаe":"vнаe":"девятнаe"};ПСТР(ТЕКСТ(A1;"000000000");6;1)));ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");4;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");5;1)+1)&ИНДЕКС({"тысяч";"одна тысяча";"две тысячи";"три тысячи";"cе тысячи";"пять тысяч";"шесть тысяч";"семь тысяч";"vь тысяч";"девять тысяч"};ПСТР(ТЕКСТ(A1;"000000000");6;1)+1));"")&" "&ЕСЛИ(ПСТР(ТЕКСТ(A1;"000000000");8;1)="1";ПОДСТАВИТЬ(ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");7;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");8;1)+1)&ИНДЕКС({"rей";"один rь";"два rя";"три rя";"cе rя";"пять rей";"шесть rей";"семь rей";"vь rей";"девять rей"};ПСТР(ТЕКСТ(A1;"000000000");9;1)+1);ИНДЕКС({"dь один rь":"dь два rя":"dь три rя":"dь cе rя":"dь пять":"dь шесть":"dь семь":"dь vь":"dь девять"};ПРАВСИМВ(A1));ИНДЕКС({"одиннаe rей":"двенаe rей":"тринаe rей":"cнаe rей":"пятнаe":"шестнаe":"семнаe":"vнаe":"девятнаe"};ПРАВСИМВ(A1)));ИНДЕКС({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};ПСТР(ТЕКСТ(A1;"000000000");7;1)+1)&ИНДЕКС({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};ПСТР(ТЕКСТ(A1;"000000000");8;1)+1)&ИНДЕКС({"rей";"один rь";"два rя";"три rя";"cе rя";"пять rей";"шесть rей";"семь rей";"vь rей";"девять rей"};ПСТР(ТЕКСТ(A1;"000000000");9;1)+1));"m";"миллион");"d";"десят");"r";"рубл");"e";"дцать");"v";"восем");"c";"четыр");2;200)&" "&ЕСЛИ(ЛЕВСИМВ(ПРАВСИМВ(ОКРУГЛ(A1*100;0);2))="1";ПРАВСИМВ(ОКРУГЛ(A1*100;0);2) &" копеек";ПРАВСИМВ(ОКРУГЛ(A1*100;0);2)&ИНДЕКС({" копеек";" копейка";" копейки";" копейки";" копейки";" копеек";" копеек";" копеек";" копеек";" копеек"};ПРАВСИМВ(ОКРУГЛ(A1*100;0))+1))

А так – после импорта в Openoffice Calc:

=UPPER(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(MID(TEXT(A1;"000000000");1;3)+0>0;IF(MID(TEXT(A1;"000000000");2;1)="1";SUBSTITUTE(INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");1;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");2;1)+1)&INDEX({"mов";"один m";"два mа";"три mа";"cе mа";"пять mов";"шесть mов";"семь mов";"vь mов";"девять mов"};MID(TEXT(A1;"000000000");3;1)+1);INDEX({"dь один m"|"dь два mа"|"dь три mа"|"dь cе mа"|"dь пять"|"dь шесть"|"dь семь"|"dь vь"|"dь девять"};MID(TEXT(A1;"000000000");3;1));INDEX({"одиннаe mов"|"двенаe mов"|"тринаe mов"|"cнаe mов"|"пятнаe"|"шестнаe"|"семнаe"|"vнаe"|"девятнаe"};MID(TEXT(A1;"000000000");3;1)));INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");1;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");2;1)+1)&INDEX({"mов";"один m";"два mа";"три mа";"cе mа";"пять mов";"шесть mов";"семь mов";"vь mов";"девять mов"};MID(TEXT(A1;"000000000");3;1)+1));"")&" "&IF(MID(TEXT(A1;"000000000");4;3)+0>0;IF(MID(TEXT(A1;"000000000");5;1)="1";SUBSTITUTE(INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");4;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");5;1)+1)&INDEX({"тысяч";"одна тысяча";"две тысячи";"три тысячи";"cе тысячи";"пять тысяч";"шесть тысяч";"семь тысяч";"vь тысяч";"девять тысяч"};MID(TEXT(A1;"000000000");6;1)+1);INDEX({"dь одна тысяча"|"dь две тысячи"|"dь три тысячи"|"dь cе тысячи"|"dь пять"|"dь шесть"|"dь семь"|"dь vь"|"dь девять"};MID(TEXT(A1;"000000000");6;1));INDEX({"одиннаe тысяч"|"двенаe тысяч"|"тринаe тысяч"|"cнаe тысяч"|"пятнаe"|"шестнаe"|"семнаe"|"vнаe"|"девятнаe"};MID(TEXT(A1;"000000000");6;1)));INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");4;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");5;1)+1)&INDEX({"тысяч";"одна тысяча";"две тысячи";"три тысячи";"cе тысячи";"пять тысяч";"шесть тысяч";"семь тысяч";"vь тысяч";"девять тысяч"};MID(TEXT(A1;"000000000");6;1)+1));"")&" "&IF(MID(TEXT(A1;"000000000");8;1)="1";SUBSTITUTE(INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");7;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");8;1)+1)&INDEX({"rей";"один rь";"два rя";"три rя";"cе rя";"пять rей";"шесть rей";"семь rей";"vь rей";"девять rей"};MID(TEXT(A1;"000000000");9;1)+1);INDEX({"dь один rь"|"dь два rя"|"dь три rя"|"dь cе rя"|"dь пять"|"dь шесть"|"dь семь"|"dь vь"|"dь девять"};RIGHT(A1));INDEX({"одиннаe rей"|"двенаe rей"|"тринаe rей"|"cнаe rей"|"пятнаe"|"шестнаe"|"семнаe"|"vнаe"|"девятнаe"};RIGHT(A1)));INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");7;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");8;1)+1)&INDEX({"rей";"один rь";"два rя";"три rя";"cе rя";"пять rей";"шесть rей";"семь rей";"vь rей";"девять rей"};MID(TEXT(A1;"000000000");9;1)+1))&" "&IF(LEFT(RIGHT(ROUND(A1*100;0);2))="1";RIGHT(ROUND(A1*100;0);2) &" копеек";RIGHT(ROUND(A1*100;0);2)&INDEX({" копеек";" копейка";" копейки";" копейки";" копейки";" копеек";" копеек";" копеек";" копеек";" копеек"};RIGHT(ROUND(A1*100;0))+1));"m";"миллион");"d";"десят");"r";"рубл");"e";"дцать");"v";"восем");"c";"четыр")))&MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(MID(TEXT(A1;"000000000");1;3)+0>0;IF(MID(TEXT(A1;"000000000");2;1)="1";SUBSTITUTE(INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");1;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");2;1)+1)&INDEX({"mов";"один m";"два mа";"три mа";"cе mа";"пять mов";"шесть mов";"семь mов";"vь mов";"девять mов"};MID(TEXT(A1;"000000000");3;1)+1);INDEX({"dь один m"|"dь два mа"|"dь три mа"|"dь cе mа"|"dь пять"|"dь шесть"|"dь семь"|"dь vь"|"dь девять"};MID(TEXT(A1;"000000000");3;1));INDEX({"одиннаe mов"|"двенаe mов"|"тринаe mов"|"cнаe mов"|"пятнаe"|"шестнаe"|"семнаe"|"vнаe"|"девятнаe"};MID(TEXT(A1;"000000000");3;1)));INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");1;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");2;1)+1)&INDEX({"mов";"один m";"два mа";"три mа";"cе mа";"пять mов";"шесть mов";"семь mов";"vь mов";"девять mов"};MID(TEXT(A1;"000000000");3;1)+1));"")&" "&IF(MID(TEXT(A1;"000000000");4;3)+0>0;IF(MID(TEXT(A1;"000000000");5;1)="1";SUBSTITUTE(INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");4;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");5;1)+1)&INDEX({"тысяч";"одна тысяча";"две тысячи";"три тысячи";"cе тысячи";"пять тысяч";"шесть тысяч";"семь тысяч";"vь тысяч";"девять тысяч"};MID(TEXT(A1;"000000000");6;1)+1);INDEX({"dь одна тысяча"|"dь две тысячи"|"dь три тысячи"|"dь cе тысячи"|"dь пять"|"dь шесть"|"dь семь"|"dь vь"|"dь девять"};MID(TEXT(A1;"000000000");6;1));INDEX({"одиннаe тысяч"|"двенаe тысяч"|"тринаe тысяч"|"cнаe тысяч"|"пятнаe"|"шестнаe"|"семнаe"|"vнаe"|"девятнаe"};MID(TEXT(A1;"000000000");6;1)));INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");4;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");5;1)+1)&INDEX({"тысяч";"одна тысяча";"две тысячи";"три тысячи";"cе тысячи";"пять тысяч";"шесть тысяч";"семь тысяч";"vь тысяч";"девять тысяч"};MID(TEXT(A1;"000000000");6;1)+1));"")&" "&IF(MID(TEXT(A1;"000000000");8;1)="1";SUBSTITUTE(INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");7;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");8;1)+1)&INDEX({"rей";"один rь";"два rя";"три rя";"cе rя";"пять rей";"шесть rей";"семь rей";"vь rей";"девять rей"};MID(TEXT(A1;"000000000");9;1)+1);INDEX({"dь один rь"|"dь два rя"|"dь три rя"|"dь cе rя"|"dь пять"|"dь шесть"|"dь семь"|"dь vь"|"dь девять"};RIGHT(A1));INDEX({"одиннаe rей"|"двенаe rей"|"тринаe rей"|"cнаe rей"|"пятнаe"|"шестнаe"|"семнаe"|"vнаe"|"девятнаe"};RIGHT(A1)));INDEX({"";"сто ";"двести ";"триста ";"cеста ";"пятьсот ";"шестьсот ";"семьсот ";"vьсот ";"девятьсот "};MID(TEXT(A1;"000000000");7;1)+1)&INDEX({"";"dь ";"дваe ";"триe ";"сорок ";"пятьd ";"шестьd ";"семьd ";"vьd ";"девяносто "};MID(TEXT(A1;"000000000");8;1)+1)&INDEX({"rей";"один rь";"два rя";"три rя";"cе rя";"пять rей";"шесть rей";"семь rей";"vь rей";"девять rей"};MID(TEXT(A1;"000000000");9;1)+1))&" "&IF(LEFT(RIGHT(ROUND(A1*100;0);2))="1";RIGHT(ROUND(A1*100;0);2) &" копеек";RIGHT(ROUND(A1*100;0);2)&INDEX({" копеек";" копейка";" копейки";" копейки";" копейки";" копеек";" копеек";" копеек";" копеек";" копеек"};RIGHT(ROUND(A1*100;0))+1));"m";"миллион");"d";"десят");"r";"рубл");"e";"дцать");"v";"восем");"c";"четыр");2;200)

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

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

Ниже пример таблицы с суммой прописью:

Посмотреть сам файл и скопировать к себе можно по ссылке:

https://docs.google.com/spreadsheets/d/1dmqEB3TehEGmWfaxRmIQ9LXjGal439_YgKxZhbK0Ods/edit?usp=sharing

UDF-функции надстройки !SEMTools

Для тех, у кого ОС Windows и Excel 2010 и выше, и кто не готов пользоваться указанными формулами, есть простое решение – установить надстройку, в которой присутствует код, скрывающий все эти вычисления “под капот”. Одна из таких – разработанная мной надстройка !SEMTools.

В ней для решения задачи преобразования числа и суммы в их прописной вариант есть 2 лаконичные функции:

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

Единственное ограничение – эти формулы будут работать только на тех компьютерах, где установлена надстройка.

Процедуры !SEMTools

Еще более простое, но не всегда удобное решение – процедуры (макросы). В надстройке для Excel !SEMTools доступны макросы преобразования чисел в сумму и число прописью в 1 клик.

Вызов процедур находится в меню “Изменить символы” в группе “ИЗМЕНИТЬ” на панели надстройки. Макрос преобразует числа на месте, превращая их в текст. Можно выделить как одну, так и несколько ячеек:

Функционал доступен в полной версии надстройки.

Перевод чисел прописью в другие падежи

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

Например, “сумма в размере пятисот тысяч трехсот трех рублей”. !SEMTools справляется и с этой задачей – смотрите раздел склонение по падежам в Excel.

Надстройка !SEMTools для Excel поможет буквально за пару кликов написать числа или суммы прописью.
Скачайте и убедитесь в этом сами!

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

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

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

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

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



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



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



4. Далее, в параметре настроек «Управление» устанавливаем значение «Надстройки Excel». Жмем на кнопку «Перейти…».



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



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



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



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



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



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



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





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

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

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

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

Еще статьи по данной теме:

Помогла ли Вам статья?

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

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

Для создания пользовательской функции, которая сможет перевести число в текст прописью , нам нужно выполнить 3 простых шага:

1. Открыть редактор макросов ALT+F11.
2. Создать новый модуль и в нем нужно написать функцию особенным способом: Function вместо Sub. Тогда наша функция «ЧислоПропись» будет отображаться в списке мастера функций (SHIFT+F3), в категории «Определенные пользователем».



3. Вставить в модуль следующий код и сохранить:



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

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

Private Sub Workbook_Open()
DescribeFunction
End Sub
 

Кроме того благодаря данному макросу DescribeFunction функция будет доступна в группе: «ФОРМУЛЫ»-«Библиотека функций»-«Финансовые»-«ЧислоПрописьюВалюта»

Если мы указываем число (от 0 до 2)в параметре второй функции «ЧислоПрописьюВалюта» то функция автоматически подставит нужную валюту в сумме прописью:

• 1-рубли;
• 2-доллары;
• 0-евро;

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

Скачать число прописью в Excel руб RUB.

Украинская версия функции ЧислоСловоВалюта для перевода сумм в гривны находиться в следующем файле:

Скачать функцию ЧислоСловоВалюта ГРН UAH

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

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

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

Скачать файл надстройки

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

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

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

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

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

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

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

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

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

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

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

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

ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A3;n0);2;1)+1;ПСТР(ТЕКСТ(A3;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);1;3);»миллиард»&ВПР(ПСТР(ТЕКСТ(A3;n0);3;1)*И(ПСТР(ТЕКСТ(A3;n0);2;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A3;n0);5;1)+1;ПСТР(ТЕКСТ(A3;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);4;3);»миллион»&ВПР(ПСТР(ТЕКСТ(A3;n0);6;1)*И(ПСТР(ТЕКСТ(A3;n0);5;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A3;n0);8;1)+1;ПСТР(ТЕКСТ(A3;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);7;3);ВПР(ПСТР(ТЕКСТ(A3;n0);9;1)*И(ПСТР(ТЕКСТ(A3;n0);8;1)-1);тыс;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);10;1)+1)&ИНДЕКС(ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);14;6);n1x;n0x);ПСТР(ТЕКСТ(A3;n0);11;1)+1;ПСТР(ТЕКСТ(A3;n0);12;1)+1));»z»;» «)&ЕСЛИ(ОТБР(ТЕКСТ(A3;n0));;»Ноль «)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);14;6);ЕСЛИ(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);11;2)-11;100);9);10);»целых «;»целая «)&ПОДСТАВИТЬ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);14;6)/10^5+1)&ИНДЕКС(n1x;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/10^4;10)+1;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000;10)+1)&ЕСЛИ(ЦЕЛОЕ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000);ВПР(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000;10)*(ОСТАТ(ЦЕЛОЕ(ПСТР(ТЕКСТ(A3;n0);14;6)/10^4);10)<>1);тыс;2);»»)&ИНДЕКС(n_4;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/100;10)+1)&ИНДЕКС(n1x;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/10;10)+1;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6);10)+1);»z»;» «)&ИНДЕКС(доля;ДЛСТР(ПСТР(ТЕКСТ(A3;n0);14;6));(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)-11;100);9);10)>0)+1);)

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

• n_1 ={«»;»одинz»;»дваz»;»триz»;»четыреz»;»пятьz»;»шестьz»;»семьz»;»восемьz»;»девятьz»}
• n_2 ={«десятьz»;»одиннадцатьz»;»двенадцатьz»;»тринадцатьz»;»четырнадцатьz»;»пятнадцатьz»;»шестнадцатьz»;»семнадцатьz»;»восемнадцатьz»;»девятнадцатьz»}
• n_3 ={«»:1:»двадцатьz»:»тридцатьz»:»сорокz»:»пятьдесятz»:»шестьдесятz»:»семьдесятz»:»восемьдесятz»:»девяностоz»}
• n_4 ={«»;»стоz»;»двестиz»;»тристаz»;»четырестаz»;»пятьсотz»;»шестьсотz»;»семьсотz»;»восемьсотz»;»девятьсотz»}
• n_5 ={«»;»однаz»;»двеz»;»триz»;»четыреz»;»пятьz»;»шестьz»;»семьz»;»восемьz»;»девятьz»}
• n0 =»000000000000″&ПСТР(1/2;2;1)&»0#####»
• n0x =ЕСЛИ(n_3=1;n_2;n_3&n_1)
• n1x =ЕСЛИ(n_3=1;n_2;n_3&n_5)
• доля ={«десятая»;»десятых»:»сотая»;»сотых»:»тысячная»;»тысячных»:»десятитысячная»;»десятитысячных»:»стотысячная»;»стотысячных»:»миллионная «;»миллионных»}
• мил ={0;»овz»:1;»z»:2;»аz»:5;»овz»}
• тыс ={0;»тысячz»:1;»тысячаz»:2;»тысячиz»:5;»тысячz»}

Просто скопируйте эту таблицу на лист 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 вставьте новый модуль.

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

Function SUMMPROPIS(n As Double) As String
 Dim Chis1, Chis2, Chis3, Chis4, Chis5 As Variant
 Chis1 = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
 Chis2 = Array("", "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят", "девяносто ")
 Chis3 = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
 Chis4 = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
 Chis5 = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
 If n <= 0 Then
 SUMMPROPIS = "ноль"
 Exit Function
End If
 cifr = Retclass(n, 1)
 des = Retclass(n, 2)
 hund = Retclass(n, 3)
 thous = Retclass(n, 4)
 desthous = Retclass(n, 5)
 hundthous = Retclass(n, 6)
 mil = Retclass(n, 7)
 desmil = Retclass(n, 8)Select Case desmil
 Case 1
 mil_txt = Chis5(mil) & "миллионов "
 GoTo www
 Case 2 To 9
 desmil_txt = Chis2(desmil)
 End Select
 Select Case mil
 Case 1
 mil_txt = Chis1(mil) & "миллион "
 Case 2, 3, 4
 mil_txt = Chis1(mil) & "миллиона "
 Case 5 To 20
 mil_txt = Chis1(mil) & "миллионов "
 End Select
www:
 hundthous_txt = Chis3(hundthous)
 Select Case desthous
 Case 1
 thous_txt = Chis5(thous) & "тысяч "
 GoTo eee
 Case 2 To 9
 desthous_txt = Chis2(desthous)
 End Select
 Select Case thous
 Case 0
 If desthous > 0 Then thous_txt = Chis4(thous) & "тысяч "
 Case 1
 thous_txt = Chis4(thous) & "тысяча "
 Case 2, 3, 4
 thous_txt = Chis4(thous) & "тысячи "
 Case 5 To 9
 thous_txt = Chis4(thous) & "тысяч "
 End Select
 If desthous = 0 And thous = 0 And hundthous <> 0 Then hundthous_txt = hundthous_txt & " тысяч "
eee:
 hund_txt = Chis3(hund)
 Select Case des
 Case 1
 cifr_txt = Chis5(cifr)
 GoTo rrr
 Case 2 To 9
 des_txt = Chis2(des)
 End Select 
 cifr_txt = Chis1(cifr)
rrr:
 SUMMPROPIS = desmil_txt & mil_txt & hundthous_txt & desthous_txt & thous_txt & hund_txt & des_txt & cifr_txt
End Function
Private Function Retclass(M, I)
 Retclass = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1))
End Function

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

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

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

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

 =SUMMPROPIS(A7)&" руб. "&ТЕКСТ((A7-ЦЕЛОЕ(A7))*100;"00")&" коп."

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

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

Отличного Вам дня!

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

Конвертация числа в текстовый вид

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

Форматирование через контекстное меню

Это самый часто используемый вариант конвертации, поэтому мы решили начать именно с него. Следуйте приведённой ниже инструкции, и у вас всё получится.

1. Первым делом выделите те значения на листе, которые вы хотите конвертировать в текст. На текущем этапе программа воспринимает эти данные как число. Об этом свидетельствует установленный параметр «Общий», который находится на вкладке «Главная».
2. Кликните правой кнопкой мыши по выделенному объекту и в появившемся меню выберите «Формат ячеек».
3. Перед вами появится окошко форматирования. Откройте подраздел «Число» и в списке «Числовые форматы» нажмите на пункт «Текстовый». Далее сохраните изменения клавишей «ОК».
4. По завершении этой процедуры вы можете убедиться в успешном преобразовании, посмотрев на подменю «Число», находящееся на панели инструментов. Если вы всё сделали верно, в специальном поле будет отображаться информация о том, что ячейки имеют текстовый вид.
5. Однако, на предыдущем шаге настройка не заканчивается. Excel ещё не полностью выполнил конвертацию. Например, если вы решите подсчитать автосумму, то чуть ниже высветится результат.
6. Для того чтобы завершить процесс форматирования, поочерёдно для каждого элемента выбранного диапазона проделайте следующие манипуляции: сделайте два клика левой кнопкой мыши по ячейке и нажмите на клавишу «Enter». Двойное нажатие также можно заменить функциональной кнопкой «F2».
7. Готово! Теперь приложение будет воспринимать числовую последовательность как текстовое выражения, а значит, и автосумма этой области данных будет равняться нулю. Ещё одним признаком того, что ваши действия привели к необходимому результату, является наличие зелёного треугольника внутри каждой ячейки. Единственное — эта пометка в ряде случаев может отсутствовать.

Инструменты в ленте

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

1. Выделите нужную область значений, а затем перейдите во вкладку «Главная». Здесь вам необходимо найти категорию «Число» и кликнуть на небольшой треугольник рядом с полем формата (по умолчанию выставлен «Общий»).
2. В выпадающем перечне вариантов выберите «Текстовый» тип отображения.
3. После чего, как и в предыдущем методе, последовательно для всего диапазона, установите курсор на каждую ячейку и сделайте двойной клик ЛКМ (или F2), а затем щёлкните на клавишу «Enter».

Использование функции

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

Как работать с этой опцией:

1. Выберите ячейку, с которой будет начинаться преобразованный диапазон. Далее около строчки с формулами кликните на иконку «Вставить функцию».
2. Перед вами откроется окно «Мастер функций». Здесь нужно выбрать категорию «Текстовые» и в поле, находящемся чуть ниже, соответствующий пункт «ТЕКСТ». Подтвердите нажатием «ОК».
3. Далее появится панель с настройкой аргументов для выбранной функции, которая состоит из двух параметров: «Значение» и «Формат». В первое поле введите преобразуемое число, либо укажите ссылку на то место, где оно расположено. Второе поле предназначено для корректировки нецелых чисел. Например, если вы пропишите «0», то результат будет без дробных знаков, хоть в исходнике они и присутствовали. Соответственно, если написать «0,0», то текстовый тип будет иметь одну цифру после запятой. Аналогичным образом формируется то, что вы увидите на выходе, если внести «0,00» и тому подобные варианты.

По завершении всех манипуляций нажмите на клавишу «ОК».

1. Теперь следует просто скопировать формулу в смежные элементы листа. Для этого наведите курсор на левый нижний угол только что отредактированной ячейки. Когда курсор изменит вид на небольшой крестик, зажмите левую кнопку мыши и перетащите формулу на всё поле диапазона параллельно исходным данным.
2. Как вы видите, все числа появились на своих местах. Однако, на этом процесс конвертации ещё не закончен. Выделите полученный столбец и на вкладке «Главная» в самом первом разделе «Буфер обмена» нажмите на значок «Копировать».
3. Если вы хотите сохранить и начальный вариант: не сбрасывая выделение, кликните правой кнопкой мыши по преобразованной области и в предложенном списке выберите «Специальная вставка», а в следующем окне щёлкните на «Значения и форматы чисел».

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

1. Если вы выбрали второй вариант, то фрагмент с формулами можно удалить. Чтобы это сделать, выделите их, кликните ПКМ → «Очистить содержимое».

Конвертация текста в число

Пришло время рассмотреть способы обратной конвертации в Excel. Методов по переводу текстовых данных в числовые несколько больше, поэтому мы уверены, что вы найдёте для себя наиболее подходящий.

Преобразование с помощью уведомления об ошибке

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

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

Окно форматирования

В Excel также имеется возможность обратного конвертирования через специальное форматирующее окошко. Алгоритм следующий:

1. Выделите диапазон цифр, представленных в текстовом варианте, а затем щёлкните правой кнопкой мышки.
2. В контекстном меню нас интересует позиция «Формат ячеек».
3. Запустится окно форматирования, в котором необходимо сделать выбор в пользу одного из двух форматов: «Общий» или «Числовой». Независимо от того, на каком варианте вы остановились, приложение будет воспринимать цифры как числа. Единственное, если вы выбрали «Числовой» метод, то в правом блоке можно дополнительно настроить такие параметры как, количество знаков после запятой и разрядные разделители. После всех манипуляций нажмите на «ОК».
4. На последнем этапе нужно один за другим прощёлкать все элементы, установив курсор в каждый из них и нажав «Enter».

Инструменты в ленте

Ещё один достаточно простой способ перевода текстового типа данных в числовой осуществляется при помощи инструментов, находящихся на верхней рабочей панели.

1. В первую очередь следует выделить те значения, которые предстоит трансформировать. Далее на панели быстрого доступа перейдите во вкладку «Главная», а затем на ленте найдите группу «Число».
2. В специальном поле выставьте «Общий» вид или «Числовой».
3. После этого отдельно нажмите на каждую из выделенных ячеек, используя клавиши «F2» и «Enter». Алгоритм уже был нами описан выше.

Форматирование завершено! Необходимые текстовые данные изменили тип на числовой.

Применение формулы

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

1. В пустой ячейке, напротив первого преобразуемого объекта впишите следующую последовательность символов: «=» и «—» (знак «равно» и два минуса). Затем укажите ссылку на трансформируемый элемент. В приведённом случае мы выполнили двойное умножение на «-1» и получили тот же самый результат, но только в другом формате.
2. После нажатия «Enter» вы увидите готовое значение. При помощи маркера заполнения растяните эту формулу на всю область диапазона. Это действие аналогично уже описанному нами в пункте про функцию «ТЕКСТ».
3. Теперь нужно выделить созданный столбец и скопировать его, кликнув на соответствующую кнопку на вкладке «Главная». Кроме того, можно использовать комбинацию: «Ctrl + C».
4. Далее выделите изначальный список и кликните ПКМ. В представленном перечне опций выберите «Специальная вставка» → «Значения и форматы чисел».
5. Исходные данные были заменены новыми. На этапе транзитный диапазон с нашей формулой уже можно удалить. Выделите его, щёлкните правой кнопкой мышки и в выпавшем меню выберите «Очистить содержимое».

Обращаем ваше внимание, что вместо двойного умножения на минус единицу можно воспользоваться и другими операциями, не влияющими на итоговое число. Например, прибавить или отнять от него ноль и тому подобное.

Опция специальной вставки

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

1. В любом пустом месте на листе впишите цифру «1», а затем скопируйте эту ячейку уже знакомой опцией «Копировать» на ленте инструментов.
2. После чего выделите преобразуемый диапазон и кликните ПКМ. В открывшемся окне дважды перейдите в пункт «Специальная вставка».
3. Откроется меню настройки, здесь необходимо установить флажок в блоке «Операция» напротив строчки «Умножить». Подтвердите внесённые изменения кнопкой «ОК».
4. Вот и всё! Конвертация окончена. Вспомогательную единицу, которую мы применяли для этой процедуры, можно смело удалить.

Инструмент «Текст столбцами»

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

1. Выделите исходный фрагмент, а затем запустите необходимую опцию, перейдя поп пути «Данные» → «Работа с данными» → «Текст по столбцам».
2. Перед вами откроется «Мастер текстов». Оказавшись на первой странице, обязательно убедитесь, что в форматирующем блоке напротив пункта «С разделителями» стоит флажок. После этого нажмите «Далее».
3. На втором шаге ничего менять не нужно, поэтому просто кликните «Далее».
4. На третьем шаге необходимо перейти по кнопке «Подробнее», расположенной в правой части окошка.
5. В окошке настроек, в свободном поле «Разделитель целой и дробной части» впишите точку, а в поле «Разделитель разрядов» — апостроф. Следом нажмите «ОК».
6. После возвращения к «Мастеру текстов» нажмите «Готово».

Применение макросов

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

1. Выполните переход во вкладку «Разработчик», затем на ленте найдите категорию «Код» и нажмите на «Visual Basic».
2. Откроется редактор, в который потребуется вставить следующий текст:
   Sub Текст_в_число()

   Selection.NumberFormat = "General"

   Selection.Value = Selection.Value

   End Sub

   После вставки просто закройте это окошко, кликнув на стандартный крестик.

   

3. Далее выделите фрагмент, который следует переформатировать. После этого на вкладке «Разработчик» в области «Код» кликните на «Макросы».
4. В списке всех записанных макросов выберите «Текст_в_число» и нажмите «Выполнить».
5. Конвертация успешно завершена.

Конвертирование при помощи сторонней надстройки

Для реализации этого способа в первую очередь необходимо скачать и установить специальную надстройку «sumprop». После того как вы скачаете пакет, переместите файл «sumprop» в папку, путь к которой можно посмотреть следующим образом. Откройте меню «Файл» и нажмите «Параметры». В окне параметров Excel перейдите на вкладку «Надстройки». Внизу, в пункте «Управление» укажите «Надстройки Excel» и щёлкните по кнопке «Перейти». В открывшемся окне нажмите «Обзор». Далее скопируйте путь к папке, в которую нужно будет переместить файл «sumprop». После этого запустите Excel заново и ещё раз откройте окно надстроек (повторите вышеописанные действия). В разделе «Доступные надстройки» отметьте галочкой пункт «Сумма прописью». Нужная функция появится в программе.

Теперь рассмотрим, как этим пользоваться. В ячейку введите какое-нибудь число и нажмите на кнопку «Вставить функцию». В появившемся окне выберите «Определённые пользователем» в разделе «Категория». В списке ниже вы найдёте функции «ЧислоПрописью», «СуммаПрописью» и несколько её вариаций для валют (рубли, гривны, доллары, евро). Удобно использовать, если необходимо указать какую-либо денежную сумму словами, что очень часто требуется в различной документации.

Обратите внимание, что после того, как вы применили функцию к какой-либо ячейке, все числа, которые вы будете в неё вводить, сразу будут преобразованы в текст. Используйте «ЧислоПрописью» или «СуммаПрописью» в зависимости от того, какие задачи стоят перед вами сейчас.

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

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

​Смотрите также​​ ….а мне нужно​ приходится делать часто,​или используйте сочетание​Само-собой, что если ячеек​Если на ячейке с​ скорее всего, видели:​ EXCEL (статичный вариант).​Выделите ячейки с числами,​ виде текста. В​ способы преобразования» ниже.)​файл​ Case 6: GetDigit​ 13: Result =​ = » and​ » Million «​ или подразумевается. Включает​Примечание:​ чтоби автоматично в​ то имеет смысл​ клавиш​

​ много, то такой​ числом с текстовом​Причем иногда такой индикатор​Для решения задачи используем​ которые сохранены как​ данном примере это​Кнопка «столбцы» обычно применяется​>​ = «Six» Case​ «Thirteen» Case 14:​ » & Cents​ Place(4) = «​ в себя, но​ Мы стараемся как можно​ ячейке B13 прописивало​ автоматизировать этот процесс​Ctrl+Alt+V​ способ, конечно, не​ формате вы видите​ не появляется (что​ следующий алгоритм:​ текст.​

​ ячейка​ для разделения столбцов,​Сохранить​ 7: GetDigit =​ Result = «Fourteen»​ & » Cents»​

​ Billion » Place(5)​​ не ограничивается гарантий​ оперативнее обеспечивать вас​ » одна тисяча​ при помощи несложного​в открывшемся окне выберите​ подойдет.​ зеленый уголок-индикатор, то​ гораздо хуже).​в числе прописью удалим​На вкладке​E23​ но ее также​. Откроется диалоговое окно​ «Seven» Case 8:​ Case 15: Result​ End Select SpellNumber​ = » Trillion​ окупаемость или Фитнес​ актуальными справочными материалами​ двысты п’ятдесят»​ макроса. Нажмите сочетание​ вариант​Можно быстро преобразовать псевдочисла​ считайте, что вам​

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

1. ​В общем и целом,​​ лишние пробелы с​​Главная​​.​​ можно использовать для​проекта VB​ GetDigit = «Eight»​

   ​ = «Fifteen» Case​​ = Dollars &​ » ‘ String​ для определенной цели.​ на вашем языке.​

2. ​есть ли такая​​ клавиш Alt+F11 или​​Значения (Values)​​ в нормальные, если​​ повезло. Можно просто​

   

3. ​ появление в ваших​

   ​ помощью функции СЖПРОБЕЛЫ();​​щелкните​Теперь нужно заполнить формулу​ преобразования столбца текста​. Нажмите кнопку​ Case 9: GetDigit​

   ​ 16: Result =​ Cents End Function​ representation of amount.​ В этой статье​ Эта страница переведена​ возможность в ексель??​ откройте вкладку​и​ сделать рядом с​ выделить все ячейки​ данных чисел-как-текст обычно​в числе прописью удалим склонения по​Вставить​ вниз. Вот как​ в числа. На​Нет​ = "Nine" Case​ "Sixteen" Case 17:​ ' Converts a​ MyNumber = Trim(Str(MyNumber))​ предполагается, что вы​ автоматически, поэтому ее​JayBhagavan​Разработчик (Developer)​Умножить (Multiply)​ данными дополнительный столбец​ с данными и​ приводит к большому​ родам, например "одна​и выберите пункт​ это сделать: Наведите​ вкладке​.​ Else: GetDigit =​ Result = "Seventeen"​ number from 100-999​ ' Position of​ знакомы с языком​ текст может содержать​: Да. В поисковике​и нажмите кнопку​По-сути, мы выполняем то​ с элементарной формулой:​ нажать на всплывающий​ количеству весьма печальных​ тысяча" преобразуем в​Специальная вставка​ указатель на правый​Данные​Можно сохранить файл в​ "" End Select​ Case 18: Result​ into text Function​ decimal place 0​ VBA программирования и​ неточности и грамматические​ вбиваете:​Visual Basic​ же самое, что​Двойной минус, в данном​ желтый значок с​ последствий:​ "один тысяча". Это​.​ нижний угол ячейки,​нажмите кнопку​ формате​ End Function​ = "Eighteen" Case​ GetHundreds(ByVal MyNumber) Dim​ if none. DecimalPlace​ с помощью средств,​ ошибки. Для нас​эксель надстройка число​. В появившемся окне​ и в прошлом​ случае, означает, на​ восклицательным знаком, а​перестает нормально работать сортировка​ существенно упростит формулы.​Щелкните​ чтобы он принял​Текст по столбцам​Книга Excel с поддержкой​Вставьте строки кода в​ 19: Result =​ Result As String​ = InStr(MyNumber, ".")​ которые используются для​ важно, чтобы эта​ в текст​ редактора добавьте новый​ способе - умножение​ самом деле, умножение​ затем выбрать команду​ - "псевдочисла" выдавливаются​ Для это используем​умножить​ вид знака плюс​.​ макросов (xlsm)​ поле​ "Nineteen" Case Else​ If Val(MyNumber) =​ ' Convert cents​ создания и отладки​ статья была вам​viviene22​ модуль через меню​ содержимого ячеек на​ на -1 два​Преобразовать в число (Convert​ вниз, а не​ функцию ПОДСТАВИТЬ();​и нажмите кнопку​ (+).​Остальные шаги мастера нужны​, чтобы сохранить файл​Module1 (Code)​ End Select Else​ 0 Then Exit​ and set MyNumber​ процедур. Сотрудники службы​ полезна. Просим вас​: Подробнее если можно!!!!​Insert - Module​ единицу - но​ раза. Минус на​ to number)​ располагаются по-порядку как​определим позицию слова "тысячи", "тысяч", "тысяча" с​ОК​Щелкните и перетащите вниз,​ для разделения текста​ в текущем формате.​(Модуль 1 —​ ' If value​ Function MyNumber =​ to dollar amount.​ поддержки Майкрософт могут​ уделить пару секунд​я не очень​и скопируйте туда​ не формулами, а​ минус даст плюс​:​ положено:​ помощью функции ПОИСК();​. Excel умножит каждую​ чтобы добавить формулу​ на столбцы. Так​На вкладке​ код).​ between 20-99... Select​ Right("000" & MyNumber,​ If DecimalPlace >​ пояснить конкретной процедуры.​ и сообщить, помогла​ опитная с ексель)​ следующий код:​ напрямую из буфера.​ и значение в​Все числа в выделенном​функции типа​слева от слова "тысячи" будет​ ячейку на 1,​ в другие ячейки.​ как нам нужно​Файл​Нажмите клавиши​ Case Val(Left(TensText, 1))​ 3) ' Convert​ 0 Then Cents​ Однако они не​ ли она вам,​Hugo​Sub Convert_Text_to_Numbers() Selection.NumberFormat​

4. ​Если псеводчисла, которые надо​ ячейке это не​​ диапазоне будут преобразованы​​ВПР (VLOOKUP)​ число прописью для​

   

5. ​ при этом преобразовав​​ После этого вы​​ только преобразовать текст,​выберите команду​Alt + Q​ Case 2: Result​

   ​ the hundreds place.​​ = GetTens(Left(Mid(MyNumber, DecimalPlace​ изменять эти примеры​ с помощью кнопок​: Думаю с такой​ = «General» Selection.Value​ преобразовать, вдобавок еще​ изменит, но сам​ в полноценные.​

​не находят требуемые​

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

1. ​ тысяч, а справа​​ текст в числа.​​ можете использовать новый​​ нажмите кнопку​​Сохранить как​, чтобы вернуться​ = «Twenty «​ If Mid(MyNumber, 1,​ + 1) &​ для обеспечения функциональных​ внизу страницы. Для​ грамматикой поисковик может​

2. ​ = Selection.Value End​​ и записаны с​​ факт выполнения математической​

​Если зеленых уголков нет​

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

​ значения, потому как​ количество единиц. Используем​Нажмите клавиши CTRL+1 (или​ столбец или скопировать​Готово​.​​ в Microsoft Excel.​​ Case 3: Result​​ 1) <> «0»​​ _ «00», 2))​​ возможностей или создания​​ удобства также приводим​​ не то подумать​​ Sub​

​ неправильными разделителями целой​ операции переключает формат​​ совсем, то проверьте​ для них число​​ функции ЛЕВСИМВ() и ПРАВСИМВ(),​+1 на Mac).​

1. ​ и вставить новые​​, и Excel преобразует​​Щелкните раскрывающееся меню​​ Функция SpellNumber теперь​​ = «Thirty «​

2. ​ Then Result =​​ MyNumber = Trim(Left(MyNumber,​​ процедур в соответствии​​ ссылку на оригинал​Да и «одна​​Теперь после выделения диапазона​

3. ​ и дробной части​​ данных на нужный​​ — не выключены​

​ и такое же​

support.office.com

Преобразование чисел из текстового формата в числовой

​ чтобы извлечь эти​ Выберите нужный формат.​ значения в исходный​ ячейки.​Тип файла​​ готов к использованию.​ Case 4: Result​ GetDigit(Mid(MyNumber, 1, 1))​ DecimalPlace — 1))​ с конкретными требованиями.​

1. Выделите столбец

​ (на английском языке).​ тисяча двысты п’ятдесят»​ всегда можно открыть​ или тысяч, то​ нам числовой.​ ли они в​ число-как-текст различаются:​ числа;​Можно сделать так, чтобы​ столбец. Вот как​Нажмите клавиши CTRL+1 (или​и выберите​Примечание:​ = «Forty «​ & » Hundred​

2. Нажмите эту кнопку

​ End If Count​Используйте сочетание клавиш​Нет функции по умолчанию,​ — возможность есть,​ вкладку​ можно использовать другой​Само-собой, вместо умножения на​​ настройках вашего Excel​​при фильтрации псевдочисла отбираются​​текстовые значения от 1​​ числа, хранящиеся как​

3. Нажмите кнопку «Готово»

​ это сделать: Выделите​+1 на Mac).​Книгу Excel с поддержкой​ Эта функция работает только​ Case 5: Result​ » End If​​ = 1 Do​​Alt​ отображающий чисел в​

4. Задайте формат

​ но готовое вряд​​Разрабочик — Макросы (Developer​ подход. Выделите исходный​

​ 1 можно использовать​​ (​ ошибочно​ до 999 введем​ текст, не помечались​​ ячейки с новой​​ Выберите нужный формат.​​ макросов​​ для текущей книги.​​ = «Fifty «​​ ‘ Convert the​

Другие способы преобразования

Использование формулы

​ While MyNumber <>​+​ виде английских слов​

1. Вставьте новый столбец

​ ли найдёте. Это​ — Macros)​ диапазон с данными​ любую другую безобидную​Файл — Параметры -​многие другие функции Excel​ в отдельный диапазон,​ зелеными треугольниками. Выберите​

2. Примените функцию ЗНАЧЕН

​ формулой. Нажмите клавиши​Примечание:​​.​​ Для использования этой​ Case 6: Result​ tens and ones​ «» Temp =​F11​ на листе Excel,​ какой язык? Неужели​​, выбрать наш макрос​​ и нажмите кнопку​

3. Наведите указатель мыши

​ математическую операцию: деление​ Формулы — Числа,​ также перестают нормально​ сопоставим им числа;​Файл​ CTRL+C. Щелкните первую​ Если вы по-прежнему видите​Нажмите кнопку​

4. Щелкните и перетащите вниз

​ функции в другой​ = «Sixty «​ place. If Mid(MyNumber,​ GetHundreds(Right(MyNumber, 3)) If​, чтобы открыть​ но вы можете​ украинский?​ в списке, нажать​Текст по столбцам (Text​ на 1 или​ отформатированные как текст​ работать:​с помощью функции ВПР()​>​ ячейку в исходном​​ формулы, которые не​​Сохранить​ книге, необходимо повторить​​ Case 7: Result​​ 2, 1) <>​​ Temp <> «»​​ редактор Visual Basic​​ добавить эту возможность​​viviene22​

Использование специальной вставки и умножения

​ кнопку​ to columns)​ прибавление-вычитание нуля. Эффект​ или с предшествующим​и т.д.​ будем извлекать числа​Параметры​

1. ​ столбце. На вкладке​ выводят числовые результаты,​.​ шаги, скопируйте и​​ = «Seventy «​​ «0» Then Result​ Then Dollars =​

2. ​ (VBE).​ путем вставки следующий​

3. ​:​Выполнить (Run​на вкладке​

4. ​ будет тот же.​​ апострофом​​Особенно забавно, что естественное​​ в цифровом формате​​>​​Главная​​ возможно, включен параметр​

5. ​К началу страницы​​ вставьте код в​​ Case 8: Result​​ = Result &​​ Temp & Place(Count)​Примечание:​ код функции SpellNumber​я на роботі​

6. ​)​​Данные (Data)​Этот способ использовали еще​

Отключение зеленых треугольников

​).​ желание просто изменить​ задавая число прописью.​Формулы​​щелкните стрелку рядом​​Показать формулы​​Числа, хранящиеся как текст,​​ этой книге.​​ = «Eighty «​​ GetTens(Mid(MyNumber, 2)) Else​​ & Dollars If​​ Вы также можете открывать​

См. также:

​ в модуле VBA​
​ і потрібно швидко​- и моментально​. На самом деле​
​ в старых версиях​

support.office.com

Переводим число прописью в число цифрами в Excel

​Если ячеек немного, то​ формат ячейки на​Примечание​и снимите флажок​ с кнопкой​. Откройте вкладку​

​ могут приводить к​К началу страницы​ Case 9: Result​

​ Result = Result​​ Len(MyNumber) > 3​ редактор Visual Basic,​ (Visual Basic for​ віднайти відповідь. Тому​ преобразовать псевдочисла в​ этот инструмент предназначен​

​ Excel, когда современные​ можно поменять их​

• ​ числовой — не​: Формулы можно найти​Числа в текстовом формате​
• ​Вставить​Формулы​ непредвиденным результатам. Выделите​Введите формулу​ = «Ninety «​ & GetDigit(Mid(MyNumber, 3))​ Then MyNumber =​
• ​ добавив вкладку «Разработчик»​ Applications). Эта функция​
• ​ я не вдавалася​ полноценные.​ для деления слипшегося​ эффективные менеджеры под​ формат на числовой,​ помогает. Т.е. вы,​ в файле примера внизу статьи.​
• ​.​и выберите пункт​и отключите параметр​ ячейки и нажмите​
• ​= SpellNumber​ Case Else End​ End If GetHundreds​ Left(MyNumber, Len(MyNumber) -​

​ на ленту.​​ позволяет преобразовывать доллара​ до перекладача! Вибачте)))​

​Также можно добавить этот​​ текста по столбцам,​ стол ходили зеленого​ а затем повторно​ буквально, выделяете ячейки,​СОВЕТ​Замена формулы ее результатом​

excel2.ru

Преобразование чисел-как-текст в нормальные числа

​Специальная вставка​Показать формулы​ кнопку​(​ Select Result =​ = Result End​ 3) Else MyNumber​На вкладке​ и кратное сумм​ але допоможіть))))​ макрос в личную​ но, в данном​ уголка-индикатора еще не​ ввести данные, чтобы​

​ щелкаете по ним​: Подробнее о работе использованных​Удаление пробелов и​

​>​.​, чтобы выбрать​A1​ Result & GetDigit​ Function ‘ Converts​

​(Вставка) нажмите кнопку​ помощью формулы, 22,50​: На украинском есть​ использовать позднее в​ его с другой​ (он появился только​ в силу. Проще​ выбираете​ кликнув на соответствующие​​ текста​​.​​ можно возвращать числовое​​ эта кнопка недоступна,​​ вы хотите отобразить​​ ‘ Retrieve ones​ 10 to 99​

​ Count + 1​Module​ читается как двадцати​ тут:​ любом файле.​ целью.​ с 2003 года).​ всего это сделать,​Формат ячеек (Format Cells)​

Способ 1. Зеленый уголок-индикатор

​ ссылки внизу статьи​ПЕЧСИМВ (функция ПЕЧСИМВ)​Если указанные выше действия​ значение текста.​ выполните указанные ниже​ письменного номер, где​ place. End If​ into text. Function​ Loop Select Case​(Модуль).​ двух центы и​но там получите​​С датами бывает та​Пропустите первых два шага​​ Алгоритм такой:​

​ встав на ячейку​, меняете формат на​ на вкладке Использованные функции (под​

​Преобразуем число из текстовой​ не дали результатов,​Вставьте столбец рядом с​ действия.​ A1 — ячейку,​ GetTens = Result​​ GetTens(TensText) Dim Result​ Dollars Case «»​Скопируйте приведенный ниже код.​ т. Это может​Одна тисяча двісті​​ же история. Некоторые​

Способ 2. Повторный ввод

​ нажатием на кнопку​в любую пустую ячейку​ и нажав последовательно​Числовой (Number)​ кнопкой Скачать файл примера).​ формы в обычное​ попробуйте использовать этот​ ячейками, содержащими текст.​Выделите столбец с такими​ содержащую число вы​ End Function ‘​​ As String Result​​ Dollars = «No​Примечание:​ быть очень полезным​ п’ятдесят гривень, 00​​ даты тоже могут​​Далее (Next)​​ введите 1​​ клавиши​, жмете​Если для каких-либо ячеек​ число из цифр:​

​ метод, который подходит,​ В этом примере​ ячейками. Если вы​ хотите преобразовать. Можно также​

Способ 3. Формула

​ Converts a number​ = «» ‘​ Dollars» Case «One»​ Известные как Пользовательской функции​ при использовании Excel​

​ копійок​ распознаваться Excel’ем как​, а на третьем​скопируйте ее​F2​ОК​ на листе был​ например, «сто пятьдесят​ если вы хотите​ столбец E содержит​ не хотите преобразовывать​ вручную ввести значение​ from 1 to​

​ Null out the​ Dollars = «One​ (UDF)этот код Автоматизация​ как шаблон для​viviene22​ текст, поэтому не​ воспользуйтесь кнопкой​

Способ 4. Специальная вставка

​выделите ячейки с числами​(вход в режим​- и ничего​ установлен текстовый формат​ три» преобразуем в​ преобразовать несколько столбцов​ числа, которые хранятся​ весь столбец, можно​ как = SpellNumber(22.50).​ 9 into text.​

• ​ temporary function value.​ Dollar» Case Else​
• ​ задач для преобразования​
• ​ печати проверки.​:​ будет работать группировка​Дополнительно (Advanced)​ в текстовом формате​ редактирования, в ячейке​
• ​ не происходит! Совсем!​ (это мог сделать​ 153.​ текста.​​ в виде текста.​​ выбрать одну или​Нажмите клавишу​​ Function GetDigit(Digit) Select​
• ​ If Val(Left(TensText, 1))​ Dollars = Dollars​​ чисел в разных​​Если вы хотите преобразования​​ок))​

​ и сортировка. Решения​. Откроется диалоговое окно,​ и поменяйте у​ начинает мигаеть курсор)​Возможно, «это не баг,​ пользователь или программа​Решим задачу для чисел​Выделите пустую ячейку, в​

Способ 5. Текст по столбцам

​ Столбец F является​ несколько ячеек. Ячейки​Ввод​ Case Val(Digit) Case​ = 1 Then​ & » Dollars»​ частях листа.​ числовых значений в​Vitallic​ — те же​​ где можно задать​ них формат на​​ и затем​​ а фича», конечно,​​ при выгрузке данных​ от 1 до​ которой нет этой​ новым столбцом.​ должны находиться в​, чтобы подтвердить формулу.​ 1: GetDigit =​ ‘ If value​

​ End Select Select​Option Explicit ‘Main Function​​ текстовом формате без​​: Добрый день, нашел​ самые, что и​​ имеющиеся сейчас в​​ числовой (ничего не​Enter​ но нам от​ в Excel), то​

​ 999 999.​​ проблемы, введите в​​В одной из ячеек​ одном и том​К началу страницы​

Способ 6. Макрос

​ «One» Case 2:​ between 10-19… Select​ Case Cents Case​ Function SpellNumber(ByVal MyNumber)​ отображения их как​ на соседнем форуме​ для чисел, только​ нашем тексте символы-разделители:​​ произойдет)​​. Также вместо​​ этого не легче.​​ введенные потом в​Примечание​ нее цифру​​ нового столбца введите​​ же столбце, иначе​Excel не может сохранить​

​ GetDigit = «Two»​ Case Val(TensText) Case​ «» Cents =​ Dim Dollars, Cents,​

​ слова, используйте функции​Користуйтесь на здоров’я!​ формат вместо числового​​После нажатия на​щелкните по ячейкам с​​F2​ Так что давайте-к​ эти ячейки числа​​: Обратная задача -​​1​​=ЗНАЧЕН()​ этот процесс не​ книгу с помощью​

​ Case 3: GetDigit​ 10: Result =​ » and No​ Temp Dim DecimalPlace,​ текст .​

P.S.

​viviene22​ нужно заменить на​Готово​ псевдочислами правой кнопкой​можно просто делать​ рассмотрим несколько способов​ Excel начинает считать​ преобразование обычного числа​и нажмите клавишу​и укажите в​ будет работать. (Если​ функции макросов в​ = «Three» Case​

planetaexcel.ru

Автоматический перевод цифр в прописные слова

​ «Ten» Case 11:​​ Cents» Case «One»​ Count ReDim Place(9)​Примечание:​: Дякуюююю!! ненадякуюсь)))))) от​ дату-время.​Excel преобразует наш​ мыши и выберите​
​ двойной щелчок левой​ исправить ситуацию -​

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

​ формате стандартной книги​​ 4: GetDigit =​​ Result = «Eleven»​ Cents = «​

​ As String Place(2)​​ Microsoft примеры программирования только​ таку відповідь я​viviene22​
​ текст в нормальные​ команду​ кнопкой мыши по​ один из них​ ячейки помечаются зеленым​ решена в статье Число​Нажмите клавиши CTRL+C, чтобы​

​ ячейку, содержащую числа,​​ в нескольких столбцах,​​ без поддержки макросов​ «Four» Case 5:​ Case 12: Result​ and One Cent»​ = » Thousand​ для иллюстрации и​

​ і хотіла!! Просто​​: Например в ячейке​ числа.​
​Специальная вставка (Paste Special)​
​ ячейке.​ вам обязательно поможет.​ индикатором, который вы,​

​ прописью в MS​​ скопировать ячейку.​​ которые хранятся в​

​ см. раздел «Другие​​ (XLSX). Если щелкнуть​ GetDigit = «Five»​
​ = «Twelve» Case​

​ Case Else Cents​​ » Place(3) =​ без гарантий выраженное​ Ви мене виручили!!​ B12 есть 1250​

planetaexcel.ru

​Если подобные преобразования вам​

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

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

Поиск файла с надстройкой

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

По большей части почти все такие источники безопасны, поскольку файл формата XLS довольно сложно заразить вирусом или замаскировать его, поскольку вы будете запускать его не вручную, а непосредственно в Microsoft Excel. Чаще пользователи просто жмут не ту кнопку «Скачать», которая на самом деле загружает вредоносное ПО в виде установщика. Будьте внимательны и убедитесь в том, что скачали действительно тот файл, который вы видите на предыдущем скриншоте.

Еще до открытия можете использовать онлайн-сервис VirusTotal, чтобы проверить файл на вирусы без скачивания антивируса на свой компьютер. Это поможет еще больше обезопасить себя в случае сомнений по поводу надежности полученной надстройки.

Импорт надстройки в Microsoft Excel

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

1. Запустив Microsoft Excel, перейдите на вкладку «Файл».

2. В меню слева найдите пункт «Параметры» и перейдите в настройки программы.

3. Вам понадобится раздел с соответствующим названием «Надстройки».

4. В нем перейдите к выбору новой надстройки, которой и является скачанный ранее файл.

5. В новом окне нажмите «Обзор», чтобы открыть окно «Проводника» и выбрать в нем файл.

6. Как только новое окно отобразится, найдите в нем объект «NUM2TEXT.xls», который вы скачали самостоятельно, и щелкните по нему дважды для подтверждения выбора.

7. Если название функции появилось в списке надстроек, значит, все действия выполнены правильно и вы можете нажать «ОК», чтобы сохранить изменения.

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

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

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

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

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

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

4. Если она уже есть в отдельной ячейке, укажите ее номер и обратите внимание на то, как функция обработает информацию и в каком виде она будет выведена в новой ячейке.

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

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