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

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


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





كود البحث بحرف من كلمة

السلام عليكم و رحمة الله و بركاته من فضلكم اول مرة اشارك في المنتديات و اتوجه اليكم بسؤال و طلب وهو انا عملت كود البحث ..



28-05-2020 11:55 صباحا
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 

السلام عليكم و رحمة الله و بركاته 
من فضلكم اول مرة اشارك في المنتديات و اتوجه اليكم بسؤال و طلب وهو
انا عملت كود البحث لمجرد كتابة حرف و لايهم مكانه من الكلمة فيعطيك النتائج المبحوث عنها 
و لكن المشكلة ان الحرف لا بد ان يكون مثل الحرف الموجود في الكلمة و الا لا يعطيك نتيجة مثلا لو كانت الكلمة هي CODES التي ابحث عنها فلو كتبت الحرف c , o, d, e ,s بهذا الشكل لا يعطيني الكلمة الا اذا كتبتها C يعني Capital
و الملف مرفق مع الطلب
         
و بارك الله فيكم 
 
 
  Code Cherche.xlsm   تحميل xlsm مرات التحميل :(14)
الحجم :(247.67) KB


28-05-2020 12:30 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود البحث بحرف من كلمة
وعليكم السلام أخي الكريم
هل يمكنك وضع الكود للإطلاع عليه حيث أنه غير متاح لي في الوقت الحالي تحميل المرفق .
عموماً يمكن استخدام LCase أو UCase في طرفي البحث لتجعل الحروف كلها كبيرة أو صغيرة (هذه هي الفكرة العامة) ..حاول العمل عليها وإذا فشلت ارفق ما توصلت إليه

28-05-2020 08:58 مساء
مشاهدة مشاركة منفردة [2]
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 
look/images/icons/i1.gif كود البحث بحرف من كلمة
بارك الله فيك أخي هذا هو الكود
Private Sub CHERCHE_Change()
Application.ScreenUpdating = False
On Error Resume Next
ListeAffaire.ColumnCount = 5
ListeAffaire.ColumnWidths = "40;80;80;100;80"

If CHERCHE.Value = "" Then ListeAffaire.Clear: Exit Sub

    k = 0
       
        lr = Cells(Rows.Count, 4).End(xlUp).Row
        For Each c In Range("d3:d" & lr)
            b = InStr(c, CHERCHE)
            If b > 0 Then
                ListeAffaire.AddItem
                ListeAffaire.List(k, 0) = Cells(c.Row, 1).Value
                ListeAffaire.List(k, 1) = Cells(c.Row, 2).Value
                ListeAffaire.List(k, 2) = Cells(c.Row, 3).Value
                ListeAffaire.List(k, 3) = Cells(c.Row, 4).Value
                ListeAffaire.List(k, 4) = Cells(c.Row, 5).Value
                
                k = k + 1
            End If
        Next c
Application.ScreenUpdating = True
End Sub

 

28-05-2020 09:02 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود البحث بحرف من كلمة
في السطر التالي
b = InStr(c, CHERCHE)

قم بوضع الدالة LCase قبل المتغير c وقبل المتغير CHERCHE ..بهذا الشكل
b = InStr(LCase(c), LCase(CHERCHE))


الرجاء وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط

28-05-2020 09:25 مساء
مشاهدة مشاركة منفردة [4]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif كود البحث بحرف من كلمة
شكر وتقدير استاذ ياسر

28-05-2020 09:50 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود البحث بحرف من كلمة
بارك الله فيك أخي الكريم
هل طبقت الكود ونجحت الفكرة؟

29-05-2020 12:05 مساء
مشاهدة مشاركة منفردة [6]
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 
look/images/icons/i1.gif كود البحث بحرف من كلمة
بارك الله فيك و جزاك الله خيرا نعم نجحت 




الكلمات الدلالية
البحث ،


 










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

الساعة الآن 05:34 صباحا