Поиск ряда определенных символов

[sboy]

значение в ячейке должно точно соответствовать искомой подстроке

это определяется параметром поиска, можно изменить на поиск части

Код (vb) Выделить Развернуть

lookat:=xlWhole
lookat:=xlPart

вместо четверки, и понял, что нужно передать ее в параметрах функции. А как?

вместо четверки и напишите какой столбец нужен. Или он не известен заранее?

а что делает функция, если в ячейке несколько возможных вариантов?

перебирает и соединяет все

в 2016 Ексель нашел Кузнецову, а в 2013 - не нашел.

тут не подскажу, т.к. работаю только на 2010, нет возможности проверить. В 2010 тоже не находит (из-за пробела)

[Nurbol]

это определяется параметром поиска, можно изменить на поиск части

понятно, будем пробовать

вместо четверки и напишите какой столбец нужен. Или он не известен заранее?

Да, неизвестен. Точнее, известен, но нужно передать его в параметрах функции так как разные пользователи с разными файлами. Но здесь я попробую сам. Если не получится - тогда к вам обращусь. Пока не хочу сильно тревожить - итак хорошо помогли, чтобы отвлекать на такие мелочи.

перебирает и соединяет все

А вот это интересно. Есть возможность, как-то их в массив, что ли, собирать, а выдавать по индексу, который передается вместе с параметрами функции?

тут не подскажу, т.к. работаю только на 2010, нет возможности проверить. В 2010 тоже не находит (из-за пробела)

Ладно, будем экспериментировать. Может "lookat:=xlPart" поможет.

Код (vb) Выделить Развернуть

lookat:=xlPart


Спасибо огромное.

[Nurbol]

В общем, решил выложить полный код, который в результате получился у меня.
Кому-то в помощь, а кто-то может критику подаст.
Всему буду рад.

Код (vb) Выделить Развернуть


Function BNBFinder(NaznacheniePlatezha As String, ListBazyPoiska As String, StolbecFIO As Integer, StolbecDBZ As Integer) As String
    '
    '
    '
    'NaznacheniePlatezha - ячейка Назначение платежа из банковской выписки текст которой будет анализироваться
    'ListBazyPoiska - Название листа, в котором находятся все разнородные данные из базы и откуда будет производиться поиск
    'StolbecFIO - номер столбца, содержащий ФИО должника, которого требуется определить
    'StolbecDBZ - номер столбца, содержащий ДБЗ должника, которого требуется определить
    '
    '
    '
   
    Dim SheetNumber As Integer
    Dim t As String
    Dim nurbol As String
    Dim x As Integer
    Dim r
    Dim s
    s = ""
   
    SheetNumber = Worksheets(ListBazyPoiska).Index
    t = NaznacheniePlatezha
    t = Replace(NaznacheniePlatezha, Chr(10), "") 'удаляем переносы строк
   
    With CreateObject("VBscript.RegExp")
        .Global = True
        .Pattern = "(FV)?[-#0-9?/]{6,}"
        If .test(t) Then
            For x = 0 To .Execute(t).Count - 1
                Set r = Sheets(SheetNumber).UsedRange.Find(.Execute(t)(x), lookat:=xlWhole)  'xlPart)   'xlWhole)
                    If Not r Is Nothing Then
                        s = s + "ФИО: " & Sheets(SheetNumber).Cells(r.Row, StolbecFIO) & Chr(10) & "ДБЗ: " & Sheets(SheetNumber).Cells(r.Row, StolbecDBZ) & Chr(10)
                    End If
            Next x
             
            If Len(s) > 0 Then
                nurbol = Left(s, Len(s) - 1)
            Else: nurbol = ""
            End If
        End If
    End With
    BNBFinder = nurbol
End Function


[Nurbol]

Только пока не разобрался, как работать с шаблонами

Код (vb) Выделить Развернуть

.Pattern = "(FV)?[-#0-9?/]{6,}" 

Может дадите направление, где лучше всего почитать, что-то толком не могу сориентироваться

[sboy]

ищите в интернете по запросу "Регулярные выражения", RegExp
для тренировки использую сайт