Excel. Уволят - не уволят?
Не так давно устроился на новую работу и кто-то рассказал начальству, что я офигенски владею программами word, excel и тд. На все мои жалкие попытки блеянья, что я в них немного разбираюсь, но далеко не профи, начальник дал указание до завтрашнего дня разобраться как в excelе сумму сделать прописью, иначе уволят.
Суть моего поста: ребят,помогите пожалуйста. в гугле не забанен, адекватный совет от туда был создать макрос, но что то не получилось и он постоянно выдает ошибку. может кто подскажет как лучше сделать или как исправить ошибку.
братья по свежему, не топите сильно, очень надеюсь на адекватную помощь знающих людей.
=ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);2;1)+1;ПСТР(ТЕКСТ(A1;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);1;3);"миллиард"&ВПР(ПСТР(ТЕКСТ(A1;n0);3;1)*И(ПСТР(ТЕКСТ(A1;n0);2;1)-1);мил;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);5;1)+1;ПСТР(ТЕКСТ(A1;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);4;3);"миллион"&ВПР(ПСТР(ТЕКСТ(A1;n0);6;1)*И(ПСТР(ТЕКСТ(A1;n0);5;1)-1);мил;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A1;n0);8;1)+1;ПСТР(ТЕКСТ(A1;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);7;3);ВПР(ПСТР(ТЕКСТ(A1;n0);9;1)*И(ПСТР(ТЕКСТ(A1;n0);8;1)-1);тыс;2);"")&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);10;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);11;1)+1;ПСТР(ТЕКСТ(A1;n0);12;1)+1));"z";" ")&ЕСЛИ(ОТБР(ТЕКСТ(A1;n0));"";"Ноль ")&"рубл"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;n0);11;2)-11;100);9);10);{0;"ь ":1;"я ":4;"ей "};2)&ПРАВСИМВ(ТЕКСТ(A1;n0);2)&" копе"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;n0);2)-11;100);9);10);{0;"йка":1;"йки":4;"ек"};2)
Особенности:
1. Без макросов. Пропись реализована формулой с использованием имен.
2. Не привязана к диапазонам, можно легко копировать/переносить, в т.ч. и в другие книги.
3. Работает до 999 млрд. руб.
4. Делает первую букву прописной, остальные строчные.
5. Правильно округляет до целых копеек, даже если копейки дробные.
6. Изменяет окончание в слове "копейка" в соответствии с правилами русского языка, а не просто "коп.".
7. Формула менее 1000 знаков, и спокойно редактируется в 2003 Excel.
Пример: Восемьсот двадцать пять миллиардов пятьсот семьдесят один миллион восемнадцать тысяч четыреста шестнадцать рублей 38 копеек
ИСТОЧНИК: http://www.excelworld.ru/forum/3-9902-1