فصل اسم ولى الامر من اسم الطالب

[ابو عونى]

الرجاء امر يكتب او دالة تقوم بعمل فصل اسم ولى الامر من اسم الطالب

Book2.rar

[أبوعيد]

تفضل

فصل الاسم الأول.rar

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

بارك الله فيك أخي الحبيب أبو عيد

بالنسبة لملفك لن يتعامل مع الأسماء المركبة كاسم عبد الله (إلا إذا حذفت المسافة بين عبد ولفظ الجلالة)

 

أخي الكريم أبو عوني

إليك الدالة المعرفة التالية لتؤدي الغرض

قم بالدخول لمحرر الأكواد Alt + F11 ومن قائمة Insert قم باختيار Module لإدراج موديول جديد وضع الدالة المعرفة التالية

Function Kh_Father_Name(ByVal Name As String) As String
    Dim KhString As String, SearchChar As String, Kh_Mid As String, Kh_Rep As String
    Dim KhMyNo As Integer

    On Error GoTo Err_Kh_Father_Name

    If IsEmpty(Name) Then GoTo Err_Kh_Father_Name
    KhString = Kh_Father_Replace(Trim(Name)) & " "
    SearchChar = " "
    KhMyNo = InStr(1, KhString, SearchChar, 1)
    Kh_Mid = Trim(Mid(KhString, KhMyNo, Len(KhString)))
    Kh_Rep = Replace(Kh_Mid, "_", " ")
    Kh_Father_Name = Kh_Rep

    Exit Function

Err_Kh_Father_Name:
    Kh_Father_Name = ""
End Function

Private Function Kh_Father_Replace(ByVal Kh_Sub As String) As String
    Dim MyArray, Ar
    Dim SN As String, RE As String
    MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله")

    SN = Kh_Sub
    For Each Ar In MyArray
        RE = Replace(Ar, " ", "_")
        SN = Replace(SN, Ar, RE)
    Next
    Kh_Father_Replace = SN
End Function

بعدها يمكنك وضع المعادلة في الخلية B2 بهذا الشكل ثم سحبها

=Kh_Father_Name(A2)

تقبل تحياتي

 

[كريم الفلسطيني]

هناك طريقة اخرى ..

و لكن ستواجه نفس مشكل الاخ ابو عيد .. لذا عليك ان تعود للخلايا التي حدث بها خطا و تعدلها.

الطريقة هي:

حدد خلايا الاسماء

اذهب الى

Data

و من ثم

Text to columns

ستظهر لك قائمة ...

اخنر

delimited

و من ثم اختر 

space.....

و من ثم

next

finish

...

و بعد ان تقسم الخلايا كلها

الان تعود لتقود بلصق ما تحتاجه عنطريق كتابة

مثلا في الخلية

K2

=C2& " " &D2

و هكذا

 

نحن الامر لدينا في المغرب العربي اكثر بساطة ...اسم ثنائي ....فيه اسمك و لقبك............و لكن رايت في المشرق انكم تكتبون اسماء رباعية....ههه....

تم تعديل فبراير 12, 2016 بواسطه كريم ارس