اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

إضافة اكثر من 10 اعمدة الى اللست بوكس وخاصة عند البحث


الردود الموصى بها

السلام عليكم

 

إضافة اكثر من 10 اعمدة الى اللست بوكس وخاصة عند البحث

 

الملاحظ دائما عند اضافة قيم الى اللست بوكس يستخدم الغرض AddItem

لكن عندما تكون الاعمدة اكثر من 10 اعمدة يظهر خطأ

 

وهذا البديل وهواسرع وافضله حتى ولو كانت الاعمدة لا تتجاوز 10 اعمدة

 

 

 

الملف 2003

 

G.png

ListBox.rar

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

اخي الحبيب وأستاذنا الكبير // عبدالله باقشير

السلام عليكم ورحمة الله وبركاته

فعلا موضوع كان ذو اهمية كبيرة وانا منذ فترة ابحث عن طريقة لزيادة اعمدة اليست بوكس عن 10 اعمدة 

بارك الله فيك دائما سباق للخير والجديد 

ودائما نتعلم منك في كل مشاركة اضافة جديدة في الاكسيل

تقبل تحياتي واحترامي 

رابط هذا التعليق
شارك

جزاك الله خيرا أخي عبد الله

هذا موضوع مهم جدا

و قمت بعين الصواب عندما وضعته في موضوع مستقل

بارك الله فيكم

 

السلام عليكم

جزاكم الله خيرا

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

جزاك الله كل خير وجعله فى ميزان حسناتك ونفعك به فى الدنيا والاخرة

نجمه جديده تلمع فى سماء منتدى اوفسينا من اعداد العلامه عبدالله باقشير

 

 

السلام عليكم

جزاكم الله خيرا

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

نعم والله إنك مرجع للأكواد   مهما قلنا ومهما قمنا بالرد لن نوافيك حقك

 

 

السلام عليكم

جزاكم الله خيرا

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

اخي الحبيب وأستاذنا الكبير // عبدالله باقشير

السلام عليكم ورحمة الله وبركاته

فعلا موضوع كان ذو اهمية كبيرة وانا منذ فترة ابحث عن طريقة لزيادة اعمدة اليست بوكس عن 10 اعمدة 

بارك الله فيك دائما سباق للخير والجديد 

ودائما نتعلم منك في كل مشاركة اضافة جديدة في الاكسيل

تقبل تحياتي واحترامي 

 

 

السلام عليكم

جزاكم الله خيرا

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

أستاذنا الفاضل/ عبدالله باقشير

السلام عليكم ورحمة الله وبركاته

جزاكم الله كل خير علي هذا العمل الرائع كعادتكم

تقبل تحياتي

 

السلام عليكم

جزاكم الله خيرا

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

استاذنا الفاضل

لو تكرمت ممكن عمل اضافة وهى طباعة النتيجة ولكن فى ورقة مستقلة وليس طباعة الفورم

والاضافة الاخرى هى امكانية التعديل

تقبل تحياتى وشكرى وتقديرى

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

الاستاذ الكبير والعالم العلامة عبد الله باقشير اعزكم الله

دائما ابداع واتقان في جميع اعمالكم زادك الله علما وشرفا

وفقكم الله واعطاكم الصحة والعافية

تقبل فائق احترامي وتقديري

 

 

رابط هذا التعليق
شارك

اخى واستاذنا عبدالله

ابداع ما بعده ابداع

والابداع لا ياتى الا من كبير مثلك

بارك الله فيك

ولكن هل يمكن استخدام الكود كالاتى

اظهار اول 10 اعمده ثم اظهار من العمود 15الى العمود25

وبالتالى يصبح عدد الاعمده20

رابط هذا التعليق
شارك

 

اخي الحبيب وأستاذنا الكبير // عبدالله باقشير

السلام عليكم ورحمة الله وبركاته

فعلا موضوع كان ذو اهمية كبيرة وانا منذ فترة ابحث عن طريقة لزيادة اعمدة اليست بوكس عن 10 اعمدة 

بارك الله فيك دائما سباق للخير والجديد 

ودائما نتعلم منك في كل مشاركة اضافة جديدة في الاكسيل

تقبل تحياتي واحترامي 

 

 

السلام عليكم

جزاك الله خيرا

دائما نتعلم منك كل ما هو جديد

بارك الله فيك

تم تعديل بواسطه سعد عابد
رابط هذا التعليق
شارك

السلام عليكم
الاستاذ القدير والعلامه الخبير / عبد الله باقشير
بارك الله فيك
بالفعل استاذي موضوع مهم ورائع جدا والجميع يحتاج اليه
والأروع انه من استاذ في قدرك وعلمك وخلقك الكريم
ودائما نتعلم منك شئ جديد في كل سطر من اكوادك الرائعة
وايضا من كل رد او مشاركة لك .. فتعلمنا منها الأدب و الخلق الجم الواضح في ردودك
الصادر من أدبكم وخلقكم وشخصكم الكريم

وانتهز الفرصة في الرد في هذا الموضوع لتقديم
كل الشكر
كل العرفان
كل الاعتراف بالجميل
كل المحبة و التقدير

جزاك الله عنا خيرا
وزادك الله من فضله و من علمه
تقبل خالص تحياتي
و عذرا للاطاله عليكم
تلميذك

تم تعديل بواسطه حمادة عمر
  • Like 2
رابط هذا التعليق
شارك

استاذنا الفاضل

لو تكرمت ممكن عمل اضافة وهى طباعة النتيجة ولكن فى ورقة مستقلة وليس طباعة الفورم

والاضافة الاخرى هى امكانية التعديل

تقبل تحياتى وشكرى وتقديرى

 

هذا المرفق فقط لاريك صيغة الكود المستخدم في مثل هذه الحالات

وليس كعمل معين بحد ذاته.

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

الاستاذ الكبير والعالم العلامة عبد الله باقشير اعزكم الله

دائما ابداع واتقان في جميع اعمالكم زادك الله علما وشرفا

وفقكم الله واعطاكم الصحة والعافية

تقبل فائق احترامي وتقديري

 

السلام عليكم

جزاكم الله خيرا

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

اخى واستاذنا عبدالله

ابداع ما بعده ابداع

والابداع لا ياتى الا من كبير مثلك

بارك الله فيك

ولكن هل يمكن استخدام الكود كالاتى

اظهار اول 10 اعمده ثم اظهار من العمود 15الى العمود25

وبالتالى يصبح عدد الاعمده20

 

السلام عليكم

جزاكم الله خيرا

 

هذا طلبك ولكن عدد الاعمدة 21 وليس 20

'     عدد الاعمدة

Const Cont As Integer = 21


Private Sub ButtonFind_Click()
Dim Ary()
Dim r As Long, rr As Long, Lr As Long
Dim c As Integer, cc As Integer
Dim txt As String

txt = Me.TextFind
Me.ListBox1.Clear

With Sheets("البيانات")
    Lr = .Cells(.Rows.Count, "A").End(xlUp).Row
    
    For r = 2 To Lr
        If InStr(CStr(.Cells(r, "A")), txt) Then
            rr = rr + 1
            ReDim Preserve Ary(1 To Cont, 1 To rr)
            For c = 1 To Cont
                cc = Choose(c, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)
                Ary(c, rr) = .Cells(r, cc).Value
            Next
        End If
    Next
    
End With

If rr Then Me.ListBox1.Column = Ary

Erase Ary
End Sub

تقبلوا تحياتي وشكري

  • Like 5
رابط هذا التعليق
شارك

السلام عليكم

 

اخي الحبيب حمادة عمر ...........حفطكم الله

والله انني استحي من الرد عليكم..لاني لا اجد ما ارد به مقابل هذا الكرم

اكرمكم الله في الدنيا والآخرة

وجزاكم خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

 

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

اخى عبد الله

بارك الله فيك

عمل رائع ومتقن

من استاذ كبير

يبذل كل جهده لتوصيل المعلومه الى تلاميذه

نسأل الله لك دوام الصحه والعافيه

وبركه فى الرزق والعمر

وزيادة فى العلم النافع به

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information