как извлечь нужный текст из строки

[mariyavaryanitsa]

А если это часть длинного кода, то как им пользоваться? просто вставить в мой код Option Explicit

Function FindDig(ByVal txt$) As Long
With CreateObject("VBScript.regexp"): .Global = True
.Pattern = "\d+(?= ?р)"
FindDig = IIf(.test(txt$), .Execute(txt$)(0), "")
End With
End Function

а потом формулу?

[Казанский]

Так можно создать объект при первом вызове функции, а при последующих вызовах сократить количество операций до минимума:

Dim re As Object

Function FindDig(ByVal txt$) As Long
    On Error GoTo erh
    FindDig = re.Execute(txt$)(0)
    Exit Function
erh:
    If Err = 91 Then 'Object variable or With block variable not set
        Set re = CreateObject("VBScript.regexp")
        re.Global = True
        re.Pattern = "\d+(?= ?р)"
        Resume
    End If
End Function

[mariyavaryanitsa]

обьясните мне пожалуйста как пользоваться им

Sub Макро1()

End Sub

Dim re As Object

Function FindDig(ByVal txt$) As Long
On Error GoTo erh
FindDig = re.Execute(txt$)(0)
Exit Function
erh:
If Err = 91 Then 'Object variable or With block variable not set
Set re = CreateObject("VBScript.regexp")
re.Global = True
re.Pattern = "\d+(?= ?р)"
Resume
End If
End Function

так?

[kuklp]

Леш, а не проще if re is nothing&? И не надо длиннющего обработчика ошибок.

Dim r As Object
Function FindDig(ByVal txt$) As Long
    If r Is Nothing Then
        Set r = CreateObject("VBScript.regexp")
        rr.Pattern = "[\d,]+(?= ?р)"
    End If
    FindDig = IIf(r.test(txt$), r.Execute(txt$)(0), "")
End Function

[Serge 007]

Сообщение от mariyavaryanitsa

Формулы не помогают.

=--ПСТР(A2;НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(A2;СТРОКА($1:$99);1)=" ";СТРОКА($1:$99));(ИЛИ(ЕЧИСЛО(НАЙТИ("р ";A2));ЕЧИСЛО(НАЙТИ(" р";A2)))+1)*1);ЕСЛИ(ЕОШ(НАЙТИ("рзолото";A2));ЕСЛИ(ЕОШ(НАЙТИ(" р";A2));НАЙТИ("р ";A2);НАЙТИ(" р";A2));ПОИСК("рзолото";A2))-НАИБОЛЬШИЙ(ЕСЛИ(ПСТР(A2;СТРОКА($1:$99);1)=" ";СТРОКА($1:$99));(ИЛИ(ЕЧИСЛО(НАЙТИ("р ";A2));ЕЧИСЛО(НАЙТИ(" р";A2)))+1)*1))

Формула массива (вводится нажатием Ctrl+Shift+Enter)

[Казанский]

Сообщение от mariyavaryanitsa

обьясните мне пожалуйста как пользоваться им

Это функция, которая получает строку и возвращает число (или 0, если не находит). Пользоваться, например, так:

Sub Макро1()
Dim a, b
a = FindDig("У Саши 10р")
b = FindDig("У Маши 20 р.")
MsgBox "Всего " & a + b
End Sub

[Казанский]

Сообщение от kuklp

Леш, а не проще if re is nothing?

Серж, я как раз хотел от этого уйти! Но главное - уйти от вызова двух методов каждый раз: .test и .Execute. Это ж почти двойная работа