Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция в Excel с помощью регулярных выражений / 2 сообщений из 2, страница 1 из 1
06.02.2016, 19:52
    #39164838
Ser123
Ser123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция в Excel с помощью регулярных выражений
Добрый день!

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

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

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

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


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

Я не знаю как в Pattern регулярки передать на поиск любого значения массива.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2016, 20:33
    #39164849
Ser123
Ser123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция в Excel с помощью регулярных выражений
Эх, вроде сам справился, может не совсем красиво, но вот:

Код: 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция в Excel с помощью регулярных выражений / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 108ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155633]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 24ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 12ms
total:  108ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]