أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





UDF جديد لفصل الاسماء المركبة

بعد المشاركة الاخيرة بهذا الموضوع تم استحدداث UDF بكود اقصر قليلاً من الكود الذي وضعه الاستاذ اسلام عبدالله أو الاستاذ ..



24-07-2019 08:09 مساء
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 

بعد المشاركة الاخيرة بهذا الموضوع 
تم استحدداث UDF بكود اقصر قليلاً من الكود الذي وضعه الاستاذ اسلام عبدالله أو الاستاذ عبداللله بقشير 
 ويستطيع استخراج الاسم الأول والثاني والثالث ..... الى ما هنالك  مهما كانت الخيارات بالاسم
اترككم مع الكود أولاً

Option Explicit
Function Salim_Split_Name(N_name, n)
Dim x%
Dim arr: arr = _
Array("سيف", "عبد", "أبو", "ابو", "عز", _
      "صدر", "نور", "فضل")
'++++++++++++++++++++++++++++++++++++++
Rem     Array تستطيع ان تضيف اي بداية اسم مركب داخل هذا الــ
'+++++++++++++++++++++++++++++++++++++
Dim My_Col As New Collection
Dim Final_col As New Collection
Dim it, my_st, my_name
  my_st = Trim(N_name)
  my_name = Split(Trim(my_st))
 
 For x = LBound(my_name) To UBound(my_name)
  My_Col.Add my_name(x)
 Next x
 
  For x = 1 To My_Col.Count
     If Not (IsError(Application.Match(My_Col(x), arr, 0))) Then
      Final_col.Add My_Col(x) & " " & My_Col(x + 1)
      x = x + 1
     Else
      Final_col.Add My_Col(x)
    End If
  Next x
   
   If n > Final_col.Count Then
    Salim_Split_Name = ""
   Else
     Salim_Split_Name = Final_col(n)
   End If
    
    Set My_Col = Nothing: Set Final_col = Nothing
    Erase arr
End Function

الملف كنموذج مرفق
MzI5NzE88Names_Complex
 
 
 
  Fuction_split_name.rar   تحميل rar مرات التحميل :(23)
الحجم :(18.545) KB


24-07-2019 09:29 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif UDF جديد لفصل الاسماء المركبة
بارك الله فيك أخي الحبيب سليم وجزاك الله خيراً

24-07-2019 09:47 مساء
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif UDF جديد لفصل الاسماء المركبة
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي الحبيب سليم وجزاك الله خيراً

مشكور جداً يا حفيدي العظيم
اذا كان هناك مجال ووقتك يسمح بذلك ادراج هذا الملف كملف فيديو في قناتك على YouTube
مع الشرح اللازم حيث اني لا أعرف كيف يفعلون هذا وان شاء الله حا تعلّم (لا نتس ذكر اسمي في الفيديو)

24-07-2019 10:09 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif UDF جديد لفصل الاسماء المركبة
نترك هذه المهمة للأخ اسلام عبد الله فهو أفضل مني في تسجيل الفيديوهات

24-07-2019 10:25 مساء
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 763
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif UDF جديد لفصل الاسماء المركبة
بارك الله فيك أستاذنا المبدع / سليم
وأفاض عليكم بالعلم النافع والعافية

24-07-2019 10:33 مساء
مشاهدة مشاركة منفردة [5]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1763
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif UDF جديد لفصل الاسماء المركبة
أحسنت استاذ سليم عمل ممتاز جعله الله فى ميزان حسناتك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

25-07-2019 06:55 صباحا
مشاهدة مشاركة منفردة [6]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 747
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif UDF جديد لفصل الاسماء المركبة

جزاكم الله خيرا استاذ سليم
عمل رائع
142


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله





الكلمات الدلالية
المركبة ، لفصل ، الاسماء ، جديد ،


 










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

الساعة الآن 09:01 صباحا