اذهب الي المحتوي
أوفيسنا

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


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

السلام عليكم

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

عماد الحسامي

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...
  • 2 months later...

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

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

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

شكرا جزلاً

رابط هذا التعليق
شارك

  • 10 months later...

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

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

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

اسم ولي الامر

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

السن في 1/ 10

النوع

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

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

ملف مرفق مجمع

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

رابط هذا التعليق
شارك

  • 2 months later...
  • 4 months later...
  • 9 months later...
  • 9 years later...
في 21‏/7‏/2010 at 06:27, mostafaatiya said:

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

 

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

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information