выделить из текста цифры

[And_rey]

Доброго времени суток, есть такая функция

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

Function ТолькоЦифры(MyCell As Range)
Dim i As Integer
    For i = 1 To Len(MyCell)
        If IsNumeric(Mid(MyCell, i, 1)) Then
            ТолькоЦифры = ТолькоЦифры + (Mid(MyCell, i, 1))
        End If
    Next
End Function
Если в переменной MyCell текст с десятичным числом например "сумма5,5рублей" то в итоге возврящается число 55 а на 5,5. Помогите исправить. Заранее спасибо.

[sv2015]

добрый вечер,вариант функции uuu в C1

 

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

Function uuu#(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+,\d+"
    uuu = .Execute(t)(0)
End With
End Function

[sv2015]

And_rey,используйте свой вариант так

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

Function толькоцифры1(MyCell As Range)
      Dim i As Integer
    For i = 1 To Len(MyCell)
        If IsNumeric(Mid(MyCell, i, 1)) Or Mid(MyCell, i, 1) = "," Then
            толькоцифры1 = толькоцифры1 + (Mid(MyCell, i, 1))
        End If
    Next
End Function

[And_rey]

Спасибо, помогло