logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil شركات تصميم تطبيقات الجوال في مصر – تك سوفت للحلول الذكية اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





04-09-2017 10:40 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 820
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8468
الاعجاب : 12
الأخوة الكرام

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

أقدم لكم دالة معرفة لفصل اسم الأب كاملاً عن اسم الابن


---------------------------------------------
يوضع الكود التالى فى موديول عادى
--------------------------------------------
CODE
Function Kh_Father_Name(ByVal Name As String, Optional kh_First As Boolean) As String
Dim KhString 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)) & " "
    KhMyNo = InStr(1, KhString, " ", 1)
    If kh_First Then Kh_Mid = Trim(Mid(KhString, 1, KhMyNo)) Else _
    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

ثم نضع الدالة التالية فى فى الخلية المراد فصل الاسم بها

مثال : فإذا كان الاسم كاملا موجود بالخلية C8 مثلا ، توضع الدالة التالية فى الخلية D8

CODE
=Kh_Father_Name(C8)<br />


attachفصل اسم الأب كاملا عن اسم الابن.rar

تقبلوا تحياتى
 
 
  فصل اسم الأب كاملا عن اسم الابن.rar   تحميل rar مرات التحميل :(46)
الحجم :(13.541) KB





look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  04-09-2017 10:59 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 246
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 1-1-1985
الدعوات : 2
قوة السمعة : 641
الاعجاب : 10
شكرا لعملاق الاكواد عبد الله باقشير صاحب هذا الكود
وكنت اود ان تذكر هذا في اول الكود .. حفاظا على حقوقه .. حتى يرسل الله لنا من يحافظ على حقوقنا
ولكني اعتقد انه سهو غير مقصود منك
جزاك الله خيرا



توقيع :الاستاذ محمدي عبدالسميع
جزاكم الله خيرا

look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  04-09-2017 11:02 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10535
رصيد العضو : 4
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36776
الاعجاب : 193
بارك الله فيك أخي العزيز محمد الدسوقي وجزاك الله خيراً وجزى الله العالم والأستاذ الكبير عبد الله باقشير فما زالت أعماله بصمة ومنارة لنا جميعاً




look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  05-09-2017 07:15 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 820
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8468
الاعجاب : 12
الأستاذ / ناصر سعيد
أشكرك على مرورك العطر على المشاركة
واعتذر عن السهو الغير مقصود بعدم ذكر صاحب الكود أستاذنا ومنارة الأكواد فى عالم VBA الأستاذ الكبير عبد الله باقشير
ولكنى كنت لا أعلم صاحب هذا الكود وإنما أرفقته فى المشاركة للتذكرة فقط للأعضاء الذين ما زالوا على بداية الطريق أمثالى
((فذكر إن نفعت الذكرى ))
---------------------------------
الأستاذ ياسر أبو البراء
وبارك الله فيك أخى الحبيب
تقبلوا جميعا تحياتى




look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  06-09-2017 02:21 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 06-09-2017
رقم العضوية : 399
المشاركات : 7
رصيد العضو : 0
الدولة : مصر
الجنس :
تاريخ الميلاد : 20-3-1971
قوة السمعة : 28
الاعجاب : 0
الفكرة جيدة تحمد لك
ولكن الدالة لا تتعامل مع الخطأ البشري في الأسماء المركبة
فالبعض يضع بها مسافة فاصلة
تقبل مني هذا الكود لعله يعجبك
Function fath(na As String) As String
nam = na
sta:
a = Len(nam)
If a = 0 Then GoTo nd2
i = 1
st:
b = Mid(nam, i, 1)
If b = " " Then
k = a - i
GoTo nd
End If
If i = a Then
k = a - i
GoTo nd
End If
i = i + 1
k = a - i
GoTo st
nd:
z = a - k
x = Left(nam, z)
If x = "عبد " Or x = "حسب " Or x = "ابو " Or x = "أبو " Or x = "ذو " Then
z = z - 1
gf = Left(nam, z)
g = Right(nam, k)
nam = gf + g
GoTo sta
End If
otn = Right(nam, k)
f:
a = Len(otn)
If a = 0 Then GoTo nd2
i = 1
st2:
b = Mid(otn, i, 1)
If b = " " Then
k = a - i
GoTo nd1
End If
If i = a Then
k = a - i
GoTo nd1
End If
i = i + 1
k = a - i
GoTo st2
nd1:
z = a - k
x = Left(otn, z)
If x = "الدين " Or x = "الكريم " Or x = "الله " Or x = "بالله " Or x = "الحق " Or x = "الرحمن " Or x = "اليقين " Or x = "الاسلام " Or x = "الإسلام " Or x = "النصر " Or x = "الدولة " Or x = "الرسول " Or x = "النبي " Or x = "الخير " Then
z = z - 1
g = Right(nam, k)
otn = g
End If
If x = "رب " Then
z = a - k
x = Left(otn, z)
z = z - 1
gf = Left(otn, z)
g = Right(otn, k)
otn = gf + g
GoTo f
End If
fath = otn
nd2:
End Function




look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  06-09-2017 02:23 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 06-09-2017
رقم العضوية : 399
المشاركات : 7
رصيد العضو : 0
الدولة : مصر
الجنس :
تاريخ الميلاد : 20-3-1971
قوة السمعة : 28
الاعجاب : 0
الفكرة جيدة تحمد لك
ولكن الدالة لا تتعامل مع الخطأ البشري في الأسماء المركبة
فالبعض يضع بها مسافة فاصلة
تقبل مني هذا الكود لعله يعجبك
Function fath(na As String) As String
nam = na
sta:
a = Len(nam)
If a = 0 Then GoTo nd2
i = 1
st:
b = Mid(nam, i, 1)
If b = " " Then
k = a - i
GoTo nd
End If
If i = a Then
k = a - i
GoTo nd
End If
i = i + 1
k = a - i
GoTo st
nd:
z = a - k
x = Left(nam, z)
If x = "عبد " Or x = "حسب " Or x = "ابو " Or x = "أبو " Or x = "ذو " Then
z = z - 1
gf = Left(nam, z)
g = Right(nam, k)
nam = gf + g
GoTo sta
End If
otn = Right(nam, k)
f:
a = Len(otn)
If a = 0 Then GoTo nd2
i = 1
st2:
b = Mid(otn, i, 1)
If b = " " Then
k = a - i
GoTo nd1
End If
If i = a Then
k = a - i
GoTo nd1
End If
i = i + 1
k = a - i
GoTo st2
nd1:
z = a - k
x = Left(otn, z)
If x = "الدين " Or x = "الكريم " Or x = "الله " Or x = "بالله " Or x = "الحق " Or x = "الرحمن " Or x = "اليقين " Or x = "الاسلام " Or x = "الإسلام " Or x = "النصر " Or x = "الدولة " Or x = "الرسول " Or x = "النبي " Or x = "الخير " Then
z = z - 1
g = Right(nam, k)
otn = g
End If
If x = "رب " Then
z = a - k
x = Left(otn, z)
z = z - 1
gf = Left(otn, z)
g = Right(otn, k)
otn = gf + g
GoTo f
End If
fath = otn
nd2:
End Function




look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  06-09-2017 03:07 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10535
رصيد العضو : 4
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36776
الاعجاب : 193
بارك الله فيك أخي العزيز أشرف ومشكور على تفاعلك مع الموضوعات بشكل فعال وهذا يعجبني كثيراً
حاول تضع الأكواد بين أقواس الكود لتظهر بشكل منضبط .. لمعرفة ذلك قم بزيارة الموضوع من هنا
ويفضل إرفاق ملف فيه بعض الأمثلة

وبالنسبة للدالة المعرفة المقدمة في الموضوع تتعامل جيداً مع الأسماء المركبة سواء أكان هناك مسافة أو لا يوجد مسافة (فالدالة مجربة وتعطي نتائج رائعة)




look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  06-09-2017 09:03 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 820
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8468
الاعجاب : 12
بارك الله فيك أخي العزيز أشرف
ومشكور مرورك العطر الفعال على اللموضوع
تقبل تحياتى




look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  10-12-2018 01:00 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 27-6-1985
قوة السمعة : 110
الاعجاب : 0
جزاك الله خيرا




look/images/icons/i1.gif دالة معرفة لفصل اسم الأب عن الابن
  12-12-2018 07:49 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 12-12-2018
رقم العضوية : 10042
المشاركات : 8
رصيد العضو : 0
الجنس :
قوة السمعة : 16
الاعجاب : 0
جميل جدا




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في دالة معرفة لفصل القيم النصية hassona229
20 2765 Eslam Abdullah

الكلمات الدلالية
دالة ، معرفة ، لفصل ، الأب ، الابن ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:10 PM