помогите найти формулу массива, по которой я смогу вывести из таблицы нужные мне элементы по заданной мной маске.... хотелось бы обойтись формулой, чем макросом.... хочу использовать эту формулу в разных местах книги и сколько угодно раз.... я это сделал с помощью двух формул и могу использовать только в одном месте.... С уважением к Вам и Вашему времени.... спасибо....
Public Function VLOOKUP33(Table As Range, SearchValue As Variant, Header_ As Range, ResultHeaderName As String, SearchHeaderName As String)
For j = 1 To Header_.Columns.Count
If Header_.Cells(1, j) = ResultHeaderName Then ResultColumnNum = j
If Header_.Cells(1, j) = SearchHeaderName Then SearchColumnNum = j
Next
в конце запишите
Код
VLOOKUP33 = Application.Transpose(Out)
Формула для ячейки B11 {=VLOOKUP33('поставщики контакты'!C3:K130;"*"&B9&"*";№;B8;B8)} Для D11 тоже массивная =VLOOKUP33('поставщики контакты'!C3:K130;"*"&B9&"*";№;D8;B8)
спасибо за ответ и за Ваше потраченное время, но у меня возник вопрос - что значит вставьте в начало и в конце запишите?... :-) мои познания VBA Вы понимаете... :-)
Во вложении. Там 2 листа. VLOOKUP33 - строку заголовков надо указывать отдельно. VLOOKUP44 (на втором листе) строка заголовков берется как верхняя строка выделенной всей таблицы. Как вам удобнее..
Leanna написал: VLOOKUP44 (на втором листе) строка заголовков берется как верхняя строка выделенной всей таблицы.
на листе "поиск" всё как я хотел, спасибо... единственно вопрос если я хочу эту функцию использовать на других листах мне нужно макрос вносить на них? а вот с листом "поиск2" пока не могу разобраться.... в любом случае Вы сделали то, что я просил.... за мной "цветы"... :-)
Валерий, udf в модуле книги, можете его скопировать в надстройку к тому же Plex'у например.. тогда из любой вашей книги будет доступно. Udf доступно не только на листе но и в книге.. Поиск2 отличается только тем что не надо отдельно указывать заголовок. Надо изначально с заголовком выделять таблицу. И программа считает что верхняя строка таблицы это заголовок и обрабатывает соответственно.