Суммы и числа прописью
Xoce
Дата: Вторник, 03.03.2015, 13:52 |
Сообщение № 81
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Ай спасибо! Фунциклирует.
Ай спасибо! Фунциклирует. Xoce
Ответить
Сообщение Ай спасибо! Фунциклирует. Автор - Xoce Дата добавления - 03.03.2015 в 13:52
Alex_ST
Дата: Среда, 11.03.2015, 21:09 |
Сообщение № 82
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3237
Репутация:
631
±
Замечаний:
0% ±
2003
Упс! А куда вдруг пропали все посты с мучениями с переводом на мову формульного вычисления с дробями? Или Palamar себя плохо повёл, скатился на майданный флудо-троллинг и его посты покоцали?
Упс! А куда вдруг пропали все посты с мучениями с переводом на мову формульного вычисления с дробями? Или Palamar себя плохо повёл, скатился на майданный флудо-троллинг и его посты покоцали? Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение Упс! А куда вдруг пропали все посты с мучениями с переводом на мову формульного вычисления с дробями? Или Palamar себя плохо повёл, скатился на майданный флудо-троллинг и его посты покоцали? Автор - Alex_ST Дата добавления - 11.03.2015 в 21:09
Pelena
Дата: Среда, 11.03.2015, 21:11 |
Сообщение № 83
Группа: Админы
Ранг: Местный житель
Сообщений: 19635
Репутация:
4705
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Alex_ST
Дата: Среда, 11.03.2015, 21:16 |
Сообщение № 84
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3237
Репутация:
631
±
Замечаний:
0% ±
2003
Понял, Лена. В общем-то правильно, наверное. Здесь всё-таки "Готовые решения". Только надо было первый пост в вопросом Palamar здесь оставить, а в него добавить ссылку на новый топик с пояснением модератора сразу после переноса постов. И, главное, не забыть после решения вопроса сюда решение выложить.
Понял, Лена. В общем-то правильно, наверное. Здесь всё-таки "Готовые решения". Только надо было первый пост в вопросом Palamar здесь оставить, а в него добавить ссылку на новый топик с пояснением модератора сразу после переноса постов. И, главное, не забыть после решения вопроса сюда решение выложить. Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Среда, 11.03.2015, 21:17
Ответить
Сообщение Понял, Лена. В общем-то правильно, наверное. Здесь всё-таки "Готовые решения". Только надо было первый пост в вопросом Palamar здесь оставить, а в него добавить ссылку на новый топик с пояснением модератора сразу после переноса постов. И, главное, не забыть после решения вопроса сюда решение выложить. Автор - Alex_ST Дата добавления - 11.03.2015 в 21:16
trostya
Дата: Воскресенье, 13.09.2015, 19:49 |
Сообщение № 85
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Здравствуйте, помогите сделать!!!!! Пожалуйста нужно срочно, помогите. Нужно в ячейке B1 чтобы писало прописью на украинском число, которое в ячейке А1.
Здравствуйте, помогите сделать!!!!! Пожалуйста нужно срочно, помогите. Нужно в ячейке B1 чтобы писало прописью на украинском число, которое в ячейке А1. trostya
Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 19:52
Ответить
Сообщение Здравствуйте, помогите сделать!!!!! Пожалуйста нужно срочно, помогите. Нужно в ячейке B1 чтобы писало прописью на украинском число, которое в ячейке А1. Автор - trostya Дата добавления - 13.09.2015 в 19:49
trostya
Дата: Воскресенье, 13.09.2015, 19:51 |
Сообщение № 86
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Вот файл к предыдущему сообщению
Вот файл к предыдущему сообщению trostya
Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 19:52
Ответить
Сообщение Вот файл к предыдущему сообщению Автор - trostya Дата добавления - 13.09.2015 в 19:51
Pelena
Дата: Воскресенье, 13.09.2015, 20:31 |
Сообщение № 87
Группа: Админы
Ранг: Местный житель
Сообщений: 19635
Репутация:
4705
±
Замечаний:
±
Excel 365 & Mac Excel
trostya , Вы данную тему всю прочитали? Например, пост№81 не Ваш случай?
trostya , Вы данную тему всю прочитали? Например, пост№81 не Ваш случай?Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение trostya , Вы данную тему всю прочитали? Например, пост№81 не Ваш случай?Автор - Pelena Дата добавления - 13.09.2015 в 20:31
trostya
Дата: Воскресенье, 13.09.2015, 21:04 |
Сообщение № 88
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Я прочитал вроде все, мне нужно без макросов!!! ТАК КАК ТАМ, ТОЛЬКО БЕЗ МАКРОСОВ!!!
Я прочитал вроде все, мне нужно без макросов!!! ТАК КАК ТАМ, ТОЛЬКО БЕЗ МАКРОСОВ!!! trostya
Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 21:04
Ответить
Сообщение Я прочитал вроде все, мне нужно без макросов!!! ТАК КАК ТАМ, ТОЛЬКО БЕЗ МАКРОСОВ!!! Автор - trostya Дата добавления - 13.09.2015 в 21:04
Pelena
Дата: Воскресенье, 13.09.2015, 21:10 |
Сообщение № 89
Группа: Админы
Ранг: Местный житель
Сообщений: 19635
Репутация:
4705
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
trostya
Дата: Воскресенье, 13.09.2015, 21:16 |
Сообщение № 90
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
По этой ссылке http://www.excelworld.ru/forum/2-16309-1 второй пост, там есть на украинском, но там с рублями и копейками, а мне нужны целые числа без рублей и копеек, если можно сделайте в тот документ что я скидывал!!!!
Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 21:16
Ответить
Сообщение По этой ссылке http://www.excelworld.ru/forum/2-16309-1 второй пост, там есть на украинском, но там с рублями и копейками, а мне нужны целые числа без рублей и копеек, если можно сделайте в тот документ что я скидывал!!!! Автор - trostya Дата добавления - 13.09.2015 в 21:16
Pelena
Дата: Воскресенье, 13.09.2015, 21:18 |
Сообщение № 91
Группа: Админы
Ранг: Местный житель
Сообщений: 19635
Репутация:
4705
±
Замечаний:
±
Excel 365 & Mac Excel
А если всё-таки прочитать тему? Там таки автором выложено окончательное решение
А если всё-таки прочитать тему? Там таки автором выложено окончательное решение Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение А если всё-таки прочитать тему? Там таки автором выложено окончательное решение Автор - Pelena Дата добавления - 13.09.2015 в 21:18
trostya
Дата: Воскресенье, 13.09.2015, 21:23 |
Сообщение № 92
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Прочитал все, но там в которой исправлено там округляет дробные к целым, а у меня вводятся только целые числа, и на украинском! если можно...
Прочитал все, но там в которой исправлено там округляет дробные к целым, а у меня вводятся только целые числа, и на украинском! если можно... trostya
Ответить
Сообщение Прочитал все, но там в которой исправлено там округляет дробные к целым, а у меня вводятся только целые числа, и на украинском! если можно... Автор - trostya Дата добавления - 13.09.2015 в 21:23
trostya
Дата: Воскресенье, 13.09.2015, 21:37 |
Сообщение № 93
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Pelena , Поможешь сделать???
Ответить
Сообщение Pelena , Поможешь сделать???Автор - trostya Дата добавления - 13.09.2015 в 21:37
Pelena
Дата: Воскресенье, 13.09.2015, 21:39 |
Сообщение № 94
Группа: Админы
Ранг: Местный житель
Сообщений: 19635
Репутация:
4705
±
Замечаний:
±
Excel 365 & Mac Excel
Такое чувство, что мы про разные темы говорим. Вот здесь пример с формулой, которая работает с любыми числами, в том числе и целыми [p.s.]Не помню, чтобы мы переходили на ты[/p.s.]
Такое чувство, что мы про разные темы говорим. Вот здесь пример с формулой, которая работает с любыми числами, в том числе и целыми [p.s.]Не помню, чтобы мы переходили на ты[/p.s.] Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Такое чувство, что мы про разные темы говорим. Вот здесь пример с формулой, которая работает с любыми числами, в том числе и целыми [p.s.]Не помню, чтобы мы переходили на ты[/p.s.] Автор - Pelena Дата добавления - 13.09.2015 в 21:39
trostya
Дата: Воскресенье, 13.09.2015, 21:52 |
Сообщение № 95
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Извините за "ТЫ", ну вот вставил формулу но нечего не пишет(((((
Извините за "ТЫ", ну вот вставил формулу но нечего не пишет((((( trostya
К сообщению приложен файл:
22.xlsx
(8.2 Kb)
Ответить
Сообщение Извините за "ТЫ", ну вот вставил формулу но нечего не пишет((((( Автор - trostya Дата добавления - 13.09.2015 в 21:52
Pelena
Дата: Воскресенье, 13.09.2015, 22:14 |
Сообщение № 96
Группа: Админы
Ранг: Местный житель
Сообщений: 19635
Репутация:
4705
±
Замечаний:
±
Excel 365 & Mac Excel
Копируйте не текст формулы из строки формул, а ячейку
Копируйте не текст формулы из строки формул, а ячейку Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Копируйте не текст формулы из строки формул, а ячейку Автор - Pelena Дата добавления - 13.09.2015 в 22:14 Ответить
Сообщение Pelena , ОЧЕНЬ ОГРОМНОЕ СПАСИБО!!!!!!!! :hands: :hands: :specool: :first:Автор - trostya Дата добавления - 13.09.2015 в 22:44
Aleckx
Дата: Среда, 21.10.2015, 11:34 |
Сообщение № 98
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Формула преобразования значения в цифровом формате в сумму прописью в рублях. Все в одной ячейке с использованием матриц, ВПР и прочих формул без лишних таблиц. Ссылка на ячейку A1. Конструкция громоздкая (7703 знака), но как не странно работает. Преобразует число до 999 миллиардов. При разряде менее 0,01 проводит округление. Формат следующий: Число - 123456789123,456 Ответ - 123 456 789 123 (сто двадцать три миллиарда четыреста пятьдесят шесть миллионов семьсот восемьдесят девять тысяч сто двадцать три) рубля 46 копеек Формула: _________________________________________________________________________Код
ТЕКСТ(ОТБР(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);2)*100;100)<20;ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100);0);ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;10);0))=1;"копейка";ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100)>20;ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100);0);ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;10);0))>=5;"копеек";"копейки"))
________________________________________________________________________________________________________ гипотетически можно заменить "рубль", "рубли", "рублей" и "копейка", "копейки", "копеек" на другую ед. измерения. Занимался для того чтобы не ковыряться долго при включении сумм в тексты договорных документов. [moder]Формулы следует оформлять тегами. Кнопка fx. Исправила[/moder]
Формула преобразования значения в цифровом формате в сумму прописью в рублях. Все в одной ячейке с использованием матриц, ВПР и прочих формул без лишних таблиц. Ссылка на ячейку A1. Конструкция громоздкая (7703 знака), но как не странно работает. Преобразует число до 999 миллиардов. При разряде менее 0,01 проводит округление. Формат следующий: Число - 123456789123,456 Ответ - 123 456 789 123 (сто двадцать три миллиарда четыреста пятьдесят шесть миллионов семьсот восемьдесят девять тысяч сто двадцать три) рубля 46 копеек Формула: _________________________________________________________________________Код
ТЕКСТ(ОТБР(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);2)*100;100)<20;ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100);0);ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;10);0))=1;"копейка";ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100)>20;ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100);0);ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;10);0))>=5;"копеек";"копейки"))
________________________________________________________________________________________________________ гипотетически можно заменить "рубль", "рубли", "рублей" и "копейка", "копейки", "копеек" на другую ед. измерения. Занимался для того чтобы не ковыряться долго при включении сумм в тексты договорных документов. [moder]Формулы следует оформлять тегами. Кнопка fx. Исправила[/moder] Aleckx
Улыбайтесь. Люди любят идиотов.
Сообщение отредактировал Aleckx - Среда, 21.10.2015, 15:41
Ответить
Сообщение Формула преобразования значения в цифровом формате в сумму прописью в рублях. Все в одной ячейке с использованием матриц, ВПР и прочих формул без лишних таблиц. Ссылка на ячейку A1. Конструкция громоздкая (7703 знака), но как не странно работает. Преобразует число до 999 миллиардов. При разряде менее 0,01 проводит округление. Формат следующий: Число - 123456789123,456 Ответ - 123 456 789 123 (сто двадцать три миллиарда четыреста пятьдесят шесть миллионов семьсот восемьдесят девять тысяч сто двадцать три) рубля 46 копеек Формула: _________________________________________________________________________Код
ТЕКСТ(ОТБР(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);2)*100;100)<20;ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100);0);ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;10);0))=1;"копейка";ЕСЛИ(ЕСЛИ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100)>20;ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;100);0);ОКРУГЛ(ОСТАТ(ОКРУГЛ(ОСТАТ(A1;1);2)*100;10);0))>=5;"копеек";"копейки"))
________________________________________________________________________________________________________ гипотетически можно заменить "рубль", "рубли", "рублей" и "копейка", "копейки", "копеек" на другую ед. измерения. Занимался для того чтобы не ковыряться долго при включении сумм в тексты договорных документов. [moder]Формулы следует оформлять тегами. Кнопка fx. Исправила[/moder] Автор - Aleckx Дата добавления - 21.10.2015 в 11:34
Alex_ST
Дата: Среда, 21.10.2015, 11:56 |
Сообщение № 99
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3237
Репутация:
631
±
Замечаний:
0% ±
2003
Офигеть! Даже просто текст с таким количеством символов без ошибок набрать - дело долгое. Но в тексте опечатки легко вычитываются. А Ваша мегаформула, вставленная в Word со шрифтом Arial 12 pt, заняла ТРИ ЛИСТА А4 !!! Как и сколько лет Вы отлаживали формулу, в которой любой не верный знак препинания зачастую "сметрелен" для результата? И чем Вам не нравится формула MCH ? Тоже, конечно, "монстр", но всё-таки не 7000, а "всего" около 1000 знаков.
Офигеть! Даже просто текст с таким количеством символов без ошибок набрать - дело долгое. Но в тексте опечатки легко вычитываются. А Ваша мегаформула, вставленная в Word со шрифтом Arial 12 pt, заняла ТРИ ЛИСТА А4 !!! Как и сколько лет Вы отлаживали формулу, в которой любой не верный знак препинания зачастую "сметрелен" для результата? И чем Вам не нравится формула MCH ? Тоже, конечно, "монстр", но всё-таки не 7000, а "всего" около 1000 знаков. Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Ответить
Сообщение Офигеть! Даже просто текст с таким количеством символов без ошибок набрать - дело долгое. Но в тексте опечатки легко вычитываются. А Ваша мегаформула, вставленная в Word со шрифтом Arial 12 pt, заняла ТРИ ЛИСТА А4 !!! Как и сколько лет Вы отлаживали формулу, в которой любой не верный знак препинания зачастую "сметрелен" для результата? И чем Вам не нравится формула MCH ? Тоже, конечно, "монстр", но всё-таки не 7000, а "всего" около 1000 знаков. Автор - Alex_ST Дата добавления - 21.10.2015 в 11:56
Aleckx
Дата: Среда, 21.10.2015, 15:57 |
Сообщение № 100
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Alex_ST, художника обидеть может каждый ) "Мы академиев не кончали", а решение этой проблемы было делом принципа. А если точнее, то меня на работе уверяли, что в одну формулу подобное не уместить.
Alex_ST, художника обидеть может каждый ) "Мы академиев не кончали", а решение этой проблемы было делом принципа. А если точнее, то меня на работе уверяли, что в одну формулу подобное не уместить. Aleckx
Улыбайтесь. Люди любят идиотов.
Ответить
Сообщение Alex_ST, художника обидеть может каждый ) "Мы академиев не кончали", а решение этой проблемы было делом принципа. А если точнее, то меня на работе уверяли, что в одну формулу подобное не уместить. Автор - Aleckx Дата добавления - 21.10.2015 в 15:57