Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2009, 14:17   #1
Обыватель
Пользователь
 
Регистрация: 21.01.2008
Сообщений: 98
По умолчанию Сложный критерий поиска

Здравствуйте, уважаемые специалисты!

Помогите, пожалуйста, решить следующую задачу:

При использовании функции ВПР в качестве критерия поиска использую значение ячейки, например: *вентилятор*радиальный*№ 6,3*1500*оборотов*.

В том случае, если слова находятся в другой последовательности результат поиска будет отрицательным.

Вопрос: возможно ли задать критерий поиска не завязанный на последовательности слов?

Спасибо
Обыватель вне форума Ответить с цитированием
Старый 18.12.2009, 09:09   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
возможно ли задать критерий поиска не завязанный на последовательности слов?
Возможно, если применить пользовательскую функцию. Например, такую:
Код:
Function MyВПР(Диапазон As Range, Значение As String, Cтолбец As Long) As Variant
    Dim a, i As Long, cell As Range: a = Split(Значение, "*")
    For Each cell In Intersect(Диапазон, Columns(Диапазон.Column))
        For i = LBound(a) To UBound(a)
            If Not cell Like "*" & a(i) & "*" Then GoTo M1
        Next
        MyВПР = cell.Offset(, Cтолбец - 1): Exit Function
M1: Next: MyВПР = ""
End Function
Параметры функции, а, следовательно, и синтаксис написания, такой же как в стандартной функции ВПР. Пример использования во вложении (ячейки "C3" и "C4").
Вложения
Тип файла: rar MyВПР.rar (6.7 Кб, 27 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 18.12.2009, 09:40   #3
андей
Пользователь
 
Регистрация: 27.09.2008
Сообщений: 69
По умолчанию

как вариант
Вложения
Тип файла: rar Книга1.rar (7.1 Кб, 25 просмотров)
Андрей
андей вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в функции СЧЁТЕСЛИ указать критерий в виде ссыки на ячейку? CaustiC Microsoft Office Excel 1 05.12.2008 07:16
Delphi: Сортировка строк в StringGrid, критерий - элемент ячейки Andris Помощь студентам 9 09.03.2008 23:04
Сложный грид pkv БД в Delphi 15 09.11.2007 14:08
сложный критерий в суммесли denis71 Microsoft Office Excel 2 01.02.2007 14:44