Помогите модернизировать ВПР

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Помогите модернизировать ВПР (Макросы/Sub)

Aero16

Дата: Четверг, 03.03.2016, 23:36 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

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

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

Excel 2016

Доброго времени суток!

очень понадобилось по работе немного изменить ВПР, а именно искать не точное совпадение в тексте, а вообще есть ли например такое слово в тексте ячейки, но что то не работает, если указано конкретно искомое слово, как в закомментированной строке то все ок, а если искомое значение в переменной, то выдает ошибку, подскажите пожалуйста в чем проблема

[vba]

Код

Function test(x As Variant, xy As Range, y As Integer)
Application.Volatile True
On Error GoTo err1
Dim i As Integer, j As Integer
Dim r1 As Range
Set r1 = xy

For i = 1 To r1.Rows.Count
If r1.Cells(i, 1).Value Like "*x*" Then
'If r1.Cells(i, 1).Value Like "*привет*" Then
If r1.Cells(i, y).Value <> "" Then
test = r1.Cells(i, y).Value
Else
test = ""
End If
Exit Function
End If
Next i
test = "ошибка иск значения"

Exit Function
err1:
test = "ошибка"
End Function

[/vba]