Функция в Excel с помощью регулярных выражений / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция в Excel с помощью регулярных выражений

2 сообщений из 2, страница 1 из 1

Функция в Excel с помощью регулярных выражений

#39164838

Ser123

Гость

Добрый день!

Хочу сделать функцию в Excel, с помощью регулярного выражения, но не знаю как к ней подойти, вернее, не знаю как задать на поиск некий диапазон данных.

Пример: я хочу сделать функцию вида = FINDTXT( strSourse, rangeFindtxt), где

strSourse - текстовая строка в ячейке, в которой будет производится поиск
rangeFindtxt - диапозон ячеек со словами, которые необходимо найти

Это будет выглядеть так: = FINDTXT( A1, B1:B3)

№B1яблоки2груши3цветы

Я не знаю как в Pattern регулярки передать на поиск любого значения массива.

...

Рейтинг:

0 / 0

06.02.2016, 19:52

| Ответить | Цитировать | Написать

Функция в Excel с помощью регулярных выражений

#39164849

Ser123

Гость

Эх, вроде сам справился, может не совсем красиво, но вот:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

Public Function FINDTXT(data, text_find) As String

'text_find

Dim myRegExp As New RegExp


For Each Formula In text_find

With myRegExp
.MultiLine = False
.Global = False
.IgnoreCase = True
.Pattern = Formula.Value
End With

If myRegExp.Test(data) Then
Set colMatches = myRegExp.Execute(data)
FINDTXT = colMatches(0)
Exit Function
  Else
FINDTXT = "НЕТУ"
End If

Next


End Function

...

Рейтинг:

0 / 0

06.02.2016, 20:33

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция в Excel с помощью регулярных выражений

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39164849&tid=2155633]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	72ms
get topic data:	12ms
get forum data:	2ms
get page messages:	40ms
get tp. blocked users:	2ms
others:	314ms

total:	471ms