поиск числа из 10 цифр в диапазоне и вывод в msgbox

[xamillion]

Уважаемые гуру VBA!
Помогите с макросом, пожалуйста, подобного гугл не нашел, или я не так искал...
Имеем книгу Excel 2003. Нужно макросом найти число из 10 цифр в диапазоне (число должно быть всего одно) и вывести в сообщение...
Пробовал .Find.Text = "[0-9]{10}", но что-то vba ругался на все что не предлагал ему!

В примере ищем код предприятия. В итоге должны найти "7719897248" и выдать в сообщении.

[Aleksandr H.]

Не знаю можно ли через .find.text регулярку искать, но есть вариант в цикле по строках пройтись. Данные все одно же только в 1 столбце есть

Sub findSmth()
    Dim objRegExp As Object
    Dim r As Integer
    r = 1
    Do While r <= ActiveSheet.Cells(ActiveSheet.Cells.Rows.Count, 1).End(xlUp).Row
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    objRegExp.Pattern = "[0-9]{10}"
    If objRegExp.Test(Cells(r, 1)) Then MsgBox Cells(r, 1)
    r = r + 1
    Loop
End Sub

[xamillion]

Спасибо... так как искомый код в ячейке А2 упростил...

Sub findSmth()
    Dim objRegExp As Object
    Dim r As Integer
    
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    objRegExp.Pattern = "[0-9]{10}"
    If objRegExp.Test(Cells(2, 1)) Then MsgBox Cells(2, 1)
    
End Sub

Только MsgBox Cells(2, 1) выдает все содержимое ячейки, а нужен только код (эти самые 10 цифр)... до этого этапа я уже доходил, только другими методами!

[IgorGO]

Cаша, есть категория форумчан, для которых показать направление решения - это космически далеко от решить задачу!
весь набор букв, цифр и символов, который ты оформляешь в теги "код", если он строго не решает поставленную задачу - для них совершенно бесполезная последовательность знаков
xamillion, используйте этот

Sub findSmth()
    Dim objRegExp As Object
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    objRegExp.Pattern = "[0-9]{10}"
    If objRegExp.Test(Cells(2, 1)) Then MsgBox objRegExp.Execute(Cells(2, 1))(0)
End Sub

[svsh2016]

добрый вечер,вариант макроса,кнопка test

 Sub test()
    Dim z, i&: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
   With CreateObject("VBScript.RegExp"):  .Pattern = "\d{10}\,"
   For i = 1 To UBound(z)
     If .test(z(i, 1)) Then MsgBox Left(.Execute(z(i, 1))(0), 10)
   Next
   End With
End Sub

[svsh2016]

добавил еще вариант

 Sub test1()
    Dim z, i&: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
   With CreateObject("VBScript.RegExp"):  .Pattern = "\d{10}(?=,)"
   For i = 1 To UBound(z)
     If .test(z(i, 1)) Then MsgBox .Execute(z(i, 1))(0)
   Next
   End With
End Sub

[xamillion]

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

Cаша, есть категория форумчан, для которых показать направление решения - это космически далеко от решить задачу!

Ну, тут чертовски верно! Особенно если с подобным встречаешься не то чтобы редко, а в первый раз лоб в лоб, и понимание приходит позже и туго, если вообще приходит, в виду того что эта категория форумчан - простые юзеры. Это все равно, что заставить обезьяну доказать теорему Ферма! Рано или поздно она, конечно это сделает... через пару миллионов лет, как в нашем случае (по теории Дарвина)...

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

добавил еще вариант

.Pattern = "\d{10}(?=,)"

вот тут точно это выглядит как набор букв, цифр и символов, на первый взгляд непонятный!

Спасибо, я надеюсь обезьяны все-таки способны к обучению... если кого обидел, извините - это я про себя в первую очередь!

[svsh2016]

добрый день,попробуйте еще вариант,кнопка test3

Sub test3()
 Dim z, i&: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
   With CreateObject("VBScript.RegExp"): .Global = True:  .Pattern = "\d{10}(?=[^\d\b])"
   For i = UBound(z) To 1 Step -1
     If .test(z(i, 1)) Then MsgBox .Execute(z(i, 1))(0)
   Next
   End With
End Sub

[xamillion]

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

добрый день,попробуйте еще вариант,кнопка test3

ого, спасибо...
освоил еще и RegExp! А регулярные выражения - это сила!
Еще раз спасибо.

[IgorGO]

освоил еще и RegExp!

Отлично! что тут скажешь?
xamillion, а можете мне обьяснить, что значит это запись

""\d{10}(?=[^\d\b])"

и как она работает?
а точнее так:
это: \d{10} - понятно
а для чего там это: (?=[^\d\b])

спасибо!