Хеч кандай кушимча дастурсиз, макроссиз («надстройка»сиз) ракамни суз билан ёзиш. Сумма с прописью на русском и на узбекском языках. (без надстроек)

Формула обращается к ячейке A1

Формула A1 катагига мурожаат килади.

Формула русча:

Формула на русском:

=ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/10^8);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^7);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1/10^6);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1/10^6);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^6);1000);"миллион"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)=1;"ов ";ВПР(ОСТАТ(ОТБР(A1/10^6);10);{0;"ов ":1;" ":2;"а ":5;"ов "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/10^5);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^4);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1/1000);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)<>1;ИНДЕКС({"";"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1/1000);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/1000);1000);"тысяч"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1/1000);10);{0;" ":1;"а ":2;"и ":5;" "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/100);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОТБР(A1)=0;"ноль ";ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1);10)+1);""))&"рубл"&ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)=1;"ей";ВПР(ОСТАТ(ОТБР(A1);10);{0;"ей":1;"ь":2;"я":5;"ей"};2))&ТЕКСТ(ОТБР((A1-ОТБР(A1)+0,00001)*100);" 00\ коп.;;")

Чтобы отобразился текст на узбекском:

Узбекча ёздириш учун:

=ИНДЕКС({"";"юз ";"иккиюз ";"уч юз ";"турт юз ";"беш юз ";"олти юз ";"етти юз ";"саккиз юз ";"туккиз юз "};ОСТАТ(ОТБР(A1/10^8);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^7);10)+1;"";ИНДЕКС({"ун ";"ун бир ";"ун икки ";"ун уч ";"ун турт ";"ун беш ";"ун олти ";"ун етти ";"ун саккиз ";"ун туккиз "};ОСТАТ(ОТБР(A1/10^6);10)+1);"йигирма ";"уттиз ";"кирк ";"эллик ";"олтмиш ";"етмиш ";"саксон ";"туксон ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)<>1;ИНДЕКС({"";"бир ";"икки ";"уч ";"турт ";"беш ";"олти ";"етти ";"саккиз ";"туккиз "};ОСТАТ(ОТБР(A1/10^6);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^6);1000);"миллион"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1/10^6);10);{0;" ":1;" ":2;" ":5;" "};2));"")&ИНДЕКС({"";"юз ";"икки юз ";"уч юз ";"турт юз ";"беш юз ";"олти юз ";"етти юз ";"саккиз юз ";"туккиз юз "};ОСТАТ(ОТБР(A1/10^5);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^4);10)+1;"";ИНДЕКС({"ун ";"ун бир ";"ун икки ";"ун уч ";"ун турт ";"ун беш ";"ун олти ";"ун етти ";"ун саккиз ";"ун туккиз "};ОСТАТ(ОТБР(A1/1000);10)+1);"йигирма ";"уттиз ";"кирк ";"эллик ";"олтмиш ";"етмиш ";"саксон ";"туксон ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)<>1;ИНДЕКС({"";"бир ";"икки ";"уч ";"турт ";"беш ";"олти ";"етти ";"саккиз ";"туккиз "};ОСТАТ(ОТБР(A1/1000);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/1000);1000);"минг"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1/1000);10);{0;" ":1;" ":2;" ":5;" "};2));"")&ИНДЕКС({"";"юз ";"икки юз ";"уч юз ";"турт юз ";"беш юз ";"олти юз ";"етти юз ";"саккиз юз ";"туккиз юз "};ОСТАТ(ОТБР(A1/100);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10);10)+1;"";ИНДЕКС({"ун ";"ун бир ";"ун икки ";"ун уч ";"ун турт ";"ун беш ";"ун олти ";"ун етти ";"ун саккиз ";"ун туккиз "};ОСТАТ(ОТБР(A1);10)+1);"йигирма ";"уттиз ";"кирк ";"эллик ";"олтмиш ";"етмиш ";"саксон ";"туксон ")&ЕСЛИ(ОТБР(A1)=0;"нол ";ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)<>1;ИНДЕКС({"";"бир ";"икки ";"уч ";"турт ";"беш ";"олти ";"етти ";"саккиз ";"туккиз "};ОСТАТ(ОТБР(A1);10)+1);""))&"сум"&ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)=1;"";ВПР(ОСТАТ(ОТБР(A1);10);{0;"":1;"":2;"":5;""};2))&ТЕКСТ(ОТБР((A1-ОТБР(A1)+0,00001)*100);" 00\ тийин ;;")

мисол:
пример-скриншот:

Таржимон: Умрбек Матрасулов.

Муаллиф (манба): http://www.excelworld.ru/board/excel/formulas/summ_in_words/3-1-0-9

Эътибор учун рахмат