Суммы и числа прописью
Xoce
Дата: Вторник, 03.03.2015, 13:10 |
Сообщение № 81
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Поможите кто чем может, от поезда отстал, документы украли! В ячейке, где число пропись (украинский язык) с последней двойкой косяк - вместо два пишет дві. Укажите горемычному где ошибка в коде.
Поможите кто чем может, от поезда отстал, документы украли! В ячейке, где число пропись (украинский язык) с последней двойкой косяк - вместо два пишет дві. Укажите горемычному где ошибка в коде. Xoce
К сообщению приложен файл:
123.xls
(35.0 Kb)
Ответить
Сообщение Поможите кто чем может, от поезда отстал, документы украли! В ячейке, где число пропись (украинский язык) с последней двойкой косяк - вместо два пишет дві. Укажите горемычному где ошибка в коде. Автор - Xoce Дата добавления - 03.03.2015 в 13:10
_Boroda_
Дата: Вторник, 03.03.2015, 13:24 |
Сообщение № 82
Группа: Админы
Ранг: Местный житель
Сообщений: 16706
Репутация:
6500
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
в строке поменяйте [vba]Код
Nums0 = Array("", "одна ", "двi ", "......
[/vba]
в строке поменяйте [vba]Код
Nums0 = Array("", "одна ", "двi ", "......
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение в строке поменяйте [vba]Код
Nums0 = Array("", "одна ", "двi ", "......
[/vba] Автор - _Boroda_ Дата добавления - 03.03.2015 в 13:24
Xoce
Дата: Вторник, 03.03.2015, 13:52 |
Сообщение № 83
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Ай спасибо! Фунциклирует.
Ай спасибо! Фунциклирует. Xoce
Ответить
Сообщение Ай спасибо! Фунциклирует. Автор - Xoce Дата добавления - 03.03.2015 в 13:52
Alex_ST
Дата: Среда, 11.03.2015, 21:09 |
Сообщение № 84
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация:
609
±
Замечаний:
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 |
Сообщение № 85
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация:
4549
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Alex_ST
Дата: Среда, 11.03.2015, 21:16 |
Сообщение № 86
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация:
609
±
Замечаний:
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 |
Сообщение № 87
Группа: Пользователи
Ранг: Прохожий
Сообщений: 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 |
Сообщение № 88
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Вот файл к предыдущему сообщению
Вот файл к предыдущему сообщению trostya
Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 19:52
Ответить
Сообщение Вот файл к предыдущему сообщению Автор - trostya Дата добавления - 13.09.2015 в 19:51
Pelena
Дата: Воскресенье, 13.09.2015, 20:31 |
Сообщение № 89
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация:
4549
±
Замечаний:
±
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 |
Сообщение № 90
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Я прочитал вроде все, мне нужно без макросов!!! ТАК КАК ТАМ, ТОЛЬКО БЕЗ МАКРОСОВ!!!
Я прочитал вроде все, мне нужно без макросов!!! ТАК КАК ТАМ, ТОЛЬКО БЕЗ МАКРОСОВ!!! trostya
Сообщение отредактировал trostya - Воскресенье, 13.09.2015, 21:04
Ответить
Сообщение Я прочитал вроде все, мне нужно без макросов!!! ТАК КАК ТАМ, ТОЛЬКО БЕЗ МАКРОСОВ!!! Автор - trostya Дата добавления - 13.09.2015 в 21:04
Pelena
Дата: Воскресенье, 13.09.2015, 21:10 |
Сообщение № 91
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация:
4549
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
trostya
Дата: Воскресенье, 13.09.2015, 21:16 |
Сообщение № 92
Группа: Пользователи
Ранг: Прохожий
Сообщений: 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 |
Сообщение № 93
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация:
4549
±
Замечаний:
±
Excel 365 & Mac Excel
А если всё-таки прочитать тему? Там таки автором выложено окончательное решение
А если всё-таки прочитать тему? Там таки автором выложено окончательное решение Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение А если всё-таки прочитать тему? Там таки автором выложено окончательное решение Автор - Pelena Дата добавления - 13.09.2015 в 21:18
trostya
Дата: Воскресенье, 13.09.2015, 21:23 |
Сообщение № 94
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Прочитал все, но там в которой исправлено там округляет дробные к целым, а у меня вводятся только целые числа, и на украинском! если можно...
Прочитал все, но там в которой исправлено там округляет дробные к целым, а у меня вводятся только целые числа, и на украинском! если можно... trostya
Ответить
Сообщение Прочитал все, но там в которой исправлено там округляет дробные к целым, а у меня вводятся только целые числа, и на украинском! если можно... Автор - trostya Дата добавления - 13.09.2015 в 21:23
trostya
Дата: Воскресенье, 13.09.2015, 21:37 |
Сообщение № 95
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Pelena , Поможешь сделать???
Ответить
Сообщение Pelena , Поможешь сделать???Автор - trostya Дата добавления - 13.09.2015 в 21:37
Pelena
Дата: Воскресенье, 13.09.2015, 21:39 |
Сообщение № 96
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация:
4549
±
Замечаний:
±
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 |
Сообщение № 97
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Извините за "ТЫ", ну вот вставил формулу но нечего не пишет(((((
Извините за "ТЫ", ну вот вставил формулу но нечего не пишет((((( trostya
К сообщению приложен файл:
22.xlsx
(8.2 Kb)
Ответить
Сообщение Извините за "ТЫ", ну вот вставил формулу но нечего не пишет((((( Автор - trostya Дата добавления - 13.09.2015 в 21:52
Pelena
Дата: Воскресенье, 13.09.2015, 22:14 |
Сообщение № 98
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация:
4549
±
Замечаний:
±
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 |
Сообщение № 100
Группа: Пользователи
Ранг: Прохожий
Сообщений: 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