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

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


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



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





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

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



21-07-2018 08:27 صباحا
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6329
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17426
الاعجاب : 315
 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)


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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

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







21-07-2018 11:14 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1630
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 537
قوة السمعة : 16827
الاعجاب : 112
موقعي : زيارة موقعي
 offline 
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
 
 
 




توقيع :الصقر

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



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





21-07-2018 12:27 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 326
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 13
قوة السمعة : 2880
الاعجاب : 65
 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

 
  Capture1.PNG   تحميل png Capture1.PNG مرات التحميل :(20)
الحجم :(67.678) KB
 
  Salim_find.rar   تحميل rar مرات التحميل :(33)
الحجم :(16.03) KB






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





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





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





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

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







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





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





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





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


 






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







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


 







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



الساعة الآن 12:36 مساء

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