مدونة العمل الحر

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