وضع اسم الاب قبل الكنية

[ابو خالد التقني]

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

احتاج الى وضع اسم الاب قبل الكنية في اسم ثنائي لمجموعة كبيرة من الاسماء 

اي تحويلها من اسم ثنائي الى اسم ثلاثي 

وشكرا لكم 

وضع اسم الاب قبل الكنية.rar

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

انسخ هذه المغادلة الى الخلية C2 و اسحب نزولاً

=IF(A2<>"",MID(SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))),1,FIND("|",SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))-1)&" "&B2&" "&MID(SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))),FIND("|",SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))+1,50),"")

 

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

انسخ هذه المغادلة الى الخلية C2 و اسحب نزولاً

=IF(A2<>"",MID(SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))),1,FIND("|",SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))-1)&" "&B2&" "&MID(SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))),FIND("|",SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))+1,50),"")

او هذه للاسماء المركبة 

=IF($A2="","",MID(SUBSTITUTE(A2," ","|",IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))=1,1,2)),1,FIND("|",SUBSTITUTE(A2," ","|",IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))=1,1,2)))-1)&" "&B2&" "&MID(SUBSTITUTE(A2," ","|",IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))=1,1,2)),FIND("|",SUBSTITUTE(A2," ","|",IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))=1,1,2)))+1,20))

 

وضع اسم الاب قبل الكنية.rar

تم تعديل فبراير 21, 2016 بواسطه سليم حاصبيا

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

أخي الكريم أبو خالد

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

إليك حل بالأكواد إثراءً للموضوع

Sub Test()
    Dim I As Long, FirstName As String, FatherName As String, Str As String
    For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        FirstName = Kh_Names(Cells(I, 1), 1)
        FatherName = Cells(I, 2)
        Str = Mid(Cells(I, 1), Len(FirstName) + 1)
        Cells(I, 4).Value = FirstName & " " & FatherName & Str
    Next I
End Sub

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

تقبل تحياتي

 

[عبد العزيز البسكري]

سليم حاصبيا

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

أعطوني حرف السّين المشترك بينكما لأصبح مبدع مثلكما

بارك الله فيكما و لكما في صحّتكما و أوقاتكما و أولادكما و أسرتيْكما الكريمتيْن

باسم الله ما شاء الله تبارك الله

إبداع ما فوقه إبداع

أعمال و الله راقية

فائق إعجاباتي

 

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

أخي الحبيب عبد العزيز البسكري

هو البسكري بالسين ولا بالميم ..!! يلا شد حيلك السين موجودة وعايزين نشوف موضوعات جديدة لك ... بقالك فترة ناااااااااااااااايم في العسل (والعسل كمان فيها حرف السين)

جزاكم الله خير الجزاء على تسجيعك الدائم لأعضاء المنتدى وعلى كلماتك الرقيقة والمحببة للجميع

تقبل وافر تقديري واحترامي

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

47 دقائق مضت, ياسر خليل أبو البراء said:

أخي الحبيب عبد العزيز البسكري

هو البسكري بالسين ولا بالميم ..!! يلا شد حيلك السين موجودة وعايزين نشوف موضوعات جديدة لك ... بقالك فترة ناااااااااااااااايم في العسل (والعسل كمان فيها حرف السين)

جزاكم الله خير الجزاء على تسجيعك الدائم لأعضاء المنتدى وعلى كلماتك الرقيقة والمحببة للجميع

تقبل وافر تقديري واحترامي

لا تنسَ ايضاً حرف الياء المشترك بين الثلاثة (مرتين لكل واحد)

[ابو خالد التقني]

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

     شكرا جزيلا على المعلومة القيمة 

وانا بعتذر عن تأخري بتغيير الاسم الى العربي 

وياريت شرح كامل عن التعامل مع السلاسل النصية 

ويكرر اسفي وشكري لكم ... وفقكم الله