Поиск в ячейке
pavel456
Дата: Среда, 11.05.2016, 20:10 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
как макросом осуществить поиск в ячейке после второй цифры в ней?
как макросом осуществить поиск в ячейке после второй цифры в ней? pavel456
Ответить
Сообщение как макросом осуществить поиск в ячейке после второй цифры в ней? Автор - pavel456 Дата добавления - 11.05.2016 в 20:10
nilem
Дата: Среда, 11.05.2016, 20:22 |
Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация:
563
±
Замечаний:
0% ±
Excel 2013, 2016
типа такого, например [vba]Код
Sub ttt() Dim СтрокаДляПоиска$, ИскомыйСимвол$ СтрокаДляПоиска = "ertert" ИскомыйСимвол = "t" MsgBox InStr(2, СтрокаДляПоиска, ИскомыйСимвол) End Sub
[/vba]
типа такого, например [vba]Код
Sub ttt() Dim СтрокаДляПоиска$, ИскомыйСимвол$ СтрокаДляПоиска = "ertert" ИскомыйСимвол = "t" MsgBox InStr(2, СтрокаДляПоиска, ИскомыйСимвол) End Sub
[/vba] nilem
Яндекс.Деньги 4100159601573
Ответить
Сообщение типа такого, например [vba]Код
Sub ttt() Dim СтрокаДляПоиска$, ИскомыйСимвол$ СтрокаДляПоиска = "ertert" ИскомыйСимвол = "t" MsgBox InStr(2, СтрокаДляПоиска, ИскомыйСимвол) End Sub
[/vba] Автор - nilem Дата добавления - 11.05.2016 в 20:22
sv2014
Дата: Среда, 11.05.2016, 22:53 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
pavel456 , добрый вечер,вариант функции,vvv1 в E1-находит первый символ после второй цифры [vba]Код
Function vvv%(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d": .Global = True vvv = .Execute(t)(1) End With End Function
[/vba] [vba]Код
Function vvv1$(t$) With CreateObject("VBScript.RegExp"): .Pattern = vvv(t) & "(.)" vvv1 = .Execute(t)(0).Submatches(0) End With End Function
[/vba]
pavel456 , добрый вечер,вариант функции,vvv1 в E1-находит первый символ после второй цифры [vba]Код
Function vvv%(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d": .Global = True vvv = .Execute(t)(1) End With End Function
[/vba] [vba]Код
Function vvv1$(t$) With CreateObject("VBScript.RegExp"): .Pattern = vvv(t) & "(.)" vvv1 = .Execute(t)(0).Submatches(0) End With End Function
[/vba]sv2014
Ответить
Сообщение pavel456 , добрый вечер,вариант функции,vvv1 в E1-находит первый символ после второй цифры [vba]Код
Function vvv%(t$) With CreateObject("VBScript.RegExp"): .Pattern = "\d": .Global = True vvv = .Execute(t)(1) End With End Function
[/vba] [vba]Код
Function vvv1$(t$) With CreateObject("VBScript.RegExp"): .Pattern = vvv(t) & "(.)" vvv1 = .Execute(t)(0).Submatches(0) End With End Function
[/vba]Автор - sv2014 Дата добавления - 11.05.2016 в 22:53
KuklP
Дата: Четверг, 12.05.2016, 00:14 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
sv2014
Дата: Четверг, 12.05.2016, 00:21 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
pavel456,доброго времени суток, действительно, Вы разместили свой вопрос на двух форумах,я ответил дважды( у меня разные ники на разных форумах),будем ждать Вашего файл-примера.
pavel456,доброго времени суток, действительно, Вы разместили свой вопрос на двух форумах,я ответил дважды( у меня разные ники на разных форумах),будем ждать Вашего файл-примера. sv2014
Ответить
Сообщение pavel456,доброго времени суток, действительно, Вы разместили свой вопрос на двух форумах,я ответил дважды( у меня разные ники на разных форумах),будем ждать Вашего файл-примера. Автор - sv2014 Дата добавления - 12.05.2016 в 00:21