فصل ارقام عن حروف في خلية

[سليم حاصبيا]

استعمل هذه المعادلة لتعمل على اللغتين معاً

=IF($A3="","",IFERROR(MID(LEFT($A3,FIND(CHAR(161),$A3)-1),FIND(CHAR(58),$A3)+1,500),MID(LEFT($A3,FIND(CHAR(44),$A3)-1),FIND(CHAR(58),$A3)+1,500)))

 

[ياسر خليل أبو البراء]

أخي الكريم

لا أحب أن يتم إرفاق أكثر من ملف في موضوع واحد (راجع موضوع التوجيهات في الموضوعات المثبتة في المنتدى)

يرجى دائماً إرفاق ملف معبر عن الملف الأصلي حتى يتسنى للأعضاء تقديم الحل المناسب وحتى لا يطول الموضوع بدون داعي

إليك الحل بعد التعديل الأخير

 

أولاً قم بالضغط على Alt + F11 في محرر الأكواد

من قائمة Insert اختر الأمر Module ثم ضع الكود التالي به

Sub SplitIt()
    Dim I As Long, Arr1, Arr2, Delim
    
    Application.ScreenUpdating = False
        Arr1 = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
        For I = LBound(Arr1) To UBound(Arr1)
            Cells(I, 7) = VBA.Split(Arr1(I, 1), " : ")(1)
        Next I
        
        Arr2 = Range("G1:G" & Cells(Rows.Count, 7).End(xlUp).Row).Value
        For I = LBound(Arr2) To UBound(Arr2)
            If InStr(Arr2(I, 1), " ، ") > 0 Then Delim = " ، " Else Delim = " , "
            Cells(I, 2) = VBA.Split(Arr2(I, 1), Delim)(0)
            Cells(I, 3) = VBA.Split(Arr2(I, 1), Delim)(1)
        Next I
        
        Columns(7).ClearContents
    Application.ScreenUpdating = True
End Sub

وأخيراً اذهب لورقة العمل واضغط Alt + F8 ستجد نافذة فيها اسم الماكرو SplitIt حدد اسم الماكرو وانقر الأمر Run

لمزيد من التوضيح حول كيفية التعامل مع محرر الأكواد يرجى الإطلاع على الفهرس الموجود في توقيعي ستجد موضوع باسم "بداية الطريق لانقاذ الغريق" فيه البدايات للتعامل مع محرر الأكواد

تقبل تحياتي

[أبو أحمد]

الأساتذة الكرام / أعضاء المنتدى 

لا يسعوني إلا أن أتقدم لكم بالشكر

وكما قال الرسول الكريم صلى الله عليه وسلم " من قدم لكم معروفا فكافئوه فإن لم تجدوا  فقولوا له جزاك الله خيرا " أو كما قال الرسول صلى الله عليه وسلم 

فجزاكم الله خيرا وعفوا إن كنت قد كلفت عليكم 

[ياسر خليل أبو البراء]

وجزيت خيراً أخي الحبيب بمثل ما دعوت لنا

قم بالإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة التعامل بشكل أفضل مع المنتدى

تقبل تحياتي