فصل الارقام عن الحروف فى اكسيل بدون معادلات
مهارات اكسيل مجموعة دروس حول برنامج إيكسل Separate letters for numbers from the same cell إستخراج الأرقام Function LetterOut(rng As Range) Dim i As Integer For i = 1 To Len(rng) Select Case Asc (Mid(rng.Value, i, 1)) Case 0 To 64, 123 To 197 LetterOut = LetterOut & Mid(rng.Value, i, 1) End Select Next i End Function إستخراج الحروف Function NumberOut(rng As Range) Dim i As Integer For i = 1 To Len(rng) Select Case Asc (Mid(rng.Value, i, 1)) Case 0 To 64, 123 To 197 Case Else NumberOut = NumberOut & _ Mid(rng.Value, i, 1) End Select Next i End Function
