Число прописью в Excel

Главная / Excel / Число прописью в Excel

18.08.2022

12 мин.

Содержание

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

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

Загрузите файл дополнения.

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

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

Запустите Excel и нажмите кнопку Файл.
Нажмите на опции.
Затем перейдите к дополнениям.

И нажмите на кнопку "Перейти к".
Чтобы загрузить загруженный файл, нажмите "Обзор".
И найдите его в папке, в которой вы его сохранили. Вам будет предложено скопировать файл в папку дополнений. Таким образом, Excel всегда будет видеть надстройку, и вы сможете легко найти функцию для суммы в словах.
Подключается необходимая библиотека Excel. Галочка означает, что вы можете его использовать. Нажмите OK.
Необходимое действие представлено в виде функции SUM_WORD. Чтобы применить его, введите число в ячейку A1 и поместите указатель рядом с ним в ячейку B1. Щелкните значок Fx рядом со строкой формул.
А в полном алфавитном списке найдите функцию SUMMARY_HANDS. Мы рекомендуем вам начать вводить название. Затем Excel прокрутит страницу ближе к нужному разделу.
Нажмите OK, а затем введите адрес A1 в окне мастера. Вы можете просто щелкнуть по ячейке мышью.
После нажатия кнопки OK вы увидите сумму в словах.

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

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

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

Как вы видите, доступны следующие функции:

Сумма в словах.
Сумма в словах Доллары
Ориентировочная сумма в евро
Ориентировочная сумма в евро

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

После нажатия кнопки OK мы получим результат.

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

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

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

SUBSTITUTE(INDEX(n_4;PSTR(TEXT(A3;n0);1;1)+1)&INDEX(n0x;PSTR(TEXT(A3;n0);2;1)+1;PSTR(TEXT(A3;n0);3;1)+1)&CEASE(-PSTR(TEXT(A3;n0);1;3); "миллиард"&PR(PSTR(TEXT(A3; (n0); 3;1)*I(PSTR(TEXT(A3;n0);2;1)-1);mil;2);""")&INDEX(n_4;PSTR(TEXT(A3;n0);4;1)+1)&INDEX(n0x;PSTR(TEXT(A3;n0);5;1)+1;PSTR(TEXT(A3;n0);6;1)+1)&If(-PSTR(TEXT(A3;n0);4;3) "million"&WPR(PSTR(TEXT(A3;n0);6;1)*I(PSTR(TEXT(A3;n0);5;1)-1);miles;2);""")&INDEX(n_4;PSTR(TEXT(A3;n0);7;1)+1)&INDEX(n1x;PSTR(TEXT(A3;n0); 8;1)+1;PSTR(TEXT(A3;n0);9;1)+1)&CEITH(-PR(TEXT(A3; (n0);7;3);TPR(PSTR(TEXT(A3;n0);9;1)*I(PSTR(TEXT(A3;n0);8;1)-1);th;2);"")&INDEX(n_4; PSTR(TEXT(A3;n0);10;1)+1)&INDEX(IF(-PSTR(TEXT(A3;n0);14;6);n1x;n0x);PSTR(TEXT(A3;n0); 11;1)+1;PSTR(TEXT(A3;n0);12;1)+1))); "с; ")&CEPT(OSTAT(TEXT(A3;n0)); "ноль")&CEPT(-PSTR(TEXT(A3;n0);14;6);IF(OSTAT(MAX(OSTAT(PSTR(TEXT(A3;n0);11;2)-11;100);9);10); "целое число"; "integer")&SEND(n_4;PSTAT(TEXT(A3;n0);14;6)/10^5+1)&INDEX(n1x;OSTAT(PSTAT(TEXT(A3;n0);14;6)/10^4;10)+1;OSTAT(PSTAT(TEXT(A3;n0);14;6)/1000; 10)+1)&CEED(ORDER(TEST(TEXT(A3; (n0);14;6)/1000);TPR(OSTAT(PSTAT(TEXT(A3;n0);14;6)/1000;10)*(OSTAT(TITLE(PSTAT(TEXT(A3;n0);14;6)/10^4); 10)1);tys;2);"")&INDEX(n_4;OSTAT(PSTAT(TEXT(A3;n0);14;6)/100;10)+1)&INDEX(n1x; OSTAT(PSTR(TEXT(A3;n0);14;6)/10;10)+1;OSTAT(PSTR(TEXT(A3; n0);14;6);10)+1); "z";")&INDEX(share;DLSTAT(PSTR(TEXT(A3;n0);14;6);(OSTAT(MAX(OSTAT(PSTR(TEXT(A3;n0);14;6)-11;100);9);10)>0)+1));)

Чтобы использовать его, необходимо указать некоторые массивы Excel:

n_1 ={"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"}
n_2 ={"tenz"; "elevenz"; "twelvez"; "thirteenz"; "fourteenz"; "fifteenz"; "sixteenz"; "seventeenz"; "eighteenz"; "nineteenz"}.
n_3 ={"":1: "twentyz": "тридцатка": "сорока": "fiftyz": "шестьдесят": "семитысячник": "eightyz": "ninetyz"}
n_4 ={"; "сто; "двести; "двести; "триста; "четыреста; "пятьсот; "шестьсот; "семьсот; "восемьсот; "девятьсот"}
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), "mil"&VLOOKUP(MID(TEXT(A1,n0),3,1)*AND(MID(TEXT(A1,n0),2, 1)-1), mil,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), mil,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),th,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("", "one ", "two ", "three ", "four ", "five ", "six ", "seven ", "eight ", "nine ") Chis2 = Array("", "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ") Chis3 = Array("", "один ", "два ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ") Chis4 = Array(", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять") Chis5 = Array(", "десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "nineteen ") If n 0 Then thous_txt = Chis4(thous) & "thousands " Case 1 thous_txt = Chis4(thous) & "thousand " 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 & hund_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)) Конечная функция

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