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

[علي المصري]

هل يمكن فصل الأسم الأول من اسم شخص

مثال

الاسم

أحمد محمد محمود عبدالله

المطلوب

أحمد

أرجو الافادة

Mathhero22.rar

تم تعديل أبريل 13, 2012 بواسطه mathhero

[ياسر أحمد الشيخ]

انظر أخى المرفق

أرجو أن يكون هذا هو طلبك

لاحظ : الفصل يتم عن طريق وجود مسافة بين كل اسم والآخر

شكرا جزيلا

ِAbo_Elyosr.rar

تم تعديل أبريل 13, 2012 بواسطه leprince2007

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وبه نستعين

أخى الكريم

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

وهذا الملف لفصل الاسم الاول عن الاسم

[عبدالله المجرب]

اخي سعيد

بارك الله فيك

لم تترك للاخ السائل اي خيار فقد حوطت الاجابة من جميع الجوانب

====

نرجو من الاخ السائل مراعاة قواعد المشاركة بخصوص العنوان

ساقوم بتعديل العنوان ليتناسب مع الطلب

[رجب جاويش]

الأخ الحبيب / سعيد بيرم

بسم الله ما شاء الله

وفيت وكفيت

بارك الله فيك وجزاك الله كل خير

[ياسر أحمد الشيخ]

لاثراء الموضوع

هذا حل بالأكواد:

1- الاسم فقط

2- الاسم الأول والثانى

3- كل اسم فى خليه

وشكرا جزيلاً

ِAbo_Elyosr.rar

[رجب جاويش]

الأخ الفاضل / leprince2007

عمل متميز

بارك الله فيك

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وبه نستعين

استكمالا للملفات الخاصة بالاسماء

وهذا الملف

لاسم الوالد والجد فقط من الاسم

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وبه نستعين

وهذا الملف

للآسم الثلاثى بدون اللقب

[Ahmed Elbhiry]

اه الحلاة دى استاذ سعيد على رأى ( زيور)

[أبو عبد الرحمن سعيد]

اذا وجد الماء بطل التيمم

أخى العزيز / عبدالله المجرب

أخى العزيز / أحمد البحيرى

أخى العزيز / رجب جاويش

فما أنا الا تلميذ ساعيا لاأن أكون متعلما منكم جميعا

أشكركم جميعا لحسن تشجيعكم

جزاكم الله جميعا خيرا

[رجب جاويش]

الأخ الفاضل / سعيد بيرم

لقد وفيت موضوع فصل الاسم حقة من جميع الوجوه

بارك الله فيك

وزادك من علمه

[علي المصري]

شكرا لكم جميعا ولسعة صدوركم وسرعة استجابتكم

شكرا جزيلا

( الكود غيرت به جزء بسيط لكي يعمل مع بداية الملف )

Sub workbook_open()

For j = 5 To 100

sp = Split(Cells(j, "b"))

Cells(j, "d") = sp

Next

End Sub

وذلك للحصول على الاسم الأول فقط

وبعد ما عملت هذا التغيير

وجدت اخي في الله سعيد بيرم

قد اعطاني كل الاحتمالات

شكرا لكم مرة اخرى

[أبو عبد الرحمن سعيد]

بسم الله الرحمن الرحيم

وبه نستعين

وهذا الملف

للآسم المختصر

الاول والاخير " الاسم واللقب فقط "

وبس خلاص

[fariddidou]

بارك الله فيكم اجميع اللهم زده في ميزان حسناتكم إن شاء الله

تم تعديل فبراير 13, 2014 بواسطه fariddidou

[samia84]

بسم الله الرحمن الرحيم

وبه نستعين

أخى الكريم

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

وهذا الملف لفصل اللقب عن الاسم

اخي سعيد

بارك الله فيك

ولكن لم أجد الملف لفصل اللقب عن الاسم

وشكرا

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

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

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

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

 

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

 

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

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

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

Split Compound Names UDF Function.rar

[ابو نبأ]

السلام عليكم

 

بارك الله فيك

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

جزيت خيراً أخي الفاضل أبو نبأ

مشكور على مرورك العطر

[أبو إيمان]

الاستاذ / سعيد 

أساتذة المنتدى 

لم يظهر عندي روابط الملفات الخاصة بمشاركات الاستاذ سعيد

 

الاستاذ / رجب جاويش 

كم أن سعيد برؤية مشاركاتك

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

السلام عليكم عمل ناجح 100% ولكن هل يمكن تطبيقه دون أكواد؟...جزاكم الله خيراً.

ما شاء الله  بارك الله...عليك يا أبا البراء.

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

أخي الكريم محمد حسن

نعم يمكن تطبيقه بدون أكواد فهناك حلول للأستاذ الكبير جمال عبد السميع بالمعادلات

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

تقبل تحياتي

[samia84]

السلام عليكم

شكرا أخي ياسر على هذا الرد و المساعدة

أخي لو تكرمتم وإعطاء  كود لفصل الإسم وللقب

وشكرا

 

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

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

يرجى إرفاق ملف بالمطلوب .. سبق أن قدمت في مشاركة سابقة فصل الاسم كل على حدا .. الاسم الأول والثاني والثالث والرابع إلى أي عدد من الأسماء

[samia84]

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

يرجى إرفاق ملف بالمطلوب .. سبق أن قدمت في مشاركة سابقة فصل الاسم كل على حدا .. الاسم الأول والثاني والثالث والرابع إلى أي عدد من الأسماء

السلام عليكم

شكرا لك أخي ياسر على هذا الرد

ولكن ماأريده هو فصل الإسم إلي جزئين

اللقب و الإسم

مثل: بن عبد الرحمان آمة الرحمان

يفصل إلى

اللقب: بن عبد الرحمان

الإسم: آمة الرحمان

وشكرا