ارجو المساعده فى الليست بوكس

[إبراهيم ابوليله]

الاخوه الكرام

لدى عدد14عمود

اريد اظهار 12عمود فقط فى الليست بوكس

وذلك بمجرد فتح اليوزر فورم

list.rar

[أبو حنــــين]

السلام عليكم

اخي ابراهيم جرب المرفق

list_1.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

طبعا من الاكيد انه بعد رد الاستاذ الحبيب / أبو حنين .. جزاه الله خيرا

لا يوجد رد .. فردودة نهائية واكثر من رااائعة

 

ولاثراء الموضوع وبطريقة اخري ... حيث كنت اجهز الرد وعند ارفاقه وجدت رد الكبير / ابو حنين

شاهد المرفق التالي ..

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

 

 

 

list-sama.rar

[حمادة عمر]

السلام عليكم

الاستاذ الحبيب / أبو حنين

بارك الله فيك

اعجبتني جدا جدا طريقة تنفيذ الطلب في المرفق الخاص بك بدون عناء او تعب

فالفكرة بسيطة وقريبة ولكن ( اللي يفكر بقا ) .... هههه

فعلا وعن حق انت صاحب اسلوب ( السهل الممتنع )

حيث اعجبتني جدا فكرة التحايل علي الليست باخفاء الاعمدة الغير مطلوبه بوضع القيمة صفر في هذا السطر

.ColumnWidths = "50;50;50;50;50;50;50;50;0;50;50;50;50;0"

دمت لنا معلمنا واخا جليلا ... هنيئاً لتلاميذك

تقبل خالص تحياتي

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

[أبو حنــــين]

أخي حمادة ( ابو سمسمه)

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

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

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

حفظكم الله و رعاكم

[عبدالله باقشير]

السلام عليكم

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

 

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

[إبراهيم ابوليله]

اخى ابو حنين

كود رائع وجميل جدا

وفيه ذكاء ودهاء

احييك عليه

ولكن ليس هذا ما اريده بالظبط

فانى اريد اظهار عدد12عمود فى الليست

بترتيب معين احدده انا

شاهد المرفق

list.rar

[إبراهيم ابوليله]

اخى حماده عمر

كل عام وانت بخير

اسعدنى مرورك الطيب

وانت ايضا قمت بعمل فكره فيها ذكاء ودهاء

وهذا دليل على اننا سنظل نتعلم منكم

فانت اساتذنا

ولكنى ارجو النظر الى طلبى

فى المشاركه7

[عبدالله باقشير]

اخى ابو حنين

كود رائع وجميل جدا

وفيه ذكاء ودهاء

احييك عليه

ولكن ليس هذا ما اريده بالظبط

فانى اريد اظهار عدد12عمود فى الليست

بترتيب معين احدده انا

شاهد المرفق

 

جرب الكود التالي

Const cont As Integer = 12


Private Sub UserForm_Activate()
Dim Ary()
Dim i As Integer, ii As Integer, Lr As Integer
ListBox1.ColumnCount = cont
With Sheet1
    Lr = .Cells(.Rows.Count, "a").End(xlUp).Row
    For i = 3 To Lr
        ii = ii + 1
        ReDim Preserve Ary(1 To cont, 1 To ii)
        
        Ary(1, ii) = .Cells(i, 1).Value
        Ary(2, ii) = .Cells(i, 2).Value
        Ary(3, ii) = .Cells(i, 3).Value
        Ary(4, ii) = .Cells(i, 4).Value
        Ary(5, ii) = .Cells(i, 6).Value
        Ary(6, ii) = .Cells(i, 8).Value
        Ary(7, ii) = .Cells(i, 9).Value
        Ary(8, ii) = .Cells(i, 10).Value
        Ary(9, ii) = .Cells(i, 11).Value
        Ary(10, ii) = .Cells(i, 12).Value
        Ary(11, ii) = .Cells(i, 5).Value
        Ary(12, ii) = .Cells(i, 7).Value
    Next
End With
Me.ListBox1.Column = Ary

Erase Ary
End Sub

[أبو حنــــين]

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

[إبراهيم ابوليله]

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

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

كود رائع جدا ومفهوم وسهل

بارك الله فيه

وكل عام وانت بخير

ولكن لى طلب اخر

كيف اقوم بالبحث واظهار ناتج البحث فى الليست بوكس

شاهد المرفق

بحيث يكون البحث بناء على العمود 5 والعمود 2list.rar

[عبدالله باقشير]

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

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

كود رائع جدا ومفهوم وسهل

بارك الله فيه

وكل عام وانت بخير

ولكن لى طلب اخر

كيف اقوم بالبحث واظهار ناتج البحث فى الليست بوكس

شاهد المرفق

بحيث يكون البحث بناء على العمود 5 والعمود 2list.rar

 

شاهد المرفق 2010

list3.rar

[حمادة عمر]

السلام عليكم

الاستاذ القدير العلامة الخبير / عبدالله باقشير

 

بارك الله فيك

دائما مبدع .. وهو طريقك المعهود الذي لا تتنازل عنه ابدا ... طريق الابداع

بل أنت قائد طريق ومسيرة الابداع في الاكسيل

حماك الله وحفظك لاهلك واولادك وتلاميذك اجمعين

وكل عام وانتم بخير

تقبل خالص تحياتي

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

[إبراهيم ابوليله]

الا

 

السلام عليكم

الاستاذ القدير العلامة الخبير / عبدالله باقشير

 

بارك الله فيك

دائما مبدع .. وهو طريقك المعهود الذي لا تتنازل عنه ابدا ... طريق الابداع

بل أنت قائد طريق ومسيرة الابداع في الاكسيل

حماك الله وحفظك لاهلك واولادك وتلاميذك اجمعين

وكل عام وانتم بخير

تقبل خالص تحياتي

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

اخى عبد الله

انت بالفعل استاذ الاساتذه

بارك الله فيك

واشكر اخى حماده على الكلمات التى لانجد بعدها كلمات نقولها فى شأنك

ذادك الله من علمه وفضله

[عبدالله باقشير]

السلام عليكم

الاستاذ القدير العلامة الخبير / عبدالله باقشير

بارك الله فيك

دائما مبدع .. وهو طريقك المعهود الذي لا تتنازل عنه ابدا ... طريق الابداع

بل أنت قائد طريق ومسيرة الابداع في الاكسيل

حماك الله وحفظك لاهلك واولادك وتلاميذك اجمعين

وكل عام وانتم بخير

تقبل خالص تحياتي

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

أكرمكم الله على كلماتكم الطيبة

وجزاكم الله خيرا وبارك فيكم

وكل عام وانتم بخير

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

[عبدالله باقشير]

الا

السلام عليكم

الاستاذ القدير العلامة الخبير / عبدالله باقشير

بارك الله فيك

دائما مبدع .. وهو طريقك المعهود الذي لا تتنازل عنه ابدا ... طريق الابداع

بل أنت قائد طريق ومسيرة الابداع في الاكسيل

حماك الله وحفظك لاهلك واولادك وتلاميذك اجمعين

وكل عام وانتم بخير

تقبل خالص تحياتي

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

اخى عبد الله

انت بالفعل استاذ الاساتذه

بارك الله فيك

واشكر اخى حماده على الكلمات التى لانجد بعدها كلمات نقولها فى شأنك

ذادك الله من علمه وفضله

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

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

[إبراهيم ابوليله]

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

عبدالله باقشير

عند العمل على الكود المرفق

فى المشاركه رقم 12

والذى يختص فى البحث فى الليست بوكس

عن طريق التكست بوكس

وجد ان البحث عن الاسماء يعتمد

على تفعيل خاصيه caps lock وذلك لاظهار الاسماء المكتوبه caps lock

وعدم تفعيل خاصيه caps lock وذلك لاظهار الاسماء الغير مكتوبه caps lock

وانا اريد عند البحث ان يظهر الاسماء بغض النظر عن كتابتها ب caps lock ام لاlist3.rar

[عبدالله باقشير]

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

عبدالله باقشير

عند العمل على الكود المرفق

فى المشاركه رقم 12

والذى يختص فى البحث فى الليست بوكس

عن طريق التكست بوكس

وجد ان البحث عن الاسماء يعتمد

على تفعيل خاصيه caps lock وذلك لاظهار الاسماء المكتوبه caps lock

وعدم تفعيل خاصيه caps lock وذلك لاظهار الاسماء الغير مكتوبه caps lock

وانا اريد عند البحث ان يظهر الاسماء بغض النظر عن كتابتها ب caps lock ام لاlist3.rar

 

غير سطر شرط البحث بهذا

If InStr(1, .Cells(i, "B"), Me.TextFind, vbTextCompare) Then

تحياتي

[إبراهيم ابوليله]

 

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

عبدالله باقشير

عند العمل على الكود المرفق

فى المشاركه رقم 12

والذى يختص فى البحث فى الليست بوكس

عن طريق التكست بوكس

وجد ان البحث عن الاسماء يعتمد

على تفعيل خاصيه caps lock وذلك لاظهار الاسماء المكتوبه caps lock

وعدم تفعيل خاصيه caps lock وذلك لاظهار الاسماء الغير مكتوبه caps lock

وانا اريد عند البحث ان يظهر الاسماء بغض النظر عن كتابتها ب caps lock ام لاlist3.rar

 

غير سطر شرط البحث بهذا

If InStr(1, .Cells(i, "B"), Me.TextFind, vbTextCompare) Then

تحياتي

 

اخى الكريم عبدالله

انت بالفعل استاذنا ومعلمنا الكبير

نسأل الله الا يحرمنا منك

وان يجازيك خيرا على ماتفعله

ولى سؤال اخر

كيف اجعل البحث مطابق لبدايه الكلام

بمعنى اننى لو عندى اسماء ثلا

aa

ab

ac

ca

ba

da

ثم قمت بالبحث وكتبت فى التيكست حرف a

يتم عرض فقط الكلمات التى تبدأب a

aa

ab

ac

وهكذا

[عبدالله باقشير]

ولى سؤال اخر

كيف اجعل البحث مطابق لبدايه الكلام

بمعنى اننى لو عندى اسماء ثلا

aa

ab

ac

ca

ba

da

ثم قمت بالبحث وكتبت فى التيكست حرف a

يتم عرض فقط الكلمات التى تبدأب a

aa

ab

ac

وهكذا

 

غير سطر شرط البحث بهذا

If InStr(1, .Cells(i, "B"), Me.TextFind, vbTextCompare) = 1 Then

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا

عبدالله باقشير

لا أجد من الكلمات ما اعبر بها عن شكرى وتقديرى لك

بارك الله فيك

[إبراهيم ابوليله]

اخى عبدالله

عند التطبيق

وزياده عدد السطور فى الاكسيل

حدث خطأ اثناء استدعاء الفورم

ارجو النظر الى المرفق

list3.rar

[عبدالله باقشير]

اخى عبدالله

عند التطبيق

وزياده عدد السطور فى الاكسيل

حدث خطأ اثناء استدعاء الفورم

ارجو النظر الى المرفق

 

غير نوع المتغيرات من Integer الى Long

Dim i As Long, ii As Long, Lr As Long

واصبر شويه تنال مرادك

 

تحياتي

[إبراهيم ابوليله]

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

مشكورا على الرد

بارك الله فيك

[إبراهيم ابوليله]

اخى عبدالله

ارجو مساعدتى فى المرفق

طلبى

هو عند فتح الفوم

لايظهر فى الليست بوكس

الا البيانات الخاصه

بحرف A

الموجود فى العمود الاخير

list3-FOR MOR12COULM.rar