Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 27 След.
Почему формула не воспринимает значения из заголовка умной таблицы?
 
Получается что да
Почему формула не воспринимает значения из заголовка умной таблицы?
 
потому что заголовки возвращают текст и с числом сравнить нельзя
Код
массив попробуйте: =Продажи10[[#Заголовки];[1]:[12]]
Изменено: Тимофеев - 20.01.2022 16:25:52
Посчитать количество магазинов с продажами ниже/выше средних
 
Код
=СУММПРОИЗВ(D7:D25;E7:E25)
Посчитать количество магазинов с продажами ниже/выше средних
 
убрать E7 =СУММЕСЛИ(D6:E25;E7=1;$D$6:$D$25), а тему удалят
Изменено: Тимофеев - 20.01.2022 10:56:00
Удаление ненужных значений из массива данных
 
Для примера вспомогательный массив и дальше крутить
Код
Тэг:
=ПОИСК("#*</div";2:2;1)
Потом уже отсекать с конца </div - выдаст один нужный вариант
Охват:
=ПОИСК("*</span";2:2;1)
отсекать с конца </span - выдаст 2 варианта сжать пробелы и искать числа
Для 365:
ТЭГ:
=ПОДСТАВИТЬ(ФИЛЬТР(ТРАНСП(2:2);ЕСЛИОШИБКА(ПОИСК("#*</div";ТРАНСП(2:2);1);"")=1);"</div";"")
Охват:
=--ПОДСТАВИТЬ(ФИЛЬТР(ФИЛЬТР(ТРАНСП(2:2);ЕСЛИОШИБКА(ПОИСК("*</span";ТРАНСП(2:2);1);"")=1);
--ЕЧИСЛО(--ЛЕВБ(ФИЛЬТР(ТРАНСП(2:2);ЕСЛИОШИБКА(ПОИСК("*</span";ТРАНСП(2:2);1);"")=1);1))=1);"</span";"")
Изменено: Тимофеев - 20.01.2022 09:55:22
Удаление ненужных значений из массива данных
 
Прикрепите пример без разделения по столбцам или таков оригинал?
Изменено: Тимофеев - 20.01.2022 08:50:27
Определить сумму в зависимости от величины выплат на руки
 
Код
=ЕСЛИ(F7=0;0;(F22+ПРОСМОТР(F7;{0:42500,01:63957,01:340850,01:1717850,01};{0:-425:-4250:3400:194650}))/
ПРОСМОТР(F7;{0:42500,01:63957,01:340850,01:1717850,01};{0,88:0,8712:0,792:0,81:0,9}))
Изменено: Тимофеев - 19.01.2022 16:32:31
Как в массив букв русского алфавита добавить букву Ё.
 
Код
=СИМВОЛ(ЕСЛИОШИБКА(СТРОКА(25:56)+ЧАСТОТА(33;СТРОКА(1:32))+167;168))
Сумма пропущенных чисел
 
Как вытащить все остальные числа без 365 так только первую получается:
Код
=ИНДЕКС(СТРОКА(1:20);ПОИСКПОЗ(0;ЧАСТОТА(B1:I1;СТРОКА(1:19));0))
Изменено: Тимофеев - 18.01.2022 12:57:30
Сумма пропущенных чисел
 
Для 365/2021: получить недостающие числа
=ТРАНСП(ФИЛЬТР(ПОСЛЕД(20);ЧАСТОТА(B1:I1;ПОСЛЕД(19))<>1))
Сумма:
Код
=СУММПРОИЗВ(СТРОКА(1:20);--НЕ(ЧАСТОТА(B1:I1;СТРОКА(1:19))))
Изменено: Тимофеев - 18.01.2022 12:15:24
Решение математических буквенно-числовых ребусов в Excel, криптоарифметическая задача
 
Решение математических буквенно-числовых ребусов в Excel.
(Криптоарифметическая задача)
Код
Для удара (каникулярная задача) можно так (2Удара=Драка):
=ИНДЕКС(СТРОКА(1000:9999);
ПОИСКПОЗ(ИСТИНА;2*СТРОКА(1000:9999)=--(ПСТР(СТРОКА(1000:9999);2;1)&ПСТР(СТРОКА(1000:9999);4;1)&
ПСТР(СТРОКА(1000:9999);3;1)&A10&ПСТР(СТРОКА(1000:9999);3;1));0))

для 3 буквенных так же формирование 3-ех вспомогательных массивов, но тут попроще буквы все повторяются:
КИС: =СТРОКА(100:999)
КСИ: =ПСТР(СТРОКА(100:999);1;1)&ПСТР(СТРОКА(100:999);3;1)&ПСТР(СТРОКА(100:999);2;1)
ИСК: =ПСТР(СТРОКА(100:999);2;1)&ПСТР(СТРОКА(100:999);3;1)&ПСТР(СТРОКА(100:999);1;1)
в 3-ем ищем сумму первых 2-ух: =СТРОКА(100:999)--(ПСТР(СТРОКА(100:999);1;1)&ПСТР(СТРОКА(100:999);3;1)&ПСТР(СТРОКА(100:999);2;1))
Изменено: Тимофеев - 15.01.2022 14:10:47
Решение математических буквенно-числовых ребусов в Excel, криптоарифметическая задача
 
ИСК
Подсчет промежуточных итогов по среднему значению без учета пустых ячеек
 
Перетяните в столбцах N и O формулы
Код
=ЕСЛИ(СУММ(D4:J4)=0;"";СУММ(D4:J4))
=ЕСЛИОШИБКА(СРЗНАЧ(K4:M4);"")
Как посчитать в табеле часы, когда в ячейках цифры и символы написаны вместе?
 
Код
еще изврат
=СУММ(ЕСЛИОШИБКА(--ПСТР(C7:AG7;ПОИСК("/";C7:AG7;1)+1;100);0);ЕСЛИОШИБКА(--ПСТР(C7:AG7;1;ПОИСК("/";C7:AG7;1)-1);0);ЕСЛИОШИБКА(ЕЧИСЛО(C7:AG7)*C7:AG7;0))
Как посчитать в табеле часы, когда в ячейках цифры и символы написаны вместе?
 
Примечание: Эта функция доступна на Windows или Mac, если у вас Office 2019 или если у вас есть подписка Microsoft 365 . Если вы являетесь подписчиком Microsoft 365, убедитесь, что у вас установлена последняя версия Office
Как посчитать в табеле часы, когда в ячейках цифры и символы написаны вместе?
 
Код
=СУММ(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("/";1;C7:AG7);"/";"</i><i>")&"</i></j>";"//i[number()=.]"))
Изменено: Тимофеев - 14.01.2022 16:25:45
Извлечь из текста ИНН и КПП
 
Вдруг в наименовании ООО встретится ИНН:
Код
=ПСТР(A2;ПОИСК(СИМВОЛ(10)&"ИНН: ";A2)+6;10)
Найти числа в ячейках с числами и текстом
 
3020 меньше МРОТа поэтому норм
Извлечь из текста ИНН и КПП
 
Код
ИНН:
=ПСТР(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A2;СИМВОЛ(10);"</i><i>")&"</i></j>";"//i[4]");6;10)
КПП:
=ПСТР(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A2;СИМВОЛ(10);"</i><i>")&"</i></j>";"//i[5]");6;10)
Изменено: Тимофеев - 14.01.2022 12:10:28
Запись данных из ячеек в список VBA
 
При заполненном Заключение о годности только остальные пустые все попадает в первый столбец журнала
Запись данных из ячеек в список VBA
 
2 раза выполнить только готов в исходнике - будет перезаписывать поверх
Запись данных из ячеек в список VBA
 
все кроме годен удалить и опять сдвиг
Запись данных из ячеек в список VBA
 
DANIKOLA, а если какое то поле не заполнено то сдвиг
Изменено: Тимофеев - 13.01.2022 13:29:58
Формула сумма прописью, Доработка большой формулы
 
5012  - первая заглавная наLETу
Код
=LET(a;ЕСЛИ(A2>999999999999.99;"столько БАБЛА не бывает";ЕСЛИ(ОКРВНИЗ.МАТ(A2;1)=0;"ноль";
ВЫБОР(ЛЕВБ(ТЕКСТ(A2;"000000000000.00"))+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1)+1;;"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ЛЕВБ(ТЕКСТ(A2;"000000000000.00"))+ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))>0;"миллиард"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))=0;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");2;1))=1));"ов ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))=1;" ";"а "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)+1;;"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");6;1))>0;"миллион"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");5;1))=1;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=0));"ов ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=1;" ";"а "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)+1;;"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))>0;"тысяч"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");8;1))=1;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=0));" ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=1;"а ";"и "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");10;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");10;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)+1;;"один";"два";"три";"четыре";"пять";"шесть";"семь";"восемь";"девять");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)+1;"десять";"одиннадцать";"двенадцать";"тринадцать";"четырнадцать";"пятнадцать";"шестнадцать";"семнадцать";"восемнадцать";"девятнадцать")))
&" рубл"&ПЕРЕКЛЮЧ(--ПРАВБ(ТЕКСТ(ОКРУГЛВНИЗ(A2;0);"00");2);1;"ь ";2;"я ";3;"я ";4;"я ";21;"ь ";22;"я ";23;"я ";24;"я ";31;"ь ";32;"я ";33;"я ";34;"я ";41;"ь ";42;"я ";43;"я ";44;"я ";51;"ь ";52;"я ";53;"я ";54;"я ";61;"ь ";62;"я ";63;"я ";64;"я ";71;"ь ";72;"я ";73;"я ";74;"я ";81;"ь ";82;"я ";83;"я ";84;"я ";91;"ь ";92;"я ";93;"я ";94;"я ";"ей ")
&ПРАВБ(ТЕКСТ(A2;"00.00");2)&" копе"&ПЕРЕКЛЮЧ(--ПРАВБ(ТЕКСТ(A2;"00.00");2);1;"йка";2;"йки";3;"йки";4;"йки";21;"йка";22;"йки";23;"йки";24;"йки";31;"йка";32;"йки";33;"йки";34;"йки";41;"йка";42;"йки";43;"йки";44;"йки";51;"йка";52;"йки";53;"йки";54;"йки";61;"йка";62;"йки";63;"йки";64;"йки";71;"йка";72;"йки";73;"йки";74;"йки";81;"йка";82;"йки";83;"йки";84;"йки";91;"йка";92;"йки";93;"йки";94;"йки";"ек"));ПРОПИСН(ЛЕВБ(a;1))&ПСТР(a;2;ДЛСТР(a)-1))
Формула сумма прописью, Доработка большой формулы
 
Добавил склонения опять длинно (4966 символов)
Осталось Первая заглавная
Код
ЕСЛИ(A2>999999999999.99;"столько БАБЛА не бывает"; ЕСЛИ(ОКРВНИЗ.МАТ(A2;1)=0;"ноль";
ВЫБОР(ЛЕВБ(ТЕКСТ(A2;"000000000000.00"))+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1)+1;;"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ЛЕВБ(ТЕКСТ(A2;"000000000000.00"))+ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))>0;"миллиард"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))=0;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");2;1))=1));"ов ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))=1;" ";"а "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)+1;;"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");6;1))>0;"миллион"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");5;1))=1;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=0));"ов ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=1;" ";"а "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)+1;;"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))>0;"тысяч"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");8;1))=1;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=0));" ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=1;"а ";"и "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");10;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");10;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)+1;;"один";"два";"три";"четыре";"пять";"шесть";"семь";"восемь";"девять");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)+1;"десять";"одиннадцать";"двенадцать";"тринадцать";"четырнадцать";"пятнадцать";"шестнадцать";"семнадцать";"восемнадцать";"девятнадцать")))
&" рубл"&ПЕРЕКЛЮЧ(--ПРАВБ(ТЕКСТ(ОКРУГЛВНИЗ(A2;0);"00");2);1;"ь ";2;"я ";3;"я ";4;"я ";21;"ь ";22;"я ";23;"я ";24;"я ";31;"ь ";32;"я ";33;"я ";34;"я ";41;"ь ";42;"я ";43;"я ";44;"я ";51;"ь ";52;"я ";53;"я ";54;"я ";61;"ь ";62;"я ";63;"я ";64;"я ";71;"ь ";72;"я ";73;"я ";74;"я ";81;"ь ";82;"я ";83;"я ";84;"я ";91;"ь ";92;"я ";93;"я ";94;"я ";"ей ")
&ПРАВБ(ТЕКСТ(A2;"00.00");2)&" копе"&ПЕРЕКЛЮЧ(--ПРАВБ(ТЕКСТ(A2;"00.00");2);1;"йка";2;"йки";3;"йки";4;"йки";21;"йка";22;"йки";23;"йки";24;"йки";31;"йка";32;"йки";33;"йки";34;"йки";41;"йка";42;"йки";43;"йки";44;"йки";51;"йка";52;"йки";53;"йки";54;"йки";61;"йка";62;"йки";63;"йки";64;"йки";71;"йка";72;"йки";73;"йки";74;"йки";81;"йка";82;"йки";83;"йки";84;"йки";91;"йка";92;"йки";93;"йки";94;"йки";"ек"))
Изменено: Тимофеев - 13.01.2022 19:38:35
Формула сумма прописью, Доработка большой формулы
 
Хотелось бы реализовать эту формулу (без имен) до конца, даже если она пугающая размером.
Может Let Переключ какие-то блоки заменить подсократит
Изменено: Тимофеев - 13.01.2022 10:06:01
Формула сумма прописью, Доработка большой формулы
 
Упростил формулу до триллиарда (4262 символа)
Осталось склонение рублей и копеек допилить + Первая заглавная
И у кого есть какие предложения в упрощении кол-ва символов формулы
Надо предложить Microsoft для России кол-во значимых символов для расчетов увеличить согласно курса рубля к доллару
Код
=ЕСЛИ(A2>999999999999.99;"столько БАБЛА не бывает"; ЕСЛИ(ОКРВНИЗ.МАТ(A2;1)=0;"ноль";
ВЫБОР(ЛЕВБ(ТЕКСТ(A2;"000000000000.00"))+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1)+1;;"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ЛЕВБ(ТЕКСТ(A2;"000000000000.00"))+ПСТР(ТЕКСТ(A2;"000000000000.00");2;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))>0;"миллиард"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))=0;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");2;1))=1));"ов ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");3;1))=1;" ";"а "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)+1;;"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");4;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");5;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");6;1))>0;"миллион"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");5;1))=1;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");6;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=0));"ов ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=1;" ";"а "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)+1;;"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))&ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");7;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");8;1)+ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))>0;"тысяч"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000000.00");8;1))=1;(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=0));" ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000000.00");9;1))=1;"а ";"и "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");10;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");10;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)=0;--ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)=0);"";""))&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000000.00");11;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)+1;;"один";"два";"три";"четыре";"пять";"шесть";"семь";"восемь";"девять");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000000.00");12;1)+1;"десять";"одиннадцать";"двенадцать";"тринадцать";"четырнадцать";"пятнадцать";"шестнадцать";"семнадцать";"восемнадцать";"девятнадцать")))
&" руб. "&ПРАВБ(ТЕКСТ(A2;"00.00");2)&" коп.")

Изменено: Тимофеев - 13.01.2022 19:38:04
Формула сумма прописью, Доработка большой формулы
 
Может у кого есть время/желание/необходимые знания добавить склонение рублей и копеек и увеличить до 999 999 999 999.99
Формула работает до 999 999 999.99 без склонения рублей и копеек (2986 символов)
Системный разделитель "."
Код
=ЕСЛИ(A2>999999999.99;"слишком большое число"; ЕСЛИ(ОКРВНИЗ.МАТ(A2;1)=0;"ноль";
ВЫБОР(ЛЕВБ(ТЕКСТ(A2;"000000000.00"))+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");2;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");2;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");3;1)+1;;"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");
ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");3;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))
&ЕСЛИ((--ЛЕВБ(ТЕКСТ(A2;"000000000.00"))+ПСТР(ТЕКСТ(A2;"000000000.00");2;1)+ПСТР(ТЕКСТ(A2;"000000000.00");3;1))>0;"миллион"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000.00");3;1))=0;(--(ПСТР(ТЕКСТ(A2;"000000000.00");3;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000.00");2;1))=1));"ов ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000.00");3;1))=1;" ";"а "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");4;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");4;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000.00");5;1)=0;--ПСТР(ТЕКСТ(A2;"000000000.00");6;1)=0);"";""))
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");5;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");5;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");6;1)+1;;"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять ");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");6;1)+1;"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "))
&ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000.00");4;1)+ПСТР(ТЕКСТ(A2;"000000000.00");5;1)+ПСТР(ТЕКСТ(A2;"000000000.00");6;1))>0;"тысяч"&ЕСЛИ(ИЛИ(--(ПСТР(ТЕКСТ(A2;"000000000.00");5;1))=1;(--(ПСТР(ТЕКСТ(A2;"000000000.00");6;1))>4);(--(ПСТР(ТЕКСТ(A2;"000000000.00");6;1))=0));" ";ЕСЛИ((--ПСТР(ТЕКСТ(A2;"000000000.00");6;1))=1;"а ";"и "));"")
&ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");7;1)+1;;"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");7;1)=0;;ЕСЛИ(И(--ПСТР(ТЕКСТ(A2;"000000000.00");8;1)=0;--ПСТР(ТЕКСТ(A2;"000000000.00");9;1)=0);"";""))&
ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");8;1)+1;;;"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")
&ЕСЛИ(--ПСТР(ТЕКСТ(A2;"000000000.00");8;1)<>1;ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");9;1)+1;;"один";"два";"три";"четыре";"пять";"шесть";"семь";"восемь";"девять");ВЫБОР(ПСТР(ТЕКСТ(A2;"000000000.00");9;1)+1;"десять";"одинадцать";"двенадцать";"тринадцать";"четырнадцать";"пятнадцать";"шестнадцать";"семнадцать";"восемнадцать";"девятнадцать")))&" руб. "&ПРАВБ(ТЕКСТ(A2;"00.00");2)&" коп.")
Изменено: Тимофеев - 13.01.2022 19:37:53
УФ (Условное Форматирование). Повторяющиеся значения. Ложное срабатывание при значениях, похожих на даты, CF (Conditional Formatting).Format only Unique or Duplicate values. Fake Match when Values looks like Dates
 
Microsoft должно писать об этом на мой взгляд - и они нигде об этом не предупреждают
Перо Эксель. Замена содержимого ячейки
 
Рукописный рукописный Excel (microsoft.com)
VBA рекордер тоже данные причуды не видит
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 27 След.
Наверх