دالة جديدة لاستخراج ولي الامر

[عبدالله باقشير]

السلام عليكم

 

Option Explicit

'         بسم الله الرحمن الرحيم            "
'         ********************           "

'       دالة استخراج اسم ولي الأمر         "
'========================================"
'    يامكانية معالجة الاسم المركب الاول      "
'    تلقائياً حسب  معايير معرفة لديها      "
'      Kh_Father_Replace  في الدالة       "
'       ويمكنك اضافة اي معيار آخر         "
'        بجانب المعايير الموجودة             "
'          MyArray  في المتغير              "
'      مع مراعاة وجود فراغ بداية
'           او نهاية المعيار
'========================================"
'-----------------------------------------------------------------

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

استخراج اسم ولي الامر.rar

[mostafaatiya]

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

فعلا والله كنت محتاج هذا الكود

تم تعديل يوليو 21, 2010 بواسطه مصطفى الفيومى

[قصي]

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

[أبوســـارة1973]

شكراً جزيلاً

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

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

دالة رائعة من عالم رائع ومبدع

بارك الله فيك أيها العالم الجليل والمفكر العظيم والمبدع المدهش

جعل الله أعمالك صالحة ولوجه الله خالصة

[ولدطيبة]

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

لاقوة الا بالله

عمل رائع

من استاذ فاضل

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

[أيسم إبراهيم]

السلام عليكم

ما شاء الله . لا قوة إلا بالله. مبدع دائما أستاذ خبور

جعله الله في ميزان حسناتك

دمت بخير

أيسم إبراهيم

[أبوعبد الله]

أخي الحبيب / خبور

بارك الله فيك وجعله في ميزان حسناتك .

تقبل تحياتي

أبو عبدالله

[أبو العقاب]

ما شاء الله

طريقة رائعة

مشكور أخي خبور

[محمدي عبد السميع]

ماشاء الله

عمل ولاأروع

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

[الحسامي]

السلام عليكم

اخي الحبيب خبور خير

ما شاء الله وتبارك الله اعمال لن نجدها إلا عندك تفيدنا وتثرينا

وجعلها الله في ميزان حسناتك ان شاء الله تعالى

عماد الحسامي

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل/ مصطفى الفيومي------ حفظه الله

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

الاخ الفاضل/ قصي------ حفظه الله

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

الاخ الفاضل/ ابو سارة------ حفظه الله

اكرمك الله في الدارين

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

الاخ الفاضل/ ياسر خليل------ حفظه الله

اكرمك الله في الدارين

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

الاخ الفاضل/ ولد طيبة------ حفظه الله

اكرمك الله في الدارين

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

الاخ الفاضل/ آيسم ابراهيم------ حفظه الله

اكرمك الله في الدارين

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

الاخ الفاضل/ ابو عبدالله ------ حفظه الله

اكرمك الله في الدارين

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

الاخ الفاضل/ ابو العقاب------ حفظه الله

اكرمك الله في الدارين

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

الاخ الفاضل/ محمدي عبد السميع ------ حفظه الله

اكرمك الله في الدارين

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

الاخ الفاضل/ الحسامي------ حفظه الله

اكرمك الله في الدارين

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

تقبلوا تحياتي وشكري

[خالد الشاعر]

استاذى العقدير خبور

تسلم ايدك

اشتقنا كثير لبدعاتك

جزاك الله خيراً

[عبد الفتاح كيرة]

عمل رائع

انتظرناه فترة طويلة

نسأل الله أن يكون فى موازين حسناتك

[سالم شباني]

[عادل حنفي]

السلام عليكم

بارك الله فيك اخي الحبيب خبور

وجعل نبع علمك لايجف

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

[علي المصري]

اخي الكريم الحبيب : خبور خير

جزالك الله عنا كل الخير وعن أعمالك التي طالما استفيد منها دائما ًًفي أعمالي

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

شكرا جزلاً

[abuhassan53]

فارس ما شاء الله تبارك الله

تسلم الأنامل الذهبية

وربنا يوفقك

[منير لبيب]

موضوع جميل جدا

وبكده ش الطلبة بالمدرسة يكتب اسم الطالب ورقمه القومي

وعن طريق الكود يتم استخراج

اسم ولي الامر

تاريخ الميلاد

السن في 1/ 10

النوع

محافظة الميلاد

وكل الاكواد دي مشروحة علي الموقع

ملف مرفق مجمع

ملف شئون طلبة.rar

[MAHMOUDALIYOUSSEF]

السلام عليكم

اكواد قمة في الروعة

جزاكم الله كل خير :dance1:

[ايمن الجابر]

شكراااااا لك لمجهودك الرائع

[عبد الفتاح كيرة]

زادك الله علما أخانا عبد الله

[abdelmoneeim]

جعله الله في ميزان حسناتك

[طارق ابو عمر]

في 21‏/7‏/2010 at 06:27, mostafaatiya said:

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

 

فعلا والله كنت محتاج هذا الكود

اود شرح لكيفية تطبقها فى ملف اكسل جديد ولوكان فيديو يبقى جزاك الله كل خير