فصل الأسماء كل اسم على حدا (بما فيها الأسماء المركبة)

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

أختي الفاضلة ارفقي ملف به أمثلة متنوعة لدراسة الموقف وتحديد كيف يمكن التعامل مع الأسماء بهذا الشكل ..هل الأسماء المسجلة لديكي بنفس النمط أم أن هناك اختلاف في نمط كتابة الأسماء

أفضل ملف مرفق به أمثلة متنوعة وبعض النتائج المتوقعة

[محمد حسن المحمد]

 

الأخت الفاضلة سامية

أهلا بك في المنتدى ومرحبا بين إخوانك

يرجى تغيير اسم الظهور للغة العربية

 

إليك الملف التالي عله يفي بالغرض ...

 

الملف يتعامل بدالة معرفة يمكن من خلالها فصل الاسم بما في ذلك الأسماء المركبة ..

Function kh_Names(FullName As String, ParamArray iNdex1()) As String
Dim i As Integer
Dim kh_Split, MyArray, Ar
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 Ar In MyArray
        Re = Replace(Ar, " ", "^")
        Sn = Replace(Sn, Ar, 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

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

 

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

[Mostafa Mwafick]

=LEFT(TRIM(a1),FIND(” “,TRIM(a1),1)-1)