فصل الاسماء المركبة

[سمير سامي]

ارجو من سيادتكم معرفة كيفية فصل الاسماء المركبة في اكسيل بطريقة المعادلات للاهمية مرفق ملف لهذه الاسماء لوجود ملف به اكثر من 2500 اسم فارجو من سيادتكم المساعدة للاهمية 

ملف تقسيم الاسماء.rar

[خالد الرشيدى]

اخى الفاضل

 

جرب الملف التالى

 

ان كان ما تريد قم بتحديدة كأفضل إجابة

 

ملف تقسيم الاسماء.rar

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

بارك الله فيك أخي وحبيبي في الله خالد الرشيدي

معادلة في منتهى الجمال والروعة

زيادة في الخير وإثراءً للموضوع أقدم لكم حل بدالة معرفة والدالة للعلامة الكبير عبد الله باقشير - غفر الله لنا وله -

Function Kh_Names(FullName As String, ParamArray Index1()) As String
    Dim I As Integer
    Dim Kh_Split, MyArray, Arr
    Dim Kh_String As String, SN As String, RE As String

    On Error GoTo Err_Kh_Names

    MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله")

    SN = Application.WorksheetFunction.Trim(FullName)
    For Each Arr In MyArray
        RE = Replace(Arr, " ", "^")
        SN = Replace(SN, Arr, RE)
    Next

    Kh_Split = Split(SN, " ", , vbTextCompare)

    On Error Resume Next
    For I = 0 To UBound(Index1)
        Kh_String = Kh_String & " " & Kh_Split(Index1(I) - 1)
    Next
    On Error GoTo 0

    Kh_String = Replace(Trim(Kh_String), "^", " ")
    Kh_Names = Kh_String

    Exit Function

Err_Kh_Names:
    Kh_Names = ""
End Function

استخدام الدالة

=Kh_Names($F2,COLUMN(A$1))

أو يمكن بهذا الشكل

=Kh_Names($F2,1)

الرقم 1 يمثل الاسم الأول .. استخدم نفس المعادلة واستبدل الرقم 1 برقم 2 لاستخراج الاسم الثاني وهكذا

تقبلوا تحياتي :fff:

Split Compound Names.rar

[خالد الرشيدى]

احبك الذى احببتنى فية استازى الحبيب   ياسر

 

     كود رائـــــــــــــــــــــــــــع

 

            -اثاب الله صاحبة بالخير -

 

 شكراً جزيلاً لحضرتك - وجزاك خيراً فقد استفدت منة الكثير

 

             خالص احترامى وتقديرى

[سمير سامي]

شكرا استاذنا / خالد الرشيدي و جزاك الله كل خير و شكرا للاستاذ / ياسر خليل ابوالبراء

المعادلة كما توقعت دائما و اكثر 

بارك الله لكم جميعا 

و اقدم لكم جميعا كل تقدير و عرفان 

تم تعديل يوليو 20, 2015 بواسطه سمير سامي