Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск в ячейке - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в ячейке (Макросы/Sub)
Поиск в ячейке
pavel456 Дата: Среда, 11.05.2016, 20:10 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
как макросом осуществить поиск в ячейке после второй цифры в ней?
 
Ответить
Сообщениекак макросом осуществить поиск в ячейке после второй цифры в ней?

Автор - pavel456
Дата добавления - 11.05.2016 в 20:10
nilem Дата: Среда, 11.05.2016, 20:22 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1191
Репутация: 436 ±
Замечаний: 0% ±

Excel 2013
типа такого, например
[vba]
Код
Sub ttt()
Dim СтрокаДляПоиска$, ИскомыйСимвол$
СтрокаДляПоиска = "ertert"
ИскомыйСимвол = "t"
MsgBox InStr(2, СтрокаДляПоиска, ИскомыйСимвол)
End Sub
[/vba]


Яндекс.Деньги 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 37 ±
Замечаний: 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]
К сообщению приложен файл: example_11_05_2.xls(34Kb)
 
Ответить
Сообщение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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2112
Репутация: 453 ±
Замечаний: 0% ±



Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКросс:
http://www.programmersforum.ru/showthread.php?t=293307

Автор - KuklP
Дата добавления - 12.05.2016 в 00:14
sv2014 Дата: Четверг, 12.05.2016, 00:21 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
pavel456,доброго времени суток, действительно, Вы разместили свой вопрос на двух форумах,я ответил дважды( у меня разные ники на разных форумах),будем ждать Вашего файл-примера.
 
Ответить
Сообщениеpavel456,доброго времени суток, действительно, Вы разместили свой вопрос на двух форумах,я ответил дважды( у меня разные ники на разных форумах),будем ждать Вашего файл-примера.

Автор - sv2014
Дата добавления - 12.05.2016 в 00:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в ячейке (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!