سمير سامي قام بنشر يوليو 19, 2015 مشاركة قام بنشر يوليو 19, 2015 ارجو من سيادتكم معرفة كيفية فصل الاسماء المركبة في اكسيل بطريقة المعادلات للاهمية مرفق ملف لهذه الاسماء لوجود ملف به اكثر من 2500 اسم فارجو من سيادتكم المساعدة للاهمية ملف تقسيم الاسماء.rar رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر يوليو 19, 2015 مشاركة قام بنشر يوليو 19, 2015 اخى الفاضل جرب الملف التالى ان كان ما تريد قم بتحديدة كأفضل إجابة ملف تقسيم الاسماء.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 19, 2015 مشاركة قام بنشر يوليو 19, 2015 بارك الله فيك أخي وحبيبي في الله خالد الرشيدي معادلة في منتهى الجمال والروعة زيادة في الخير وإثراءً للموضوع أقدم لكم حل بدالة معرفة والدالة للعلامة الكبير عبد الله باقشير - غفر الله لنا وله - 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 3 رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر يوليو 19, 2015 مشاركة قام بنشر يوليو 19, 2015 احبك الذى احببتنى فية استازى الحبيب ياسر كود رائـــــــــــــــــــــــــــع -اثاب الله صاحبة بالخير - شكراً جزيلاً لحضرتك - وجزاك خيراً فقد استفدت منة الكثير خالص احترامى وتقديرى 2 رابط هذا التعليق شارك More sharing options...
سمير سامي قام بنشر يوليو 20, 2015 الكاتب مشاركة قام بنشر يوليو 20, 2015 (معدل) شكرا استاذنا / خالد الرشيدي و جزاك الله كل خير و شكرا للاستاذ / ياسر خليل ابوالبراء المعادلة كما توقعت دائما و اكثر بارك الله لكم جميعا و اقدم لكم جميعا كل تقدير و عرفان تم تعديل يوليو 20, 2015 بواسطه سمير سامي 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان