logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





24-07-2019 08:09 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
بعد المشاركة الاخيرة بهذا الموضوع
تم استحدداث UDF بكود اقصر قليلاً من الكود الذي وضعه الاستاذ اسلام عبدالله أو الاستاذ عبداللله بقشير
ويستطيع استخراج الاسم الأول والثاني والثالث ..... الى ما هنالك مهما كانت الخيارات بالاسم
اترككم مع الكود أولاً
CODE

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 مرات التحميل :(22)
الحجم :(18.545) KB


أثارت هذه المشاركة إعجاب: hassona229،



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




look/images/icons/i1.gif UDF جديد لفصل الاسماء المركبة
  24-07-2019 09:47 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي الحبيب سليم وجزاك الله خيراً
مشكور جداً يا حفيدي العظيم
اذا كان هناك مجال ووقتك يسمح بذلك ادراج هذا الملف كملف فيديو في قناتك على YouTube
مع الشرح اللازم حيث اني لا أعرف كيف يفعلون هذا وان شاء الله حا تعلّم (لا نتس ذكر اسمي في الفيديو)




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




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




look/images/icons/i1.gif UDF جديد لفصل الاسماء المركبة
  24-07-2019 10:33 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
أحسنت استاذ سليم عمل ممتاز جعله الله فى ميزان حسناتك



توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

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

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




توقيع :الصقر

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


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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
دالة جديدة لفصل الارقام عن النصوص Bo-Jassem
6 3041 Excelawy
داله جديده لفصل الأرقام والنصوص من الخليه برمجة حسام خطاب الصقر
14 4423 GeoesLive

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









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

الساعة الآن 02:36 PM