Необычный "ПРОСМОТР" или "ВПР"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Необычный "ПРОСМОТР" или "ВПР"

Pulse

Дата: Суббота, 01.09.2012, 12:14 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 213

Репутация: 16 ±

Замечаний: 0% ±

2013

Формула, которая при совпадении значения в A15 с хотя бы одним словом из таблицы С15:С22, выдаёт значение из соответствующей ячейки столбца D.

К сообщению приложен файл: 7488.xls (27.0 Kb)

Ответить

Hugo

Дата: Суббота, 01.09.2012, 13:43 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

[vba]

Code

=ВПР("*"&A15&"*";C14:D22;2;0)

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Pulse

Дата: Суббота, 01.09.2012, 13:49 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 213

Репутация: 16 ±

Замечаний: 0% ±

2013

ДА!

Ответить

Pulse

Дата: Суббота, 01.09.2012, 14:10 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 213

Репутация: 16 ±

Замечаний: 0% ±

2013

А если так...
То как будет?

К сообщению приложен файл: 555.xls (26.0 Kb)

Ответить

Hugo

Дата: Суббота, 01.09.2012, 15:17 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Если так - то думаю нужно функцию пользователя (UDF) писать.
UDF принимается?
Хотя может быть спецы и стандартными функциями обойдутся? Мне проще UDF написать...

[vba]

Code

Option Explicit
Option Compare Text

Function t_in_buildings(krit As String, build As Range, temp As Range)
     Dim i&, b(), t(), flag As Boolean, el

     b = build.Value
     t = temp.Value

     For i = 1 To UBound(b)
         flag = True
         For Each el In Split(krit)
             If Not b(i, 1) Like "*" & el & "*" Then flag = False
         Next
         If flag Then t_in_buildings = t(i, 1): Exit For
     Next
End Function

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Pulse

Дата: Суббота, 01.09.2012, 15:21 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 213

Репутация: 16 ±

Замечаний: 0% ±

2013

Hugo, ого, думал просто нужно дополнить формулу, а оказалось...
UDF принимается, заодно узнаю что это такое. smile

Вы тоже спец. Вон, репутация уже сто 40. smile

Ответить

Hugo

Дата: Суббота, 01.09.2012, 15:38 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Функции определённые пользователем:
http://www.excelworld.ru/publ/funcs/udf/udf/28-1-0-77
Вот туда помещаете этот код, используете на листе как обычную функцию.
Если код поместите в PERSONAL.XLS/M, то в ячейке функцию нужно будет указывать с названием этого файла, а если в текущий файл или надстройку - то только саму функцию.
Ну в любом случае пользуйтесь мастером - не ошибётесь.