استخراج الأرقام من النصوص في الأكسيل Excel

استخراج الأرقام من النصوص في الأكسيل

الوظيفة التي سيتم استخدامها

 Function DigitsOnly(s As String) As String
    Dim retval As String  
    Dim i As Integer    
    retval = ""
    For i = 1 To Len(s)
        If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then
            retval = retval + Mid(s, i, 1)
        End If
    Next
    DigitsOnly = retval
End Function

 

يرجى استخدمها كما في الشرح