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

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


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


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

Preview




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

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



21-07-2018 08:27 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26662
الاعجاب : 670
 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]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1772
الجنس : ذكر
الدعوات : 20
يتابعهم : 0
يتابعونه : 648
قوة السمعة : 18721
الاعجاب : 114
موقعي : زيارة موقعي
 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
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1493
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 80
قوة السمعة : 9592
الاعجاب : 91
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
دالة رائعة أستاذى الغالى ياسر
ولكن ما اعجبنى أكثر هو تعديل أستاذ حسام
ستصبح هكذا ذات افادة أهم
جزاكم الله كل خير أساتذتى الأعزاء 81

أثارت هذه المشاركة إعجاب: مدحت حافظ،



21-07-2018 12:27 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 545
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 26
قوة السمعة : 4129
الاعجاب : 203
 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 مرات التحميل :(23)
الحجم :(67.678) KB
 
  Salim_find.rar   تحميل rar مرات التحميل :(39)
الحجم :(16.03) KB


أثارت هذه المشاركة إعجاب: مدحت حافظ،



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

أثارت هذه المشاركة إعجاب: مدحت حافظ،



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




30-08-2018 07:00 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26662
الاعجاب : 670
 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
قوة السمعة : 93
الاعجاب : 0
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة

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






17-10-2018 10:00 صباحا
مشاهدة مشاركة منفردة [8]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 219
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 272
الاعجاب : 9
 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
قوة السمعة : 53
الاعجاب : 0
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
جزاكم الله كل خير




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




12-11-2018 03:24 مساء
مشاهدة مشاركة منفردة [11]
hzaiem2003
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 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
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 223
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 539
الاعجاب : 81
 offline 
look/images/icons/i1.gif البحث بجزء من النص وجلب كل النتائج بدالة معرفة
جزاك الله خيرا وجعله الله فى ميزان حسناتك .







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


 








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

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

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