извлечь из ячейки только цифру

[johny_03]

Имеется ячейка с текстом и цифрой, которая меняется.
Как построить условие, чтобы если в ячейке с текстом находится цифра:
1, то "Готово"
2, то "Выберите одно число"
3, то "Выберите одно число"

ну и по возможности продолжение:

4, то

    Range("C5:C7").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1").Select

5, то

    Range("C5:C8").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1").Select

в коде происходит выделение определенного количества ячеек рамкой

Может кто поможет хотя бы часть.
Заранее огромное спасибо!

[doober]

Расположите этот код в Модуле листа,вбивайте данные в ячейку.Это лишь пример.отшлифуете под себя

Function W_d( s As Variant) As Integer
Dim bRes As Boolean
bRes = False
  Set RegExp = CreateObject("VBScript.RegExp")
  RegExp.Global = False
    RegExp.IgnoreCase = True
    RegExp.Pattern = "(\d{1})"
    bRes = RegExp.test(s)
        If bRes Then
            Set oMatches = RegExp.Execute(s)
            Set oMatch = oMatches(0)
    W_d = oMatch
         Exit Function
        End If
       W_d = 0
    End Function

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ps As Integer
If Target.Cells.Count = 1 Then
Ps = W_d(Target.Value)
Select Case Ps
Case 1
MsgBox "Готово"
Case 2
MsgBox "Выберите одно число"
Case 3
MsgBox "Выберите одно число"
Case 4
'Ваш страшный код
Case 5
"Еще страшнее
End Select
End If
End Sub

[johny_03]

не совсем понял как его подшлифовать под себя.
В данном случае выдает ошибку строки:

Private Sub Worksheet_Change(ByVal Target As Range)

и еще вопрос, как задать ячейку из которой он будет тянуть цифру?

[doober]

не изменится имя процедуры.больше гадать не буду
r-это заданная ячейка

Function W_d( s As Variant) As Integer
Dim bRes As Boolean
bRes = False
  Set RegExp = CreateObject("VBScript.RegExp")
  RegExp.Global = False
    RegExp.IgnoreCase = True
    RegExp.Pattern = "(\d{1})"
    bRes = RegExp.test(s)
        If bRes Then
            Set oMatches = RegExp.Execute(s)
            Set oMatch = oMatches(0)
    W_d = oMatch
         Exit Function
        End If
       W_d = 0
    End Function

Sub  Где_Пример_Файла(ByVal r As Range)
Dim Ps As Integer
Ps = W_d(r.Value)
Select Case Ps
Case 1
MsgBox "Готово"
Case 2
MsgBox "Выберите одно число"
Case 3
MsgBox "Выберите одно число"
Case 4
'Ваш страшный код
Case 5
"Еще страшнее
End Select

End Sub

[johny_03]

вот условие

[doober]

я понял.что ничего не понял.
Меняете в ячейке I5 ,контролируется I3

[johny_03]

Спасибо за ответ, doober!
Хотел упростить, но сам себя запутал. В общем ячейку I5 можно убрать. А при открытии Листа чтобы активировался ваш код, который, как я понял, пишет соответствующее сообщение исходя из того, какая цифра в ячейке I3