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

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

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




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





البحث في الليست بوكس مع وجود بيانات متكرره

اخواني عند البحث في التكست بوكس والاختيار من لست بوكس يتم عرض النتائج في اليوزرفوم لكن المشكلة عند وجود بيانات متكررة في ..



26-09-2018 03:23 صباحا
بليغ البتول
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-02-2018
رقم العضوية : 4439
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 20-2-1982
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 36
الاعجاب : 13
 offline 

اخواني
عند البحث في التكست بوكس والاختيار من لست بوكس
يتم عرض النتائج في اليوزرفوم
لكن المشكلة عند وجود بيانات متكررة في الليست بوكس دائما مايعرض لي اول نتيجة في البحث فقط 
مرفق ملف افتراضي للمشكلة

 
 
 
  1.rar   تحميل rar مرات التحميل :(14)
الحجم :(15.821) KB







26-09-2018 06:55 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
جرب الكود التالي لعله يفي بالغرض
Option Explicit

Private Sub CommandButton7_Click()
    Dim i As Integer, j As Integer

    TextBox1.Text = TextBox5.Text
    i = ListBox1.List(ListBox1.ListIndex, 1)
    If TextBox1.Text = "" Then MsgBox "أدخل اسم السائق المراد البحث عنه", vbExclamation: Exit Sub
    Cells(i, 2).Select
    For j = 2 To 4
        UserForm1.Controls("TextBox" & j).Value = ActiveCell.Offset(0, j - 1)
    Next j
    TextBox4.Text = Format(ActiveCell.Offset(0, 3), "dd/mm/yyyy")
End Sub

Private Sub ListBox1_Click()
    TextBox5.Value = ListBox1.Value
End Sub

Private Sub TextBox5_Change()
    Dim c As Range, i As Integer

    With Me.ListBox1
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "60;0"

        For Each c In Sheets(1).Range("B2:B" & Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row)
            If InStr(c, TextBox5.Value) > 0 Then
                .AddItem
                .List(i, 0) = c
                .List(i, 1) = c.Row
                i = i + 1
            End If
        Next c
    End With
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، EM_ACC، بليغ البتول، محمد النيل،




26-09-2018 07:06 صباحا
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 7
يتابعونه : 2
قوة السمعة : 516
الاعجاب : 164
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
جزاك الله خيرا استاذ ياسر
 

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




26-09-2018 02:10 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
وجزيت خيراً يا دكتور .. مشكور على مرورك العطر

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




27-09-2018 04:42 صباحا
مشاهدة مشاركة منفردة [4]
بليغ البتول
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-02-2018
رقم العضوية : 4439
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 20-2-1982
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 36
الاعجاب : 13
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
شكرا للاستاذ الرائع ياسر خليل
لاكن عند تطبيق الكود يعطيني خطاء 
مرفق الملف
 
 
  2.rar   تحميل rar مرات التحميل :(7)
الحجم :(19.38) KB






27-09-2018 05:27 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
بارك الله فيك أخي الكريم
جربت ملفك الأخير ويعمل لدي بدون مشكلة
هلا حددت المشكلة أو الخطأ بالتفصيل ..؟ كيف يظهر معك الخطأ؟

أثارت هذه المشاركة إعجاب: بليغ البتول، محمد النيل،




27-09-2018 06:08 صباحا
مشاهدة مشاركة منفردة [6]
بليغ البتول
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-02-2018
رقم العضوية : 4439
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 20-2-1982
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 36
الاعجاب : 13
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره



الخطاء يظهر لي عند السطر التالي MTM3NDQx11
 i = ListBox1.List(ListBox1.ListIndex, 1)
 
 






27-09-2018 06:38 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
هل يظهر لديك الخطأ في الملف المرفق الذي أرفقته في آخر مشاركة؟
لأنني جربت الملف ويعمل بشكل طبيعي .. ربما يجدر بأحد الأخوة تجربة الملف والنظر في وجود الخطأ
عموماً جرب وضع جملة On Error Resume Next قبل جملة الخطأ

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




27-09-2018 06:54 صباحا
مشاهدة مشاركة منفردة [8]
بليغ البتول
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-02-2018
رقم العضوية : 4439
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 20-2-1982
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 36
الاعجاب : 13
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
هو يظهر في الملف الذي ارفقته 
لكن استخدمت الجملة   On Error Resume Next قبل جملة الخطأ
واختفى الخطاء

شكرا لك استاذي الفاضل ابو البراء
وشكرا لهذا الموقع الرائع الذي يضم بين جنباته مثل هولاء كوادر.

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




27-09-2018 11:26 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
بارك الله فيك أخي الكريم بليغ ..
المشكلة ما زالت قائمة ويفضل دائماً معرفة سبب المشكلة ... والجملة ما هي إلا هروب من المشكلة بشكل مؤقت
أرجح أن يقوم الأعضاء بتجربة الأكواد .. لمعرفة السبب

أثارت هذه المشاركة إعجاب: بليغ البتول، محمد النيل،




30-09-2018 08:42 مساء
مشاهدة مشاركة منفردة [10]
بليغ البتول
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-02-2018
رقم العضوية : 4439
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 20-2-1982
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 36
الاعجاب : 13
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
الاخ العزيز ياسر 
في الكود اعلاه الذي ارفقته 
Private Sub TextBox5_Change()
  اين قيمة المتغير i
شاكرا لك





30-09-2018 08:46 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
قيمة المتغير i في العمود الثاني لليست بوكس وهو عمود مخفي لاستخدامه في تخزين رقم الصف لكل عملية بحث ...

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




03-10-2018 03:44 صباحا
مشاهدة مشاركة منفردة [12]
بليغ البتول
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-02-2018
رقم العضوية : 4439
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 20-2-1982
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 36
الاعجاب : 13
 offline 
look/images/icons/i1.gif البحث في الليست بوكس مع وجود بيانات متكرره
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الكريم بليغ ..
المشكلة ما زالت قائمة ويفضل دائماً معرفة سبب المشكلة ... والجملة ما هي إلا هروب من المشكلة بشكل مؤقت
أرجح أن يقوم الأعضاء بتجربة الأكواد .. لمعرفة السبب

الاخ ياسر   الاخوة الاعضاء     المحترمون
فعلا المشكلة عند تجاوز الخطاء ورجعت مرة اخرى نرجو تجربة الملف اعلاه
شاكرا تعاونكم 
مرفق الملف  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  2.rar   تحميل rar مرات التحميل :(7)
الحجم :(19.38) KB







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مهارات في اداة الليست بوكس عادل عليان_ الأمجاد
12 937 خالد الشاعر
نسخ البيانات من الليست بوكس Kamel meraghni
7 823 fady_dd
مساعدة في كود الليست بوكس walidzaky
6 95 YasserKhalil
حذف موظف عن طريق الليست بوكس ashraf_hertlion
4 111 ashraf_hertlion
استعلام عن فترة بين تاريخين عن طريق الليست بوكس ashraf_hertlion
5 118 ashraf_hertlion

الكلمات الدلالية
البحث ، الليست ، بوكس ، وجود ، بيانات ، متكرره ،


 







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



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

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