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



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





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

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



21-07-2018 08:27 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13375
الاعجاب : 4949
 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
المشاركات : 1410
الجنس : ذكر
الدعوات : 12
يتابعهم : 0
يتابعونه : 359
قوة السمعة : 11272
الاعجاب : 2792
 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
 




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


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




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

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




21-07-2018 12:27 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 189
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 6
قوة السمعة : 2079
الاعجاب : 426
 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
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13375
الاعجاب : 4949
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
بارك الله فيكم إخواني الكرام .. هكذا يكون التفاعل في الموضوعات 
لقد أثريتم الموضوع وجعلتم له رونقاً بمشاركتكم المميزة
تقبلوا وافر تقديري واحترامي

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




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

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




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





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

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







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





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





18-10-2018 03:05 مساء
مشاهدة مشاركة منفردة [10]
amiralex15
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 266
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 16-2-1960
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 30
الاعجاب : 10
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
مشششششششششكور







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


 







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



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

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