فصل الارقام عن الاحرف

[هاوي اكسل]

اريد ان افصل الارقام عن الاحرف 

الارقام تكون في خلية لوحدها

فصل الارقام عن الاحرف.xlsx

[AbuuAhmed]

عملت لك حل بالكود
 

فصل الارقام عن الاحرف_01.xlsm

[هاوي اكسل]

الله يعطيك العافية اخي الغالي

لكن رفض يشتغل عندي الملف مع اني مكنت الماكرو

[طارق محمود]

السلام عليكم
مع خالص التقدير لأخونا أبو أحمد
هذا حل آخر بلا أكواد فقط بالمعادلات

فصل الارقام عن الاحرف.xlsx

[هاوي اكسل]

جزاك الله خير اخي طارق

[AbuuAhmed]

الدالة، تتطلب النص وترتيب الدرجة في النص 1 للأول 2 للثاني:
 

Option Explicit

Function GetDeg(ByVal inText As String, DegSeq As Byte) As Variant
  Dim Pos1 As Integer, Pos2 As Integer
  Dim Deg As Variant
  
  GetDeg = ""
  If DegSeq < 1 Or DegSeq > 2 Then Exit Function
  
  Do While InStr(1, inText, "  ") > 0
     inText = Replace(inText, "  ", " ")
  Loop
  
  Pos2 = InStr(1, inText, " درج")
  If Pos2 = 0 Then Exit Function

  If DegSeq = 2 Then
    Pos2 = InStr(Pos2 + 1, inText, " درج")
    If Pos2 = 0 Then Exit Function
  End If
  
  Pos1 = InStrRev(inText, " ", Pos2 - 1)
  If Pos1 > 0 And Pos2 > 0 Then
    Deg = Mid(inText, Pos1 + 1, Pos2 - Pos1 - 1)
  End If
  
  If IsNumeric(Deg) Then GetDeg = Val(Deg)
End Function

ضفه في ملفك أو انشئ ملف جديد ووحدة نمطية جديدة والصق الشفرة/الكود

تم تعديل April 19 بواسطه AbuuAhmed

[هاوي اكسل]

جزاك الله خير الجزاء يا غالي