Ответить в теме

Сообщение от Olga_Y

Могу предложить свою разработку в Экселе по переводу числа в текст. Не знаю правильно ли прикрепила файл, поэтому если кому-то надо, вышлю на e-mail.

Вышлите, пожалуйста, поскольку ссылка не открывается.

Сообщение от Aksios

Давным-давно я себе сделал возможность перевода числа в пропись. Её отличает от других то, что она сделана полностью формулами листа БЕЗ МАКРОСОВ! А значит будет работать даже при включённой защите от макровирусов.

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

Спасибо.
Заметил: "одиннадцать" с одной "н" пишет.

Сообщение от Malay

Коллеги! Предлагаю на мой взгляд идеальный вариант суммы прописью - один раз подключил и голова не болит! Сам пользуюсь не один год.
Описание в архиве.

Удачи!
Марат Зайнуллин

спасибо работает

Спасибо. у меня все работает

Ольга, пришлите мне это вложение. Спасибо.

Предлагаю два варианта суммы прописью в Excel: блок ячеек и формула, выбираемая в Мастере функций. Формат преобразования: 0,00 = Ноль рублей 00 копеек. Иностранных валют нет. Ссылка к описанию.

Сообщение от Malay

Коллеги! Предлагаю на мой взгляд идеальный вариант суммы прописью - один раз подключил и голова не болит! Сам пользуюсь не один год.
Описание в архиве.

Удачи!
Марат Зайнуллин

Спасибо Марат!

СПАСИБО!!!!!!! И я не нарадуюсь!!!!

Сообщение от Аноним

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

Инга К.,

Сообщение от SovaKl

Excel 2010 обнаружил ошибку и внес какие-то изменения в формулу

Ну да, там лишние пробелы кое-где разбросаны по формуле, и Excel их честно исправляет, если они в середине функций типа «ОС ТАТ».
А вообще формула замечательная, и читается легко.

AleckxJoker! Такого формульного монстра вижу впервые! И, действительно, формула работает! РЕСПЕКТ!!!
И то, что результат отображается в не очень часто используемом формате, нисколько не умаляет заслуг автора!
Возможно, ошибки еще остались, у меня Excel 2010 обнаружил ошибку и внес какие-то изменения в формулу, результат такой: 555 333 222 (пятьсот пятьдесят пять миллионов т риста тридцать три тысячи двести двадцать два) р убля 01 копеек

В первом сообщении ошибки. Все вроде исправил.
Формула преобразования значения в бублях в цифровом формате в сумму прописью.
Все в одной ячейке с использованием ВПР и матриц.
Конструкция громоздкая (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);" копейки";" копеек"))
__________________________________________________________________________________________________________________________________

(гипотетически можно заменить рубли и копейки на другую валюту - "рубль", "рубли", "рублей" и "копейка", "копейки", "копеек")

=ТЕКСТ(ОКРУГЛВНИЗ(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_ ")&"коп."

Код:

 ="("&СуммаПрописью(D1)&")"

Подскажите, что нужно тут =СуммаПрописью(D1) добавить, чтобы сумма прописью была в скобках, вот так например: 123 руб., 45 коп. (Сто двадцать три руб., 45 коп.)

Надстройка от Марата хороша, но наткнулась на такую проблему: при вычислении НДС получаю цифру 1220,34 р. а расшифровка получается с 33 копейками. То есть реальная цифра 1220,338... Эксель округляет до копеек в большую сторону, а надстройка почему-то в меньшую. К тому же по требованиям бухгалтерии надо расшифровку помещать в скобки. Никто не встречал такого?

Сообщение от vikttur

Ну как не помочь страждущему предпринимателю?

А если серьезно: Вы сообщения в теме читали?

а сначала прочитать тему не судьба страждущему предпринимателю? Там у Марата отличная надстройка есть, работает на все 1005 отлично

Сообщение от Аноним

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

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

Сообщение от Malay

Коллеги! Предлагаю на мой взгляд идеальный вариант суммы прописью - один раз подключил и голова не болит! Сам пользуюсь не один год.
Описание в архиве.

Удачи!
Марат Зайнуллин

Благодарю!!!

1. Мне нужно готовое решение написания типа: "Десять целых, две десятых" или "Десять целых восемьдесят сотых" и т.п... Что реализовывается гораздо сложнее "рублей, копеек". )
Теперь по поводу готовых решений. Сам пользуюсь "сумм_проп_руб" - кто автор не знаю, но спасибо ему огромное!
Взял на себя смелость и немного доработал остальные его решения под себя и сейчас имеем следующие функции:
1. сумм_проп_руб - стандартное написание типа "Десять рублей, 00 копеек".
2. сумм_проп_рубк - написание типа "Десять руб., 00 коп."
3. сумм_проп - написание типа "Десять" - всё что после запятой - отметается. (Грубо, но того требовала ситуация, для написания РКО, где копейки выносятся в отдельное поле).
Берите

Умница Марат, Спасибо!

Спасибо! Ваша надстройка верой и правдой несколько лет служила на разных работах ))))

На теперешней работе в ТТН требуется вводить количество мест прописью без рублей и копеек (одно, два, три....сто двадцать одно.. и т.д.) сейчас пытаюсь соорудить формулу из представленного на сайте материала, надеюсь, получится, но процесс идёт медленно))) Если вдруг кто готов поделиться решением - заранее огромное спасибо!

Сообщение от Malay

Коллеги! Предлагаю на мой взгляд идеальный вариант суммы прописью - один раз подключил и голова не болит! Сам пользуюсь не один год.
Описание в архиве.

Удачи!
Марат Зайнуллин

Спасибо!!!

Сообщение от Malay

Коллеги! Предлагаю на мой взгляд идеальный вариант суммы прописью - один раз подключил и голова не болит! Сам пользуюсь не один год.
Описание в архиве.

Удачи!
Марат Зайнуллин

Спасибо Марат Вам огромное, столько лет,а ваш совет остается актуальным!!!!))

Сообщение от Аноним

Есть еще одна прога для прописи числа. Ее нужно прописать: Сервис->Надстройки. Там добавить путь к файлу

Срасибо Вам огромное, прошло столько лет,а ваш совет остается актуальным))

Марат, спасибо Вам!!!! :*

Супер программа!! У меня вообще проблема по жизни, как правильно преобразить сумму прописью))). При этом затратив минимум времени. Спасибо Марат Зайнуллин!

Сообщение от Аноним

Есть еще одна прога для прописи числа. Ее нужно прописать: Сервис->Надстройки. Там добавить путь к файлу

Программка не работает

Здравствуйте! Меня тоже интересует этот вопрос, но у меня также не получилось открыть ссылку, прошу выслать на Майл

forumer, в теме уже 5 страниц сообщений. Отделите зерна от плевел: среди этой писанины есть крупицы, которые пригодятся Вам, есть ссылки.
В Excel нет встроенного инструмента типа СуммаПрописью. Но в сети есть множество разработок, которые помогают вывести сумму прописью: формульные решения (но не одной формулой!), функции пользователя, надстройки...