الاستاذ مجدى
مشكلة في البحث وأظهار النتائج في listbox 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا مشكلة في البحث وأظهار النتائج في listbox 829894
ادارة المنتدي مشكلة في البحث وأظهار النتائج في listbox 103798

مشكلة في البحث وأظهار النتائج في listbox Uoou_u10





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


شاطر
 

 مشكلة في البحث وأظهار النتائج في listbox

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



عدد المساهمات : 3
تاريخ التسجيل : 29/12/2018

مشكلة في البحث وأظهار النتائج في listbox Empty
مُساهمةموضوع: مشكلة في البحث وأظهار النتائج في listbox   مشكلة في البحث وأظهار النتائج في listbox Avatarالسبت ديسمبر 29, 2018 12:08 pm

هناك مشكلة تظهر عند تنفيذ الكود التالي عند الاسطر بين الاقواس ...ارجو الافادة من لديه الاجابه لا يقصر بارك الله بكم جميع
Private Sub TextBox15_Change()
ListBox1.Clear

   For i = 1 To 14
           Controls("TextBox" & i).Text = ""
   Next i

   If TextBox15 = "" Then Exit Sub
   Sheets(3).Activate

   ss = Sheets(3).Cells(Rows.Count, 2).End(xlUp).Row
    k = 0
    For Each c In Range("c2:c" & ss)
   ' b = InStr(c, TextBox15)
   
   If c Like TextBox15 & "*" Then
     k = ListBox1.ListCount
       ListBox1.AddItem
     ListBox1.List(k, 0) = Cells(c.Row, 2).Value
       ListBox1.List(k, 1) = Cells(c.Row, 3).Value
       ListBox1.List(k, 2) = Cells(c.Row, 4).Value
       ListBox1.List(k, 3) = Cells(c.Row, 5).Value
       ListBox1.List(k, 4) = Cells(c.Row, 6).Value
       ListBox1.List(k, 5) = Cells(c.Row, 7).Value
       ListBox1.List(k, 6) = Cells(c.Row, Cool.Value
       ListBox1.List(k, 7) = Cells(c.Row, 9).Value
       ListBox1.List(k, Cool = Cells(c.Row, 10).Value
       ListBox1.List(k, 9) = Cells(c.Row, 11).Value]
     [(((((( ListBox1.List(k, 10) = Cells(c.Row, 12).Value
      ListBox1.List(k, 11) = Cells(c.Row, 13).Value
      ' ListBox1.List(k, 12) = Cells(c.Row, 14).Value
       'ListBox1.List(k, 13) = Cells(c.Row, 14).Value)))))

 
       k = k + 1
   End If
Next c
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

مشكلة في البحث وأظهار النتائج في listbox Empty
مُساهمةموضوع: رد: مشكلة في البحث وأظهار النتائج في listbox   مشكلة في البحث وأظهار النتائج في listbox Avatarالأربعاء يناير 02, 2019 6:32 am

لابد من رفع الملف نفسه

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

مشكلة في البحث وأظهار النتائج في listbox Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

مشكلة في البحث وأظهار النتائج في listbox Empty
مُساهمةموضوع: رد: مشكلة في البحث وأظهار النتائج في listbox   مشكلة في البحث وأظهار النتائج في listbox Avatarالسبت يناير 05, 2019 6:54 pm

حمل الملف التالى


مشكلة في البحث وأظهار النتائج في listbox Oco10


الملف

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

مشكلة في البحث وأظهار النتائج في listbox Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
مشكلة في البحث وأظهار النتائج في listbox
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: