доброго дня, так и не нашла ответ на то, как можно убрать копейки...может кто подскажет
доброго дня, так и не нашла ответ на то, как можно убрать копейки...может кто подскажет
Malay, нереальное вам спасибо! пригодилось и сейчас!
От теории к практике.От практики к теории.
в excelе число прописью записалось в горизонтальной ячейке,a какой формулой надо пользоваться чтоб в excelе число прописью в вертикальной ячейке записалось?? заранее спасибо
Одна ячейка в ЭКСЕЛьной таблице - она ни горизонтальная, на вертикальная. Она "сама по себе".
Попробуйте энту ячейку поформатировать на предмет "формат ячейки/Выравнивание/Ориентация". И там меняйте "градусы" в диапазоне от "-90" до "90"
Вам полегчает. В смсыле - вопрос отпадет, правда
Аноним СПАСИБО!!!
Ну как не помочь страждущему предпринимателю?
А если серьезно: Вы сообщения в теме читали?
[QUOTE=vikttur;54293552]
сумма которая записана в ячейке чтоб АВТОМАТИЧЕСКИЙ прописью записалась в нижней ячейке.как можно,какой формулой?
сумма которая записана в ячейке чтоб АВТОМАТИЧЕСКИЙ прописью записалась в нижней ячейке.
forumer, в теме уже 5 страниц сообщений. Отделите зерна от плевел: среди этой писанины есть крупицы, которые пригодятся Вам, есть ссылки.
В Excel нет встроенного инструмента типа СуммаПрописью. Но в сети есть множество разработок, которые помогают вывести сумму прописью: формульные решения (но не одной формулой!), функции пользователя, надстройки...
Здравствуйте! Меня тоже интересует этот вопрос, но у меня также не получилось открыть ссылку, прошу выслать на Майл
Супер программа!! У меня вообще проблема по жизни, как правильно преобразить сумму прописью))). При этом затратив минимум времени. Спасибо Марат Зайнуллин!
Марат, спасибо Вам!!!! :*
Спасибо! Ваша надстройка верой и правдой несколько лет служила на разных работах ))))
На теперешней работе в ТТН требуется вводить количество мест прописью без рублей и копеек (одно, два, три....сто двадцать одно.. и т.д.) сейчас пытаюсь соорудить формулу из представленного на сайте материала, надеюсь, получится, но процесс идёт медленно))) Если вдруг кто готов поделиться решением - заранее огромное спасибо!
Умница Марат, Спасибо!
1. Мне нужно готовое решение написания типа: "Десять целых, две десятых" или "Десять целых восемьдесят сотых" и т.п... Что реализовывается гораздо сложнее "рублей, копеек". )
Теперь по поводу готовых решений. Сам пользуюсь "сумм_проп_руб" - кто автор не знаю, но спасибо ему огромное!
Взял на себя смелость и немного доработал остальные его решения под себя и сейчас имеем следующие функции:
1. сумм_проп_руб - стандартное написание типа "Десять рублей, 00 копеек".
2. сумм_проп_рубк - написание типа "Десять руб., 00 коп."
3. сумм_проп - написание типа "Десять" - всё что после запятой - отметается. (Грубо, но того требовала ситуация, для написания РКО, где копейки выносятся в отдельное поле).
Берите
Надстройка от Марата хороша, но наткнулась на такую проблему: при вычислении НДС получаю цифру 1220,34 р. а расшифровка получается с 33 копейками. То есть реальная цифра 1220,338... Эксель округляет до копеек в большую сторону, а надстройка почему-то в меньшую. К тому же по требованиям бухгалтерии надо расшифровку помещать в скобки. Никто не встречал такого?
Подскажите, что нужно тут =СуммаПрописью(D1) добавить, чтобы сумма прописью была в скобках, вот так например: 123 руб., 45 коп. (Сто двадцать три руб., 45 коп.)
Код:="("&СуммаПрописью(D1)&")"
=ТЕКСТ(ОКРУГЛВНИЗ(A1;0);"# ##0_ ")&"("&ЕСЛИ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0)>0;ЕСЛИ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)=0;"";ВПР(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)<20);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)<20);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(B1;100)<20;ОСТАТ(B1;100);ОСТАТ(B1;10))=0;"";ВПР(ЕСЛИ(ОСТАТ(B1;100)<20;ОСТАТ(B1;100);ОСТАТ(B1;10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0))&" "&ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);10))=1;"миллиардов ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^3;1000);0);10))=4);"миллиарда ";"миллиардов "));"")&ЕСЛИ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0)>0;ЕСЛИ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)=0;"";ВПР(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)<20);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)<20);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);10))=1;"миллион ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/10^6;1000);0);10))=4);"миллиона ";"миллионов "));"")&ЕСЛИ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0)=0;"";ЕСЛИ((ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100))=0;"";ВПР((ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100));{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)<20);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)<20);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);10))=1;"тысяча ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1/1000;1000);0);10))=4);"тысячи ";"тысяч ")))&ЕСЛИ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0)=0;"";ЕСЛИ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)=0;"";ВПР(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)<20);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)<20);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);10))=1;"рубль";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);100);ОСТАТ(ОКРУГЛВНИЗ(ОСТАТ(A1;1000);0);10))=4);"рубля";"рублей")))&") "&ТЕКСТ(ОКРУГЛВНИЗ(100*A1;0)-ОКРУГЛВНИЗ(100*A1;-2);"_#0_ ")&"коп."
В первом сообщении ошибки. Все вроде исправил.
Формула преобразования значения в бублях в цифровом формате в сумму прописью.
Все в одной ячейке с использованием ВПР и матриц.
Конструкция громоздкая (7539 знаков), но как не странно работает.
Преобразует число до 999 миллиардов.
При разряде менее 0,01 проводит округление.
Формат следующий:
ссылка на ячейку A1.
Формула:
__________________________________________________________________________________________________________________________________________
=ТЕКСТ(ОТБР(A1;0);"# ##0_ ")&"("&ЕСЛИ(ОТБР(A1;0)=0;"ноль";ЕСЛИ(ОТБР(ОСТАТ(A1/10^9;1000);0)=0;"";ЕСЛИ(ОТБР(ОСТАТ(A1/10^9;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)=0;"";ВПР(ОТБР(ОСТАТ(A1/10^9;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0))&" "&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=1;"миллиард ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^9;1000);0);10))=4);"миллиарда ";"миллиардов ")))&ЕСЛИ(ОТБР(ОСТАТ(A1/10^6;1000);0)=0;"";ЕСЛИ(ОТБР(ОСТАТ(A1/10^6;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)=0;"";ВПР(ОТБР(ОСТАТ(A1/10^6;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=1;"миллион ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/10^6;1000);0);10))=4);"миллиона ";"миллионов ")))&ЕСЛИ(ОТБР(ОСТАТ(A1/1000;1000);0)=0;"";ЕСЛИ((ОТБР(ОСТАТ(A1/1000;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100))=0;"";ВПР((ОТБР(ОСТАТ(A1/1000;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100));{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=1;"тысяча ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1/1000;1000);0);10))=4);"тысячи ";"тысяч ")))&ЕСЛИ(ОТБР(ОСТАТ(A1;1000);0)=0;"";ЕСЛИ(ОТБР(ОСТАТ(A1;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)=0;"";ВПР(ОТБР(ОСТАТ(A1;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);100);{100;"сто":200;"двести":300;"триста":400;"четыреста":500;"пятьсот":600;"шестьсот":700;"семьсот":800;"восемьсот":900;"девятьсот"};2;0)&" ")&ЕСЛИ(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10);0)=0;"";ВПР(ЕСЛИ(НЕ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)-ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10);0);{20;"двадцать":30;"тридцать":40;"сорок":50;"пятьдесят":60;"шестьдесят":70;"семьдесят":80;"восемьдесят":90;"девяносто"};2;0)&" ")&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=0;"";ВПР(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10));{1;"один":2;"два":3;"три":4;"четыре":5;"пять":6;"шесть":7;"семь":8;"восемь":9;"девять":10;"десять":11;"одиннадцать":12;"двенадцать":13;"тринадцать":14;"четырнадцать":15;"пятнадцать":16;"шестнадцать":17;"семнадцать":18;"восемнадцать":19;"девятнадцать"};2;0))))&") "&ЕСЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=1;"рубль ";ЕСЛИ(ИЛИ(ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=2;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=3;ЕСЛИ(ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100)<20;ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);100);ОСТАТ(ОТБР(ОСТАТ(A1;1000);0);10))=4);"рубля ";"рублей "))&ТЕКСТ(ОКРУГЛВНИЗ(100*A1;0)-ОКРУГЛВНИЗ(100*A1;-2);"00")&ЕСЛИ(ОКРУГЛ(ОСТАТ(A1;1)*100;0)=1;" копеек";ЕСЛИ(ИЛИ(ОКРУГЛ(ОСТАТ(A1;1)*100;0)=2;ОКРУГЛ(ОСТАТ(A1;1)*100;0)=3;ОКРУГЛ(ОСТАТ(A1;1)*100;0)=4);" копейки";" копеек"))
__________________________________________________________________________________________________________________________________
(гипотетически можно заменить рубли и копейки на другую валюту - "рубль", "рубли", "рублей" и "копейка", "копейки", "копеек")
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)