Поиск в ячейке

[pavel456]

как макросом осуществить поиск в ячейке после второй цифры в ней

[IgorGO]

для этого необходимо наличие элементарных знаний VBA

[Aleksandr H.]

Function secondDigit(cel As Range)
    Dim i As Integer, c As Integer
    secondDigit = "No Data"
    For i = 1 To Len(cel)
        If IsNumeric(Mid(cel, i, 1)) Then c = c + 1
        If c = 2 Then
            secondDigit = CInt(Mid(cel, i, 1))
            Exit Function
        End If
    Next
End Function

[IgorGO]

Саша, читай вопрос:

как макросом осуществить поиск в ячейке после второй цифры в ней

нужно найти не 2-ю цифру, а нужно найти нечто после второй цифры!
поэтому в твоей функции secondDigit не хватает как минимум одного параметра "А_ЧТО_ЖЕ_ИСКАТЬ????"
понимаешь?

и если твоя функция вернет True, False, "найдено", "не найдено", "нашлось", "хрен там!" - это все будут результаты работы функция, потому что автору вопроса по-барабану что нужно вернуть!!!

если автору вопроса ОБЛОМ напрячь серое вещество под черепной коробкой чтобы сформулировать вопрос, зачем ты "паришься" отвечать на такой вопрос???

извините оба!

[Aleksandr H.]

Сообщение от IgorGO

зачем ты "паришься" отвечать на такой вопрос???

Чисто на волне хорошего настроения написал тот код...Хотя мне кажется что сначала надо было найти 2ую цифру, или это я так захотел прочитать...Вошпем...надо идти спать

[svsh2016]

добрый вечер,вариант функции vvv1 в столбце E-находит первый символ после второй цифры

 Function vvv%(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d": .Global = True
    vvv = .Execute(t)(1)
 End With
End Function

Function vvv1$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = vvv(t) & "(.)"
    vvv1 = .Execute(t)(0).Submatches(0)
 End With
End Function

[IgorGO]

svsh2016, извините
а с чего Вы взяли, что автору вопроса нужен первый символ после цифры?
зачем эти ответы на вопрос, которого нет????

[kuklp]

Кросс:
http://www.excelworld.ru/forum/10-23553-1

[svsh2016]

pavel456,доброго времени суток,приведите файл -пример,(что дано и что надо),после этого я подкорректирую свою функцию(на двух форумах),иначе я не угадаю,что
Вам надо.