powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / превращение с цифры в слова
4 сообщений из 4, страница 1 из 1
превращение с цифры в слова
    #38219910
aleksey_dannik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ексель с цифры 99,997 округляет до 100, а словами пишет 99,99. как сделать чтоб словами окрегляло до 100. ФОРМУЛА:
=ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(B5/10^8);10)+1)&ВЫБОР(ОСТАТ(ОТБР(B5/10^7);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(B5/10^6);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(B5/10^7);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(B5/10^6);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(B5/10^6);1000);"миллион"&ЕСЛИ(ОСТАТ(ОТБР(B5/10^7);10)=1;"ов ";ВПР(ОСТАТ(ОТБР(B5/10^6);10);{0;"ов ":1;" ":2;"а ":5;"ов "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(B5/10^5);10)+1)&ВЫБОР(ОСТАТ(ОТБР(B5/10^4);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(B5/1000);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(B5/10^4);10)<>1;ИНДЕКС({"";"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(B5/1000);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(B5/1000);1000);"тысяч"&ЕСЛИ(ОСТАТ(ОТБР(B5/10^4);10)=1;" ";ВПР(ОСТАТ(ОТБР(B5/1000);10);{0;" ":1;"а ":2;"и ":5;" "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(B5/100);10)+1)&ВЫБОР(ОСТАТ(ОТБР(B5/10);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(B5);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОТБР(B5)=0;"ноль ";ЕСЛИ(ОСТАТ(ОТБР(B5/10);10)<>1;ИНДЕКС({"";"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(B5);10)+1);""))&"грив"&ЕСЛИ(ОСТАТ(ОТБР(B5/10);10)=1;"ен";ВПР(ОСТАТ(ОТБР(B5);10);{0;"ен":1;"на":2;"ни":5;"ен"};2))&ТЕКСТ(ОТБР((B5-ОТБР(B5)+0,00001)*100);" 00\ коп.;;")
...
Рейтинг: 0 / 0
превращение с цифры в слова
    #38219945
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
изначальное число, которое подставляется в формулу (B5) округлить с помощью ОКРУГЛ(B5,0)
...
Рейтинг: 0 / 0
превращение с цифры в слова
    #38219954
Михаил Ч.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
aleksey_dannik,
Корректные и более короткие формульные решения есть здесь http://www.excelworld.ru/forum/3-3521-1
для правильного округления вместо ОСТАТ(ОТБР(B5/10^8);10) и т.п. лучше использовать ОСТАТ(ОТБР((B5+0,005)/10^8);10) либо ПСТР(ТЕКСТ(...) ...)
...
Рейтинг: 0 / 0
превращение с цифры в слова
    #38219964
Михаил Ч.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
тоже решение в сообщении от 15 мая 2012, 13:22
/topic/871192&pg=2
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / превращение с цифры в слова
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]