Результаты поиска
krosav4ig
Дата: Пятница, 01.05.2015, 01:55 |
Сообщение № 1581 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Привожу немного причёсанную и более понятную формулу 731 символ:
А у мну все равно короче (411) Код
=СЧЁТ(1/(ЗАМЕНИТЬ(ЛЕВБ(B2&",";НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(B2&",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B2)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B2)+1)));СТРОКА($1:999)));1;ПОИСК("-";ПОДСТАВИТЬ(" "&B2;" ";"-";СТРОКА($1:999)))-1;)=ТРАНСП(ЗАМЕНИТЬ(ЛЕВБ(C2&",";НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(C2&",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(C2)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(C2)+1)));СТРОКА($1:999)));1;ПОИСК("-";ПОДСТАВИТЬ(" "&C2;" ";"-";СТРОКА($1:999)))-1;))))
Привожу немного причёсанную и более понятную формулу 731 символ:
А у мну все равно короче (411) Код
=СЧЁТ(1/(ЗАМЕНИТЬ(ЛЕВБ(B2&",";НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(B2&",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B2)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B2)+1)));СТРОКА($1:999)));1;ПОИСК("-";ПОДСТАВИТЬ(" "&B2;" ";"-";СТРОКА($1:999)))-1;)=ТРАНСП(ЗАМЕНИТЬ(ЛЕВБ(C2&",";НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(C2&",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(C2)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(C2)+1)));СТРОКА($1:999)));1;ПОИСК("-";ПОДСТАВИТЬ(" "&C2;" ";"-";СТРОКА($1:999)))-1;))))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Привожу немного причёсанную и более понятную формулу 731 символ:
А у мну все равно короче (411) Код
=СЧЁТ(1/(ЗАМЕНИТЬ(ЛЕВБ(B2&",";НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(B2&",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B2)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B2)+1)));СТРОКА($1:999)));1;ПОИСК("-";ПОДСТАВИТЬ(" "&B2;" ";"-";СТРОКА($1:999)))-1;)=ТРАНСП(ЗАМЕНИТЬ(ЛЕВБ(C2&",";НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(C2&",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(C2)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(C2)+1)));СТРОКА($1:999)));1;ПОИСК("-";ПОДСТАВИТЬ(" "&C2;" ";"-";СТРОКА($1:999)))-1;))))
Автор - krosav4ig Дата добавления - 01.05.2015 в 01:55
krosav4ig
Дата: Четверг, 30.04.2015, 12:06 |
Сообщение № 1582 | Тема: Поиск одного логина в ячейке с несколькими логинами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то так Код
=1-ЕОШ(ПОИСК("CHERDANTSEVA-EV@URAL.RT.RU";C2))
как-то так Код
=1-ЕОШ(ПОИСК("CHERDANTSEVA-EV@URAL.RT.RU";C2))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как-то так Код
=1-ЕОШ(ПОИСК("CHERDANTSEVA-EV@URAL.RT.RU";C2))
Автор - krosav4ig Дата добавления - 30.04.2015 в 12:06
krosav4ig
Дата: Среда, 29.04.2015, 20:14 |
Сообщение № 1583 | Тема: разбивка данных по столбцам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то так ТЕ Код
=ЕСЛИОШИБКА(ИНДЕКС('Первичные данные'!$A$1:$A$9;НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)<>"GSD";СТРОКА('Первичные данные'!$A$1:$A$9));СТРОКА(A1)));"")
Место Код
=ЕСЛИОШИБКА(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)<>"GSD";СТРОКА('Первичные данные'!$A$1:$A$9));СТРОКА(B1));ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)="GSD";СТРОКА('Первичные данные'!$A$1:$A$9));'Первичные данные'!$A$1:$A$9);"")
как-то так ТЕ Код
=ЕСЛИОШИБКА(ИНДЕКС('Первичные данные'!$A$1:$A$9;НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)<>"GSD";СТРОКА('Первичные данные'!$A$1:$A$9));СТРОКА(A1)));"")
Место Код
=ЕСЛИОШИБКА(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)<>"GSD";СТРОКА('Первичные данные'!$A$1:$A$9));СТРОКА(B1));ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)="GSD";СТРОКА('Первичные данные'!$A$1:$A$9));'Первичные данные'!$A$1:$A$9);"")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как-то так ТЕ Код
=ЕСЛИОШИБКА(ИНДЕКС('Первичные данные'!$A$1:$A$9;НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)<>"GSD";СТРОКА('Первичные данные'!$A$1:$A$9));СТРОКА(A1)));"")
Место Код
=ЕСЛИОШИБКА(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)<>"GSD";СТРОКА('Первичные данные'!$A$1:$A$9));СТРОКА(B1));ЕСЛИ(ЛЕВБ('Первичные данные'!$A$1:$A$9;3)="GSD";СТРОКА('Первичные данные'!$A$1:$A$9));'Первичные данные'!$A$1:$A$9);"")
Автор - krosav4ig Дата добавления - 29.04.2015 в 20:14
krosav4ig
Дата: Среда, 29.04.2015, 01:05 |
Сообщение № 1584 | Тема: разбивка данных по столбцам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Можно ли прописать какую нибудь формулу?
Можно
Можно ли прописать какую нибудь формулу?
Можно krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Можно ли прописать какую нибудь формулу?
Можно Автор - krosav4ig Дата добавления - 29.04.2015 в 01:05
krosav4ig
Дата: Среда, 29.04.2015, 00:39 |
Сообщение № 1585 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[offtop]Понедельник. Вскрываемся.
чего-то вспомнилась фраза "Доживем до понедельника" К чему бы это ...[/offtop]
[offtop]Понедельник. Вскрываемся.
чего-то вспомнилась фраза "Доживем до понедельника" К чему бы это ...[/offtop] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение [offtop]Понедельник. Вскрываемся.
чего-то вспомнилась фраза "Доживем до понедельника" К чему бы это ...[/offtop] Автор - krosav4ig Дата добавления - 29.04.2015 в 00:39
krosav4ig
Дата: Вторник, 28.04.2015, 23:53 |
Сообщение № 1586 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ну раз пошла такая пляска, то вот мой вариант вне конкурса [vba]Код
Function cons&(s1$, s2$) cons = Application.IfError(Evaluate("count(1/({" & Replace(s1, " ", "") & "}={" & Replace(s2, ",", ";") & "}))"), 0) End Function
[/vba] плюс макрофункция (исходные строки должны быть не более 254 символа)Код
=ВОЗВРАТ(АРГУМЕНТ("А";2)*АРГУМЕНТ("Б";2)*СЧЁТ(1/(ВЫЧИСЛИТЬ("{"&ПОДСТАВИТЬ(А;",";":")&"}")=ВЫЧИСЛИТЬ("{"&ПОДСТАВИТЬ(Б;",";";")&"}"))))
ну раз пошла такая пляска, то вот мой вариант вне конкурса [vba]Код
Function cons&(s1$, s2$) cons = Application.IfError(Evaluate("count(1/({" & Replace(s1, " ", "") & "}={" & Replace(s2, ",", ";") & "}))"), 0) End Function
[/vba] плюс макрофункция (исходные строки должны быть не более 254 символа)Код
=ВОЗВРАТ(АРГУМЕНТ("А";2)*АРГУМЕНТ("Б";2)*СЧЁТ(1/(ВЫЧИСЛИТЬ("{"&ПОДСТАВИТЬ(А;",";":")&"}")=ВЫЧИСЛИТЬ("{"&ПОДСТАВИТЬ(Б;",";";")&"}"))))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 29.04.2015, 00:30
Ответить
Сообщение ну раз пошла такая пляска, то вот мой вариант вне конкурса [vba]Код
Function cons&(s1$, s2$) cons = Application.IfError(Evaluate("count(1/({" & Replace(s1, " ", "") & "}={" & Replace(s2, ",", ";") & "}))"), 0) End Function
[/vba] плюс макрофункция (исходные строки должны быть не более 254 символа)Код
=ВОЗВРАТ(АРГУМЕНТ("А";2)*АРГУМЕНТ("Б";2)*СЧЁТ(1/(ВЫЧИСЛИТЬ("{"&ПОДСТАВИТЬ(А;",";":")&"}")=ВЫЧИСЛИТЬ("{"&ПОДСТАВИТЬ(Б;",";";")&"}"))))
Автор - krosav4ig Дата добавления - 28.04.2015 в 23:53
krosav4ig
Дата: Понедельник, 27.04.2015, 17:37 |
Сообщение № 1587 | Тема: Палиндром
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
вне конкурса. макрофункция, учитывает все знаки препинания и пробелы (для расчета берет только русские символы) в общей сложности 200 символов с 1 "=" (в вызове функции)
вне конкурса. макрофункция, учитывает все знаки препинания и пробелы (для расчета берет только русские символы) в общей сложности 200 символов с 1 "=" (в вызове функции) krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 27.04.2015, 17:41
Ответить
Сообщение вне конкурса. макрофункция, учитывает все знаки препинания и пробелы (для расчета берет только русские символы) в общей сложности 200 символов с 1 "=" (в вызове функции) Автор - krosav4ig Дата добавления - 27.04.2015 в 17:37
krosav4ig
Дата: Понедельник, 27.04.2015, 12:18 |
Сообщение № 1588 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
пасяба
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение пасяба Автор - krosav4ig Дата добавления - 27.04.2015 в 12:18
krosav4ig
Дата: Понедельник, 27.04.2015, 11:58 |
Сообщение № 1589 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
а у мну 63 символа массивная Код
=СЧЁТ(ПОИСК(ПОВТОР("* "&СТОЛБЕЦ(A:T)&",";2);" "&B2&", "&C2&","))
и 74 символа немассивная Код
=СУММ(Ч(МУМНОЖ(-ЕОШ(ПОИСК(" "&СТРОКА($1:$20)&",";" "&B2:C2&","));{1:1})=0))
и массивная 954 891 для любого количества любых чисел Код
=СЧЁТ(1/(ПСТР(B3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));ДЛСТР(B3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(B3&",";ДЛСТР(B3)+2-СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1))))=ПСТР(C3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));ДЛСТР(C3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(C3&",";ДЛСТР(C3)+2-СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=",";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1))))))
и массивная 588 с ограничениями под условия задачи (уникальные числа от 1 до 20) Код
=СЧЁТ(1/(ПСТР(B2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70));ДЛСТР(B2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(B2&",";ДЛСТР(B2)+2-СТРОКА($1:$70);1)=",";СТРОКА($1:$70));"");СТРОКА($1:$70))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70)))=ПСТР(C2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR));ДЛСТР(C2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(C2&",";ДЛСТР(C2)+2-СТОЛБЕЦ(A:BR);1)=",";СТОЛБЕЦ(A:BR));"");СТОЛБЕЦ(A:BR))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR)))))
upd. переписал пост, перевложил файл, ошибочка вышла
а у мну 63 символа массивная Код
=СЧЁТ(ПОИСК(ПОВТОР("* "&СТОЛБЕЦ(A:T)&",";2);" "&B2&", "&C2&","))
и 74 символа немассивная Код
=СУММ(Ч(МУМНОЖ(-ЕОШ(ПОИСК(" "&СТРОКА($1:$20)&",";" "&B2:C2&","));{1:1})=0))
и массивная 954 891 для любого количества любых чисел Код
=СЧЁТ(1/(ПСТР(B3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));ДЛСТР(B3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(B3&",";ДЛСТР(B3)+2-СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1))))=ПСТР(C3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));ДЛСТР(C3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(C3&",";ДЛСТР(C3)+2-СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=",";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1))))))
и массивная 588 с ограничениями под условия задачи (уникальные числа от 1 до 20) Код
=СЧЁТ(1/(ПСТР(B2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70));ДЛСТР(B2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(B2&",";ДЛСТР(B2)+2-СТРОКА($1:$70);1)=",";СТРОКА($1:$70));"");СТРОКА($1:$70))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70)))=ПСТР(C2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR));ДЛСТР(C2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(C2&",";ДЛСТР(C2)+2-СТОЛБЕЦ(A:BR);1)=",";СТОЛБЕЦ(A:BR));"");СТОЛБЕЦ(A:BR))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR)))))
upd. переписал пост, перевложил файл, ошибочка вышла krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 27.04.2015, 12:24
Ответить
Сообщение а у мну 63 символа массивная Код
=СЧЁТ(ПОИСК(ПОВТОР("* "&СТОЛБЕЦ(A:T)&",";2);" "&B2&", "&C2&","))
и 74 символа немассивная Код
=СУММ(Ч(МУМНОЖ(-ЕОШ(ПОИСК(" "&СТРОКА($1:$20)&",";" "&B2:C2&","));{1:1})=0))
и массивная 954 891 для любого количества любых чисел Код
=СЧЁТ(1/(ПСТР(B3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));ДЛСТР(B3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(B3&",";ДЛСТР(B3)+2-СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=",";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B3;СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1));1)=" ";СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1)));СТРОКА(СМЕЩ(A$1;;;ДЛСТР(B3)+1))))=ПСТР(C3;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));ДЛСТР(C3)+2-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(C3&",";ДЛСТР(C3)+2-СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=",";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C3;СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1));1)=" ";СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1)));СТОЛБЕЦ(СМЕЩ(A$3;;;;ДЛСТР(C3)+1))))))
и массивная 588 с ограничениями под условия задачи (уникальные числа от 1 до 20) Код
=СЧЁТ(1/(ПСТР(B2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70));ДЛСТР(B2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(B2&",";ДЛСТР(B2)+2-СТРОКА($1:$70);1)=",";СТРОКА($1:$70));"");СТРОКА($1:$70))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&B2;СТРОКА($1:$70);1)=" ";СТРОКА($1:$70));СТРОКА($1:$70)))=ПСТР(C2;НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR));ДЛСТР(C2)+2-НАИБОЛЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПСТР(C2&",";ДЛСТР(C2)+2-СТОЛБЕЦ(A:BR);1)=",";СТОЛБЕЦ(A:BR));"");СТОЛБЕЦ(A:BR))-НАИМЕНЬШИЙ(ЕСЛИ(ПСТР(" "&C2;СТОЛБЕЦ(A:BR);1)=" ";СТОЛБЕЦ(A:BR));СТОЛБЕЦ(A:BR)))))
upd. переписал пост, перевложил файл, ошибочка вышла Автор - krosav4ig Дата добавления - 27.04.2015 в 11:58
krosav4ig
Дата: Понедельник, 27.04.2015, 03:04 |
Сообщение № 1590 | Тема: Как продолжить интервал?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то так
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 27.04.2015, 03:10
Ответить
Сообщение как-то так Автор - krosav4ig Дата добавления - 27.04.2015 в 03:04
krosav4ig
Дата: Понедельник, 27.04.2015, 02:35 |
Сообщение № 1591 | Тема: Как функцией заполнять указываемые диапазоны флажками
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то это неправильно... [vba]Код
Function trest(ByVal rget As Range) As Integer Application.Volatile False Dim cell As Range For Each cell In rget.Cells cell.Font.Name = "Wingdings" cell.Font.Size = 12 cell.Replace cell.Value, IIf(cell.Value = "o", "ю", "o") Next trest = 1 End Function
[/vba]
как-то это неправильно... [vba]Код
Function trest(ByVal rget As Range) As Integer Application.Volatile False Dim cell As Range For Each cell In rget.Cells cell.Font.Name = "Wingdings" cell.Font.Size = 12 cell.Replace cell.Value, IIf(cell.Value = "o", "ю", "o") Next trest = 1 End Function
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как-то это неправильно... [vba]Код
Function trest(ByVal rget As Range) As Integer Application.Volatile False Dim cell As Range For Each cell In rget.Cells cell.Font.Name = "Wingdings" cell.Font.Size = 12 cell.Replace cell.Value, IIf(cell.Value = "o", "ю", "o") Next trest = 1 End Function
[/vba] Автор - krosav4ig Дата добавления - 27.04.2015 в 02:35
krosav4ig
Дата: Воскресенье, 26.04.2015, 23:05 |
Сообщение № 1592 | Тема: Палиндром
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
А Вера рева А Лида гадила А Лида свечку чукче всадила А врет стерва Бабе плоть толпе баб Буду жив увижу дуб Гене давал Слава денег Еж колок же Косе водка как довесок Лезу на санузел А по морде ведром опа
А Вера рева А Лида гадила А Лида свечку чукче всадила А врет стерва Бабе плоть толпе баб Буду жив увижу дуб Гене давал Слава денег Еж колок же Косе водка как довесок Лезу на санузел А по морде ведром опа krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение А Вера рева А Лида гадила А Лида свечку чукче всадила А врет стерва Бабе плоть толпе баб Буду жив увижу дуб Гене давал Слава денег Еж колок же Косе водка как довесок Лезу на санузел А по морде ведром опа Автор - krosav4ig Дата добавления - 26.04.2015 в 23:05
krosav4ig
Дата: Воскресенье, 26.04.2015, 22:18 |
Сообщение № 1593 | Тема: Палиндром
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
AlexM , если протягиваться должно тока вертикально, то у мну можно убрать все $, и получиццо 92 и 58
AlexM , если протягиваться должно тока вертикально, то у мну можно убрать все $, и получиццо 92 и 58 krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение AlexM , если протягиваться должно тока вертикально, то у мну можно убрать все $, и получиццо 92 и 58 Автор - krosav4ig Дата добавления - 26.04.2015 в 22:18
krosav4ig
Дата: Воскресенье, 26.04.2015, 20:51 |
Сообщение № 1594 | Тема: Палиндром
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для любой строки с учетом пробелов - массивная формула 96 без "=" для любой строки без учета пробелов - массивная формула 62 без "="
для любой строки с учетом пробелов - массивная формула 96 без "=" для любой строки без учета пробелов - массивная формула 62 без "=" krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение для любой строки с учетом пробелов - массивная формула 96 без "=" для любой строки без учета пробелов - массивная формула 62 без "=" Автор - krosav4ig Дата добавления - 26.04.2015 в 20:51
krosav4ig
Дата: Воскресенье, 26.04.2015, 19:28 |
Сообщение № 1595 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
неа, глюк в теме, из нее исчезло 2 поста
неа, глюк в теме, из нее исчезло 2 поста krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение неа, глюк в теме, из нее исчезло 2 поста Автор - krosav4ig Дата добавления - 26.04.2015 в 19:28
krosav4ig
Дата: Пятница, 24.04.2015, 19:48 |
Сообщение № 1596 | Тема: Ход конем
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ничего своего не придумал, тока поковырялся в формуле Романа Код
=Ч(И(3-ABS(МУМНОЖ(КОДСИМВ(ЛЕВБ(A1:B1));{1:-1}))=ABS(ПРАВБ(A1)-ПРАВБ(B1));((ЛЕВБ(A1)=ЛЕВБ(B1))=(ПРАВБ(A1)=ПРАВБ(B1)))))
ничего своего не придумал, тока поковырялся в формуле Романа Код
=Ч(И(3-ABS(МУМНОЖ(КОДСИМВ(ЛЕВБ(A1:B1));{1:-1}))=ABS(ПРАВБ(A1)-ПРАВБ(B1));((ЛЕВБ(A1)=ЛЕВБ(B1))=(ПРАВБ(A1)=ПРАВБ(B1)))))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 20:01
Ответить
Сообщение ничего своего не придумал, тока поковырялся в формуле Романа Код
=Ч(И(3-ABS(МУМНОЖ(КОДСИМВ(ЛЕВБ(A1:B1));{1:-1}))=ABS(ПРАВБ(A1)-ПРАВБ(B1));((ЛЕВБ(A1)=ЛЕВБ(B1))=(ПРАВБ(A1)=ПРАВБ(B1)))))
Автор - krosav4ig Дата добавления - 24.04.2015 в 19:48
krosav4ig
Дата: Пятница, 24.04.2015, 18:30 |
Сообщение № 1597 | Тема: Красивые числа на сайте
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Зеркало
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Зеркало Автор - krosav4ig Дата добавления - 24.04.2015 в 18:30
krosav4ig
Дата: Пятница, 24.04.2015, 17:43 |
Сообщение № 1598 | Тема: Наглядное представления дроби
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
число пи можно представить как
355/113 с точностью 0,001% а (355+1%%%)/(113+10%%%) с точностью 0,000008%, правда это уже не простая дробь...
число пи можно представить как
355/113 с точностью 0,001% а (355+1%%%)/(113+10%%%) с точностью 0,000008%, правда это уже не простая дробь...krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 18:17
Ответить
Сообщение число пи можно представить как
355/113 с точностью 0,001% а (355+1%%%)/(113+10%%%) с точностью 0,000008%, правда это уже не простая дробь...Автор - krosav4ig Дата добавления - 24.04.2015 в 17:43
krosav4ig
Дата: Пятница, 24.04.2015, 16:05 |
Сообщение № 1599 | Тема: Поиск условия и копирование данных между листами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
совсем забыл, на листе Свод нужно разъединить ячейки куда пишутся ФИО (C2:N2,R2:AC2,C17:N17 и т.д.)
совсем забыл, на листе Свод нужно разъединить ячейки куда пишутся ФИО (C2:N2,R2:AC2,C17:N17 и т.д.) krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение совсем забыл, на листе Свод нужно разъединить ячейки куда пишутся ФИО (C2:N2,R2:AC2,C17:N17 и т.д.) Автор - krosav4ig Дата добавления - 24.04.2015 в 16:05
krosav4ig
Дата: Пятница, 24.04.2015, 15:55 |
Сообщение № 1600 | Тема: условие для EXP
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
diksis71 , вы попытайтесь своему преподавателю объяснить, что Ecxel не умеет работать с числами большими, чем 9,9E+307 (для сравнения e^709~8,21840746155497E+307) [p.s.]попробуйте тут ввести e^710 и посмотрите, что получится
diksis71 , вы попытайтесь своему преподавателю объяснить, что Ecxel не умеет работать с числами большими, чем 9,9E+307 (для сравнения e^709~8,21840746155497E+307) [p.s.]попробуйте тут ввести e^710 и посмотрите, что получитсяkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 16:00
Ответить
Сообщение diksis71 , вы попытайтесь своему преподавателю объяснить, что Ecxel не умеет работать с числами большими, чем 9,9E+307 (для сравнения e^709~8,21840746155497E+307) [p.s.]попробуйте тут ввести e^710 и посмотрите, что получитсяАвтор - krosav4ig Дата добавления - 24.04.2015 в 15:55