Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/ПОИСК* - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин  
Мир MS Excel » Работа и общение » Мозговой штурм » ПОИСК* (Найти похожие артикула)
ПОИСК*
Понравился вопрос
ZORRO2005 Дата: Среда, 27.03.2013, 22:48 | Сообщение № 1
Группа: Друзья
Ранг: Обитатель
Сообщений: 382
Репутация: 148 ±
Замечаний: 0% ±

Excel2010
Друзья,
иногда приходится искать похожие артикула в большом списке, и хочется вывести все результаты поиска, а не первый найденный.
Задача во вложении.
К сообщению приложен файл: 7184532.xls (29.0 Kb)
 
Ответить
СообщениеДрузья,
иногда приходится искать похожие артикула в большом списке, и хочется вывести все результаты поиска, а не первый найденный.
Задача во вложении.
Автор - ZORRO2005
Дата добавления - 27.03.2013 в 22:48
Serge_007 Дата: Среда, 27.03.2013, 23:35 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Два варианта по 93 символа
163 символа со всеми возможными проверками и скрытием значений ошибок формулой
В чём подвох?
Есть решение короче?
К сообщению приложен файл: 9438473.xls (47.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390


Сообщение отредактировал Serge_007 - Среда, 27.03.2013, 23:53
 
Ответить
СообщениеДва варианта по 93 символа
163 символа со всеми возможными проверками и скрытием значений ошибок формулой
В чём подвох?
Есть решение короче?
Автор - Serge_007
Дата добавления - 27.03.2013 в 23:35
ZORRO2005 Дата: Четверг, 28.03.2013, 14:20 | Сообщение № 3
Группа: Друзья
Ранг: Обитатель
Сообщений: 382
Репутация: 148 ±
Замечаний: 0% ±

Excel2010
Цитата (Serge_007)
В чём подвох?

А не надо искать подвоха.
 
Ответить
Сообщение
Цитата (Serge_007)
В чём подвох?

А не надо искать подвоха.
Автор - ZORRO2005
Дата добавления - 28.03.2013 в 14:20
Serge_007 Дата: Четверг, 28.03.2013, 14:37 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Я просто к тому, что задачи такого рода решаются на форумах практически ежедневно...

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЯ просто к тому, что задачи такого рода решаются на форумах практически ежедневно...
Автор - Serge_007
Дата добавления - 28.03.2013 в 14:37
ZORRO2005 Дата: Четверг, 28.03.2013, 15:11 | Сообщение № 5
Группа: Друзья
Ранг: Обитатель
Сообщений: 382
Репутация: 148 ±
Замечаний: 0% ±

Excel2010
Я на форумах не ежедневно.
 
Ответить
СообщениеЯ на форумах не ежедневно.
Автор - ZORRO2005
Дата добавления - 28.03.2013 в 15:11
Serge_007 Дата: Четверг, 28.03.2013, 15:20 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Я в курсе smile

Так сколько у тебя символов?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЯ в курсе smile

Так сколько у тебя символов?
Автор - Serge_007
Дата добавления - 28.03.2013 в 15:20
ZORRO2005 Дата: Четверг, 28.03.2013, 17:03 | Сообщение № 7
Группа: Друзья
Ранг: Обитатель
Сообщений: 382
Репутация: 148 ±
Замечаний: 0% ±

Excel2010
Цитата (Serge_007)
Так сколько у тебя символов?

98
 
Ответить
Сообщение
Цитата (Serge_007)
Так сколько у тебя символов?

98
Автор - ZORRO2005
Дата добавления - 28.03.2013 в 17:03
Serge_007 Дата: Четверг, 28.03.2013, 17:10 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Это
Цитата (Serge_007)
со всеми возможными проверками и скрытием значений ошибок формулой
?

Без УФ и форматов ячеек?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЭто
Цитата (Serge_007)
со всеми возможными проверками и скрытием значений ошибок формулой
?

Без УФ и форматов ячеек?
Автор - Serge_007
Дата добавления - 28.03.2013 в 17:10
ZORRO2005 Дата: Четверг, 28.03.2013, 17:14 | Сообщение № 9
Группа: Друзья
Ранг: Обитатель
Сообщений: 382
Репутация: 148 ±
Замечаний: 0% ±

Excel2010
Со всеми проверками 159(2 варианта).
 
Ответить
СообщениеСо всеми проверками 159(2 варианта).
Автор - ZORRO2005
Дата добавления - 28.03.2013 в 17:14
Serge_007 Дата: Четверг, 28.03.2013, 17:18 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
На четыре символа думаю и мою формулу можно сократить smile
Кстати у меня тоже несколько вариантов

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНа четыре символа думаю и мою формулу можно сократить smile
Кстати у меня тоже несколько вариантов
Автор - Serge_007
Дата добавления - 28.03.2013 в 17:18
MCH Дата: Четверг, 28.03.2013, 18:43 | Сообщение № 11
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

91/153
Думаю, что можно вскрываться, т.к. задача не особо сложная
 
Ответить
Сообщение91/153
Думаю, что можно вскрываться, т.к. задача не особо сложная
Автор - MCH
Дата добавления - 28.03.2013 в 18:43
Serge_007 Дата: Четверг, 28.03.2013, 22:54 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Давайте до понедельника подождём
Я удивлён что в теме так мало ответов, хотя почти все кто могли принять участие в теме, были на форуме сегодня...
Кроме того у меня вроде как складывается пока нечётко обозначенный алгоритм, который возможно укоротит формулу
Надо его обдумать

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеДавайте до понедельника подождём
Я удивлён что в теме так мало ответов, хотя почти все кто могли принять участие в теме, были на форуме сегодня...
Кроме того у меня вроде как складывается пока нечётко обозначенный алгоритм, который возможно укоротит формулу
Надо его обдумать
Автор - Serge_007
Дата добавления - 28.03.2013 в 22:54
LightZ Дата: Четверг, 28.03.2013, 23:02 | Сообщение № 13
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

Массивная UDF вне конкурса smile
[vba]
Код
Function io(x As Range, rng As Range)
     Dim temp As Range, arr(), c&
     ReDim arr(1 To rng.Cells.Count)
     Application.Volatile
     For Each temp In rng.Cells
         If temp.Value Like x.Value & "*" Then c = c + 1: arr(c) = temp.Value
     Next
     io = arr
End Function
[/vba]

E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
СообщениеМассивная UDF вне конкурса smile
[vba]
Код
Function io(x As Range, rng As Range)
     Dim temp As Range, arr(), c&
     ReDim arr(1 To rng.Cells.Count)
     Application.Volatile
     For Each temp In rng.Cells
         If temp.Value Like x.Value & "*" Then c = c + 1: arr(c) = temp.Value
     Next
     io = arr
End Function
[/vba]
Автор - LightZ
Дата добавления - 28.03.2013 в 23:02
Pelena Дата: Пятница, 29.03.2013, 20:33 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
У меня 95/161 156

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Сообщение отредактировал Pelena - Пятница, 29.03.2013, 21:04
 
Ответить
СообщениеУ меня 95/161 156
Автор - Pelena
Дата добавления - 29.03.2013 в 20:33
MCH Дата: Пятница, 29.03.2013, 20:58 | Сообщение № 15
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

87/146
 
Ответить
Сообщение87/146
Автор - MCH
Дата добавления - 29.03.2013 в 20:58
ZORRO2005 Дата: Суббота, 30.03.2013, 22:16 | Сообщение № 16
Группа: Друзья
Ранг: Обитатель
Сообщений: 382
Репутация: 148 ±
Замечаний: 0% ±

Excel2010
68/123


Сообщение отредактировал ZORRO2005 - Суббота, 30.03.2013, 22:45
 
Ответить
Сообщение68/123
Автор - ZORRO2005
Дата добавления - 30.03.2013 в 22:16
DV Дата: Воскресенье, 31.03.2013, 07:05 | Сообщение № 17
Группа: Друзья
Ранг: Обитатель
Сообщений: 286
Репутация: 194 ±
Замечаний: 0% ±

Excel 2010 RUS
если со звездочкой в условии в столбце D (ABC1*), то
63/113


Сообщение отредактировал DV - Воскресенье, 31.03.2013, 07:24
 
Ответить
Сообщениеесли со звездочкой в условии в столбце D (ABC1*), то
63/113
Автор - DV
Дата добавления - 31.03.2013 в 07:05
ZORRO2005 Дата: Вторник, 02.04.2013, 19:44 | Сообщение № 18
Группа: Друзья
Ранг: Обитатель
Сообщений: 382
Репутация: 148 ±
Замечаний: 0% ±

Excel2010
Предлагаю вскрываться.
Выкладываем вариант со всеми проверками без звездочек в условии.
Сергей, у тебя первого было решение, ты тогда и начинай, если не против.
 
Ответить
СообщениеПредлагаю вскрываться.
Выкладываем вариант со всеми проверками без звездочек в условии.
Сергей, у тебя первого было решение, ты тогда и начинай, если не против.
Автор - ZORRO2005
Дата добавления - 02.04.2013 в 19:44
Serge_007 Дата: Вторник, 02.04.2013, 20:31 | Сообщение № 19
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Пароль: Logist

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеПароль: Logist
Автор - Serge_007
Дата добавления - 02.04.2013 в 20:31
Pelena Дата: Вторник, 02.04.2013, 21:44 | Сообщение № 20
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата (ZORRO2005)
без звездочек в условии

А когда появилось такое ограничение?
У меня со звёздочкой
Код
=ЕСЛИ((СЧЁТЕСЛИ($B$2:$B$21;$D2&"*")<СТОЛБЕЦ(A1))+($D2="");"";ИНДЕКС($B$2:$B$21;НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ($B$2:$B$21;ДЛСТР($D2))=$D2;СТРОКА($1:$20));СТОЛБЕЦ(A1))))

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата (ZORRO2005)
без звездочек в условии

А когда появилось такое ограничение?
У меня со звёздочкой
Код
=ЕСЛИ((СЧЁТЕСЛИ($B$2:$B$21;$D2&"*")<СТОЛБЕЦ(A1))+($D2="");"";ИНДЕКС($B$2:$B$21;НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ($B$2:$B$21;ДЛСТР($D2))=$D2;СТРОКА($1:$20));СТОЛБЕЦ(A1))))
Автор - Pelena
Дата добавления - 02.04.2013 в 21:44
Мир MS Excel » Работа и общение » Мозговой штурм » ПОИСК* (Найти похожие артикула)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!