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

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

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




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





البحث بجزء من النص وجلب كل النتائج بدالة معرفة

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم دالة معرفة UDF وجدتها وأعجبتني وأحببت مشاركتكم ا ..



21-07-2018 08:27 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5488
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 357
قوة السمعة : 15439
الاعجاب : 5805
 offline 

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

إخواني وأحبابي في الله

أقدم لكم اليوم دالة معرفة UDF وجدتها وأعجبتني وأحببت مشاركتكم الدالة لتستفيدوا منها .. 
الدالة تقوم بالبحث عن جزء من النص المطلوب البحث عنه وتجلب كل النتائج المطلوبة ، وليتضح عمل الدالة سأقوم بوضع مثال 
بفرض أن لديك في ورقة العمل 2 مجموعة من الأسماء الكاملة ، وفي ورقة العمل 1 تريد أن تقوم بالبحث عن اسم Yasser مثلاًُ والاسم موجود في القائمة في ورقة العمل 2 ولكن كجزء من النصوص ... والمطلوب في هذه الحالة هو جلب كل الأسماء التي تحمل الاسم Yasser 

هذه صورة من ورقة العمل 2 التي تحتوي على البيانات أو الأسماء
8HA2P1TyA26JZWG

وهذه صورة للأسماء المطلوب البحث عنها ، والنتائج المتوقعة 
NBDCONO5eEWblZL

لعمل المطلوب نقوم بإدراج موديول جديد ، ونضع فيه الدالة المعرفة التالية
Function AllMatches(src As String, trg As Range) As String
    Dim cel         As Range
    Dim addr        As String

    With trg
        Set cel = .Find(What:=src, LookAt:=xlPart, After:=.Cells(.Cells.Count))
        If Not cel Is Nothing Then
            addr = cel.Address
            Do
                AllMatches = AllMatches & " | " & cel.Value
                Set cel = .Find(What:=src, LookAt:=xlPart, After:=cel)
                If cel Is Nothing Then Exit Do
            Loop Until cel.Address = addr
            AllMatches = Mid(AllMatches, 4)
        End If
    End With
End Function


ثم في ورقة العمل 1 نضع المعادلة التالية في الخلية B1 ثم نسحبها لأسفل لنحصل على النتائج المطلوبة
=AllMatches(A1,Sheet2!$A$1:$A$20)


لرؤية الروابط والمرفقات عليك الرد على الموضوع

أرجو أن يكون الموضوع مفيد لكم ، وأترككم في رعاية الله

كان معكم أخوكم في الله / ياسر خليل أبو البراء




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: Eslam Abdullah، السعيد الجزائري، محمد أبو عبدو، مهند محسن، محمد حما،





21-07-2018 11:14 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1550
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 474
قوة السمعة : 14804
الاعجاب : 3511
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة

جزاكم الله خيرا يا غالى داله رائعه حقا من استاذ قدير3
ومن بعد اذنك دا تعديل بسيط للداله حتى يتم جلب النتائج فى عدة خلايا تحت بعض فى صفوف او متجاوره فى اعمده

حيث تم تزويد بارمتر ثالث لكتابة رقم نتيجة البحث المطلوبه 

Function AllMatchesss(src As String, trg As Range, r As Long) As String
    Dim cel         As Range
    Dim addr        As String
    Rowss = WorksheetFunction.CountIf(trg, "*" & src & "*")
    With trg
        Set cel = .Find(What:=src, LookAt:=xlPart, After:=.Cells(.Cells.Count))
        If Not cel Is Nothing Then
            addr = cel.Address
            Do
            a = a + 1
            If a > Rowss Then: Exit Do
            If a = r Then AllMatchesss = cel.Value: Exit Do
            Set cel = .Find(What:=src, LookAt:=xlPart, After:=cel)
            If cel Is Nothing Then Exit Do
            Loop Until a = r
        End If
    End With
End Function

تطبيق على الداله بالصوره


YoOixOLsnBDRPus
 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: Eslam Abdullah، YasserKhalil، السعيد الجزائري، abdulwahed catran،


توقيع :الصقر

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



21-07-2018 11:33 صباحا
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1325
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 70
قوة السمعة : 8168
الاعجاب : 2312
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
دالة رائعة أستاذى الغالى ياسر
ولكن ما اعجبنى أكثر هو تعديل أستاذ حسام
ستصبح هكذا ذات افادة أهم
جزاكم الله كل خير أساتذتى الأعزاء 81

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




21-07-2018 12:27 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 262
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 9
قوة السمعة : 2495
الاعجاب : 579
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
موضوع مشابه

Function Salim_Find(st, Rg As Range)
Salim_Find = "No Data"
Dim L%, k%
Dim s$
Dim R%: R = Rg.Rows.Count
st = UCase(st)
 For k = 1 To R
  L = InStr(UCase(Rg.Cells(k)), st)
   If L Then s = s & Rg.Cells(k) & ","
   Next
   If s <> "" Then Salim_Find = Mid(s, 1, Len(s) - 1)
   
End Function





لرؤية الروابط والمرفقات عليك الرد على الموضوع


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




21-07-2018 03:12 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5488
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 357
قوة السمعة : 15439
الاعجاب : 5805
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
بارك الله فيكم إخواني الكرام .. هكذا يكون التفاعل في الموضوعات 
لقد أثريتم الموضوع وجعلتم له رونقاً بمشاركتكم المميزة
تقبلوا وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah، salim،




27-08-2018 01:58 مساء
مشاهدة مشاركة منفردة [5]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 402
الاعجاب : 194
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
بارك الله فيك أستاذي الفاضل وجزاك الله خير الجزاء
وزادك الله علما ونفع بك .

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




30-08-2018 07:00 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5488
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 357
قوة السمعة : 15439
الاعجاب : 5805
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
مشكور على مرورك العطر أخي الكريم محمد عبده .. بارك الله فيك





17-10-2018 08:12 صباحا
مشاهدة مشاركة منفردة [7]
جبري
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-04-2018
رقم العضوية : 5752
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-5-1978
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 89
الاعجاب : 39
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة

جزاكم الله خيرا يا غالى داله رائعه حقا 3







17-10-2018 10:00 صباحا
مشاهدة مشاركة منفردة [8]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 137
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 11
يتابعونه : 1
قوة السمعة : 169
الاعجاب : 78
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
بارك الله فيك أستاذي الكريم وجزاك الله خير الجزاء
وزادك الله علما ونفع بك وجعله فى ميزان حسناتك .





17-10-2018 03:25 مساء
مشاهدة مشاركة منفردة [9]
yehya mahmoud
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-10-2018
رقم العضوية : 8303
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 13-1-1969
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 51
الاعجاب : 19
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
جزاكم الله كل خير





22-10-2018 11:23 مساء
مشاهدة مشاركة منفردة [10]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 247
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 6
قوة السمعة : 401
الاعجاب : 173
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
احسنت الأستاذ المحترم ياسر وزادك الله من فضله

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




12-11-2018 03:24 مساء
مشاهدة مشاركة منفردة [11]
hzaiem2003
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 12-11-2018
رقم العضوية : 9061
المشاركات : 7
الجنس : ذكر
تاريخ الميلاد : 4-8-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 16
الاعجاب : 3
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
بارك الله فيك أستاذي الكريم وجزاك الله كل خير جعله فى ميزان حسناتك .


 






23-01-2019 09:30 صباحا
مشاهدة مشاركة منفردة [12]
hassona229
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 21
الاعجاب : 4
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
جزاك الله خيرا وجعله الله فى ميزان حسناتك .







الكلمات الدلالية
البحث ، بجزء ، النص ، وجلب ، النتائج ، بدالة ، معرفة ،


 







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



الساعة الآن 07:32 صباحا

أعلن هنا
أعلن هنا
أعلن هنا