فصل العبارات العربية عن الإنجليزية في الاكسل

[alheyani]

السلام عليكم ورحمة الله

 

لدي ملف اكسل يوجد فيه قائمة عبارة عن حوالي 1300 مدرسة 

 

يوجد اسم المدرسة بالعربي والانجليزي في نفس العمود أنا أريد فصلها بحيث تكون في عمودين منفصلين 

 

أستخدم أوفيس 2007

 

 

شاكر لكم

[الـعيدروس]

ارفق ملف

وفيه بيانات كما في ملفك الاصلي

لتتضح الصورة وان شاء الله نتوصل الى حل

[احمد عبد الناصر]

السلام عليكم

 

مرحبا بك في المنتدي 

 

جرب هذا الملف و الافضل ارفاق ملف لتفادي الاخطاء .

 

تحياتي

 

-- معذرة استاذ عباد شاهدت مشاركتك مؤخرا

SPLT+.rar

تم تعديل سبتمبر 26, 2013 بواسطه دغيدى

[دغيدى]

أخى الكريم / أحمد عبد الناصر

تسلم الأيادى

[alheyani]

شاكر للكل على المساعدة 

 

قمت بارسال الملف للأخ عباد

[الـعيدروس]

السلام عليكم

وهذا كود اخر لإثراء الموضوع

Public Sub Extr_Ali()
    Repl
    Lr = Cells(Rows.Count, 1).End(xlUp).Row
    For R = 1 To Lr
      Cells(R, 2) = Ali_Strng(Cells(R, 1), 1)
      Cells(R, 3) = Ali_Strng(Cells(R, 1), 0)
    Next
End Sub
Private Function Ali_Strng(R As String, Bn As Boolean)
    Dim Ta() As String
    Dim S_E$, S_AR$
    Dim Ad
    Ta = Split(R, " ")
    For I = 0 To UBound(Ta)
        If Ta(I) <> "" Then
            If Asc(Mid(Ta(I), 1, 1)) < 195 Then
                S_E = S_E & Ta(I) & " "
            Else
                S_AR = S_AR & Ta(I) & " "
            End If
        End If
     Next
     If Bn Then Ad = S_AR Else Ad = S_E
     Ali_Strng = Ad
End Function
Private Function Repl()
With ActiveSheet.UsedRange.Columns(1)
    .Replace "-", "", xlPart
     .Replace "(", "", xlPart
    .Replace ")", "", xlPart
End With
End Function

[alheyani]

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

 

شاكر لكم ومقدر وأشكرك مرة أخرى أخ عباد

تم تعديل سبتمبر 27, 2013 بواسطه alheyani