اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

أخي الكريم

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

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

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

 

أولاً قم بالضغط على 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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information