اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

معادلة في منتهى الجمال والروعة :dance1:

زيادة في الخير وإثراءً للموضوع أقدم لكم حل بدالة معرفة والدالة للعلامة الكبير عبد الله باقشير - غفر الله لنا وله -

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: :fff:

Split Compound Names.rar

  • Like 3
قام بنشر

احبك الذى احببتنى فية استازى الحبيب   ياسر

 

     كود رائـــــــــــــــــــــــــــع

 

            -اثاب الله صاحبة بالخير -

 

 شكراً جزيلاً لحضرتك - وجزاك خيراً فقد استفدت منة الكثير

 

             خالص احترامى وتقديرى

  • Like 2
قام بنشر (معدل)

شكرا استاذنا / خالد الرشيدي و جزاك الله كل خير و شكرا للاستاذ / ياسر خليل ابوالبراء

المعادلة كما توقعت دائما و اكثر 

بارك الله لكم جميعا 

و اقدم لكم جميعا كل تقدير و عرفان 

تم تعديل بواسطه سمير سامي
  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information