عبدالله باقشير قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 السلام عليكم إضافة اكثر من 10 اعمدة الى اللست بوكس وخاصة عند البحث الملاحظ دائما عند اضافة قيم الى اللست بوكس يستخدم الغرض AddItem لكن عندما تكون الاعمدة اكثر من 10 اعمدة يظهر خطأ وهذا البديل وهواسرع وافضله حتى ولو كانت الاعمدة لا تتجاوز 10 اعمدة الملف 2003 ListBox.rar 3 1
أبو حنــــين قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 جزاك الله خيرا أخي عبد الله هذا موضوع مهم جدا و قمت بعين الصواب عندما وضعته في موضوع مستقل بارك الله فيكم
عادل ابوزيد قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 جزاك الله كل خير وجعله فى ميزان حسناتك ونفعك به فى الدنيا والاخرة نجمه جديده تلمع فى سماء منتدى اوفسينا من اعداد العلامه عبدالله باقشير
ريان أحمد قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 نعم والله إنك مرجع للأكواد مهما قلنا ومهما قمنا بالرد لن نوافيك حقك
ضاحي الغريب قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 اخي الحبيب وأستاذنا الكبير // عبدالله باقشير السلام عليكم ورحمة الله وبركاته فعلا موضوع كان ذو اهمية كبيرة وانا منذ فترة ابحث عن طريقة لزيادة اعمدة اليست بوكس عن 10 اعمدة بارك الله فيك دائما سباق للخير والجديد ودائما نتعلم منك في كل مشاركة اضافة جديدة في الاكسيل تقبل تحياتي واحترامي
عبدالله باقشير قام بنشر يناير 4, 2014 الكاتب قام بنشر يناير 4, 2014 جزاك الله خيرا أخي عبد الله هذا موضوع مهم جدا و قمت بعين الصواب عندما وضعته في موضوع مستقل بارك الله فيكم السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
عبدالله باقشير قام بنشر يناير 4, 2014 الكاتب قام بنشر يناير 4, 2014 السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
عبدالله باقشير قام بنشر يناير 4, 2014 الكاتب قام بنشر يناير 4, 2014 جزاك الله كل خير وجعله فى ميزان حسناتك ونفعك به فى الدنيا والاخرة نجمه جديده تلمع فى سماء منتدى اوفسينا من اعداد العلامه عبدالله باقشير السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
عبدالله باقشير قام بنشر يناير 4, 2014 الكاتب قام بنشر يناير 4, 2014 نعم والله إنك مرجع للأكواد مهما قلنا ومهما قمنا بالرد لن نوافيك حقك السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
عبدالله باقشير قام بنشر يناير 4, 2014 الكاتب قام بنشر يناير 4, 2014 اخي الحبيب وأستاذنا الكبير // عبدالله باقشير السلام عليكم ورحمة الله وبركاته فعلا موضوع كان ذو اهمية كبيرة وانا منذ فترة ابحث عن طريقة لزيادة اعمدة اليست بوكس عن 10 اعمدة بارك الله فيك دائما سباق للخير والجديد ودائما نتعلم منك في كل مشاركة اضافة جديدة في الاكسيل تقبل تحياتي واحترامي السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
حمادة باشا قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 أستاذنا الفاضل/ عبدالله باقشير السلام عليكم ورحمة الله وبركاته جزاكم الله كل خير علي هذا العمل الرائع كعادتكم تقبل تحياتي
عبدالله باقشير قام بنشر يناير 4, 2014 الكاتب قام بنشر يناير 4, 2014 أستاذنا الفاضل/ عبدالله باقشير السلام عليكم ورحمة الله وبركاته جزاكم الله كل خير علي هذا العمل الرائع كعادتكم تقبل تحياتي السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
عادل ابوزيد قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 استاذنا الفاضل لو تكرمت ممكن عمل اضافة وهى طباعة النتيجة ولكن فى ورقة مستقلة وليس طباعة الفورم والاضافة الاخرى هى امكانية التعديل تقبل تحياتى وشكرى وتقديرى
أبو محمد عباس قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ الكبير والعالم العلامة عبد الله باقشير اعزكم الله دائما ابداع واتقان في جميع اعمالكم زادك الله علما وشرفا وفقكم الله واعطاكم الصحة والعافية تقبل فائق احترامي وتقديري
إبراهيم ابوليله قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 اخى واستاذنا عبدالله ابداع ما بعده ابداع والابداع لا ياتى الا من كبير مثلك بارك الله فيك ولكن هل يمكن استخدام الكود كالاتى اظهار اول 10 اعمده ثم اظهار من العمود 15الى العمود25 وبالتالى يصبح عدد الاعمده20
saad abed قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 (معدل) اخي الحبيب وأستاذنا الكبير // عبدالله باقشير السلام عليكم ورحمة الله وبركاته فعلا موضوع كان ذو اهمية كبيرة وانا منذ فترة ابحث عن طريقة لزيادة اعمدة اليست بوكس عن 10 اعمدة بارك الله فيك دائما سباق للخير والجديد ودائما نتعلم منك في كل مشاركة اضافة جديدة في الاكسيل تقبل تحياتي واحترامي السلام عليكم جزاك الله خيرا دائما نتعلم منك كل ما هو جديد بارك الله فيك تم تعديل يناير 4, 2014 بواسطه سعد عابد
حمادة عمر قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 (معدل) السلام عليكم الاستاذ القدير والعلامه الخبير / عبد الله باقشير بارك الله فيك بالفعل استاذي موضوع مهم ورائع جدا والجميع يحتاج اليه والأروع انه من استاذ في قدرك وعلمك وخلقك الكريم ودائما نتعلم منك شئ جديد في كل سطر من اكوادك الرائعة وايضا من كل رد او مشاركة لك .. فتعلمنا منها الأدب و الخلق الجم الواضح في ردودك الصادر من أدبكم وخلقكم وشخصكم الكريم وانتهز الفرصة في الرد في هذا الموضوع لتقديم كل الشكر كل العرفان كل الاعتراف بالجميل كل المحبة و التقدير جزاك الله عنا خيرا وزادك الله من فضله و من علمه تقبل خالص تحياتي و عذرا للاطاله عليكم تلميذك تم تعديل يناير 5, 2014 بواسطه حمادة عمر 2
عبدالله باقشير قام بنشر يناير 5, 2014 الكاتب قام بنشر يناير 5, 2014 استاذنا الفاضل لو تكرمت ممكن عمل اضافة وهى طباعة النتيجة ولكن فى ورقة مستقلة وليس طباعة الفورم والاضافة الاخرى هى امكانية التعديل تقبل تحياتى وشكرى وتقديرى هذا المرفق فقط لاريك صيغة الكود المستخدم في مثل هذه الحالات وليس كعمل معين بحد ذاته. تقبلوا تحياتي وشكري
عبدالله باقشير قام بنشر يناير 5, 2014 الكاتب قام بنشر يناير 5, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ الكبير والعالم العلامة عبد الله باقشير اعزكم الله دائما ابداع واتقان في جميع اعمالكم زادك الله علما وشرفا وفقكم الله واعطاكم الصحة والعافية تقبل فائق احترامي وتقديري السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري
عبدالله باقشير قام بنشر يناير 5, 2014 الكاتب قام بنشر يناير 5, 2014 اخى واستاذنا عبدالله ابداع ما بعده ابداع والابداع لا ياتى الا من كبير مثلك بارك الله فيك ولكن هل يمكن استخدام الكود كالاتى اظهار اول 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 تقبلوا تحياتي وشكري 5
عبدالله باقشير قام بنشر يناير 5, 2014 الكاتب قام بنشر يناير 5, 2014 السلام عليكم اخي الحبيب حمادة عمر ...........حفطكم الله والله انني استحي من الرد عليكم..لاني لا اجد ما ارد به مقابل هذا الكرم اكرمكم الله في الدنيا والآخرة وجزاكم خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري
إبراهيم ابوليله قام بنشر يناير 5, 2014 قام بنشر يناير 5, 2014 اخى عبد الله بارك الله فيك عمل رائع ومتقن من استاذ كبير يبذل كل جهده لتوصيل المعلومه الى تلاميذه نسأل الله لك دوام الصحه والعافيه وبركه فى الرزق والعمر وزيادة فى العلم النافع به
عبدالله باقشير قام بنشر يناير 5, 2014 الكاتب قام بنشر يناير 5, 2014 دائماً مواضيعك قيمة جداً بارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.