هاوي اكسل قام بنشر April 17 مشاركة قام بنشر April 17 اريد ان افصل الارقام عن الاحرف الارقام تكون في خلية لوحدها فصل الارقام عن الاحرف.xlsx رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر April 18 مشاركة قام بنشر April 18 عملت لك حل بالكود فصل الارقام عن الاحرف_01.xlsm 2 رابط هذا التعليق شارك More sharing options...
هاوي اكسل قام بنشر April 19 الكاتب مشاركة قام بنشر April 19 الله يعطيك العافية اخي الغالي لكن رفض يشتغل عندي الملف مع اني مكنت الماكرو رابط هذا التعليق شارك More sharing options...
أفضل إجابة طارق محمود قام بنشر April 19 أفضل إجابة مشاركة قام بنشر April 19 السلام عليكم مع خالص التقدير لأخونا أبو أحمد هذا حل آخر بلا أكواد فقط بالمعادلات فصل الارقام عن الاحرف.xlsx 4 رابط هذا التعليق شارك More sharing options...
هاوي اكسل قام بنشر April 19 الكاتب مشاركة قام بنشر April 19 جزاك الله خير اخي طارق رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر April 19 مشاركة قام بنشر April 19 (معدل) الدالة، تتطلب النص وترتيب الدرجة في النص 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 1 رابط هذا التعليق شارك More sharing options...
هاوي اكسل قام بنشر April 20 الكاتب مشاركة قام بنشر April 20 جزاك الله خير الجزاء يا غالي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها