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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир 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
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
типа такого, например
[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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 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]
К сообщению приложен файл: example_11_05_2.xls (34.0 Kb)
 
Ответить
Сообщение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
Кросс:
http://www.programmersforum.ru/showthread.php?t=293307

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
pavel456,доброго времени суток, действительно, Вы разместили свой вопрос на двух форумах,я ответил дважды( у меня разные ники на разных форумах),будем ждать Вашего файл-примера.
 
Ответить
Сообщениеpavel456,доброго времени суток, действительно, Вы разместили свой вопрос на двух форумах,я ответил дважды( у меня разные ники на разных форумах),будем ждать Вашего файл-примера.
Автор - sv2014
Дата добавления - 12.05.2016 в 00:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в ячейке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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