выделение чмсел из строки

[belikk]

Подскажите, пожалуйста, можно ли выделить число, если оно стоит среди букв? Например, если в ячейку забито "абвгд9ежз", можно ли какой-либо функцией выделить цифру девять?
Заранее спасибо!

[EducatedFool]

Выделите ячейки, и запустите макрос Test

Sub BoldingDigits(ByRef celll As Range)
    For i = 1 To celll.Characters.count
        letter = celll.Characters(start:=i, Length:=1).Text
        celll.Characters(start:=i, Length:=1).Font.Bold = IsNumeric(letter)
    Next
End Sub


Sub test()
    Dim ce As Range
    For Each ce In Selection.Cells
        BoldingDigits ce
    Next
End Sub

[belikk]

спасибо! А нельзя ли сделать так, чтобы какая-либо функция или макрос возвращали найденную цифру.То есть чтобы из "абвгд9ежз" возвращалась цифра только 9, и чтобы потом можно было построить график?

[EducatedFool]

Function GetFirstNumeric(ByVal str As String) As String ' возвращает первую цифру, содержащуюся в строке
    GetFirstNumeric = "": If Not str Like "*#*" Then Exit Function
    For i = 1 To Len(str)
        letter = Mid$(str, i, 1): If IsNumeric(letter) Then GetFirstNumeric = letter: Exit Function
    Next i
End Function
Function GetAllNumeric(ByVal str As String) As String ' возвращает ВСЕ цифры, содержащиеся в строке
    GetAllNumeric = "": If Not str Like "*#*" Then Exit Function
    For i = 1 To Len(str)
        letter = Mid$(str, i, 1): If IsNumeric(letter) Then GetAllNumeric = GetAllNumeric & letter
    Next i
End Function


Sub test2()
MsgBox GetFirstNumeric("sd345fdsf")
MsgBox GetAllNumeric("sd45fds89f4")
End Sub

Sub test3()
[a1] = "ert12ert56ert5"
[b1] = GetFirstNumeric([a1])
[c1] = GetAllNumeric([a1])
End Sub

[belikk]

Спасибо большое!!!!!!!!

[Anton Zh]

А ещё можно и так:

{=MID(A1,MATCH(0,(ISERR(MID(A1,ROW( INDIRECT("1:"&LEN(A1))),1)*1)*1),0) ,LEN(A1)-SUM((ISERR(MID(A1,ROW(INDIRECT("1:" &LEN(A1))),1)*1)*1)))}

работает в том случае, если цифры идут подряд, напр. gfweilgh873786jhdflkh