ابو خالد التقني قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 السلام عليكم ورحمة الله وبركاته احتاج الى وضع اسم الاب قبل الكنية في اسم ثنائي لمجموعة كبيرة من الاسماء اي تحويلها من اسم ثنائي الى اسم ثلاثي وشكرا لكم وضع اسم الاب قبل الكنية.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 انسخ هذه المغادلة الى الخلية 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),"") 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 (معدل) انسخ هذه المغادلة الى الخلية 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 بواسطه سليم حاصبيا 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 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 تقبل تحياتي 3 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 سليم حاصبيا ياسر خليل أبو البراء أعطوني حرف السّين المشترك بينكما لأصبح مبدع مثلكما بارك الله فيكما و لكما في صحّتكما و أوقاتكما و أولادكما و أسرتيْكما الكريمتيْن باسم الله ما شاء الله تبارك الله إبداع ما فوقه إبداع أعمال و الله راقية فائق إعجاباتي 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 أخي الحبيب عبد العزيز البسكري هو البسكري بالسين ولا بالميم ..!! يلا شد حيلك السين موجودة وعايزين نشوف موضوعات جديدة لك ... بقالك فترة ناااااااااااااااايم في العسل (والعسل كمان فيها حرف السين) جزاكم الله خير الجزاء على تسجيعك الدائم لأعضاء المنتدى وعلى كلماتك الرقيقة والمحببة للجميع تقبل وافر تقديري واحترامي 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 47 دقائق مضت, ياسر خليل أبو البراء said: أخي الحبيب عبد العزيز البسكري هو البسكري بالسين ولا بالميم ..!! يلا شد حيلك السين موجودة وعايزين نشوف موضوعات جديدة لك ... بقالك فترة ناااااااااااااااايم في العسل (والعسل كمان فيها حرف السين) جزاكم الله خير الجزاء على تسجيعك الدائم لأعضاء المنتدى وعلى كلماتك الرقيقة والمحببة للجميع تقبل وافر تقديري واحترامي لا تنسَ ايضاً حرف الياء المشترك بين الثلاثة (مرتين لكل واحد) 2 رابط هذا التعليق شارك More sharing options...
ابو خالد التقني قام بنشر فبراير 23, 2016 الكاتب مشاركة قام بنشر فبراير 23, 2016 السلام عليكم ورحمة الله وبركاته شكرا جزيلا على المعلومة القيمة وانا بعتذر عن تأخري بتغيير الاسم الى العربي وياريت شرح كامل عن التعامل مع السلاسل النصية ويكرر اسفي وشكري لكم ... وفقكم الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان