استخراج الأرقام من النصوص في الأكسيل 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 يرجى استخدمها كما في الشرح
