بحث من فورم بعدة خيارات ووضع النتائج في listbox

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

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

 

هذا طلب للاخ ذيب اليمن وجعلناه هنا لتعم الفائدة

 

ملاحظات :
اذا لم تكتب اي تاريخ
هو يعين التواريخ تلقائيا
من اصغر تاريخ في العمود C
الى اكبر تاريخ
======================

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

المرفق 2003
total.rar

[الذيب 2015]

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

تشكر على الرد السريع

حاولت مرارا ولكن لم أفلح

الفكرة تقريبا نفس الفكرة

ملاحظة طلبي أن يتم البحث بالعكس

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

أو العكس

اذا وضعت الكود ليس بشرط أن أضع التاريخ

يعني تكون لي حرية الخيار

أرجو أن يصل استفساري

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

[جمال عبد السميع]

ماشاء الله عليك ياأستاذ وحشني شغل حضرتك الواحد ياخدة كدة دون التفكير فية لأنة حيتعب في الوصول ألي كيفية عملة تسلم أيدك أستاذنا الرائع ( خبور ) ياريت تستمر هذه التحف لأنها كنز بمعني الكلمة

[رجب جاويش]

الأستاذ الكبير / خبور خير

بعد التحية

ياريت كل عمل لحضرتك يكون مصحوب بشرح ولو بسيط

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

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

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

السلام عليكم

اخي الفاضل محمود ---------حفظه الله

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

اذا وصلت الى نقطة تريد الاستفسار عنها

اسال وان شاء الله سنجيبك

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

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

السلام عليكم

اخي الفاضل رجب جاويش---------حفظه الله

انسخ الاسطر التي تريد شرحها والاستفسار عنها

وانا تحت امرك

اما ان اشرح اي كود اعمله ده صعب ( يتطلب وقت وجهد ونفس وهوى)

واغلب ما في الاكواد مكرر ومفهوم

ولكن قد تكون هناك جزئية معينة غامضة

لا مانع من السؤال عنها

ولا مانع عندي ان اجيبك عليها

والاصح

واجب علي ان اجيبك عنها

انا في انتظارك

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

[عبدالله المجرب]

ما شاء الله

تبارك الله

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

سلمت يمينك ابا علي على هذه التحفة الرائعة

[عبدالله المجرب]

total.rar

قمت بعد اذن العلامة خبور بإضافة كود لاختيار الكود بعد الضغط على دبل كليك في اللست بوكس

[اوفيس 2003]

عمل رائع ماشاء الله عليك

ولكن مافهمت اخي عبد الله الإضافة التي قمت بها

[عبدالله المجرب]

عمل رائع ماشاء الله عليك

ولكن مافهمت اخي عبد الله الإضافة التي قمت بها

جرب البحث عن رقم 6 مثلاً

ثم اضغط دبل كليك على احدى نتائج البحث

ستجد انه تم اختيار خانة الرقم المختار واغلاق الفورم

[الجزيرة]

ابداع × ابداع

هكذا عهدناك

[رجب جاويش]

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

بعد أجمل وأرق تحياتى

وعذرا لأنى أثقل عليك

ولكن هى رغبتى فى أن أنهل من بحر معرفتك

أرجو شرح هذا الجزء من الكود

With Range("A1")

For R = 2 To LastRow

	 Select Case .Cells(R, 3).Value2: Case dt1 To dt2

		 If Len(Trim(Me.TextFind)) Then ib = CStr(.Cells(R, 1)) = CStr(Me.TextFind) Else ib = True

		 If ib Then

			 Me.ListFind.AddItem

			 For i = 1 To ContColmn

				 If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) Else _

				 MyValue = .Cells(R, i).Value2

				 Me.ListFind.List(Me.ListFind.ListCount - 1, i - 1) = MyValue

			 Next

			 Me.ListFind1.AddItem .Cells(R, 11).Value

		 End If

	 End Select

Next

End With

وعذرا مرة أخرى ان كنت أثقل عليك

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

السلام عليكم

اخي الفاضل / رجب جاويش --حفظه الله

انطلاقا من الخلية a1

حددنا السلسلة من الصف 2 الى آخر قيمة في العمود a

اذا كان التاريخ الموجود في الخلية العمود 3 محصور من dt1 الى dt2

Select Case .Cells(R, 3).Value2: Case dt1 To dt2

ممكن تستخدم if بدلا عن التعبير Select Case اذاكان التاريخ اكبر ويساوي dt1 و اصغر ويساوي dt2

If Len(Trim(Me.TextFind)) Then ib = CStr(.Cells(R, 1)) = CStr(Me.TextFind) Else ib = True

هنا استخدمت المتغبر ib من النوع Boolean علشان اربط الشرط فيه اذا كانت قيمة البحث الموجودة في Me.TextFind ليست فارغة وضعت شرط التساوي بين قيمة البحث والقيمة في العمود 1 غير ذلك ياخذ القيمة الجزئية

Me.ListFind.AddItem

For i = 1 To ContColmn

If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) Else _

MyValue = .Cells(R, i).Value2

Me.ListFind.List(Me.ListFind.ListCount - 1, i - 1) = MyValue

Next

هي اضافة البيانات الى اعمدة اللست اما الجملة الشرطية هذه

If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) Else _

MyValue = .Cells(R, i).Value2

علشان اذا كانت القيمة تاريخ يعملها بالتنسيق DateFormt

غير ذلك تبقى مثل ما هي عليه

ارجوا ان يكون الشرح واضح لديك

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

[رجب جاويش]

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

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

تقبل أفضل تحياتى واحترامى على اهتمامك وذوقك الرفيع

دمتم فى رعاية الله وحفظه

:fff: :fff: :fff:

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

السلام عليكم

في المرفق التالي 2003

استخدمت لست واحد فقط

واضفت امكانية تحديد الخلية بدبل شيك على اللست

اضافة اخي الحبيب عبدالله المجرب

ودمتم في حفظ الله

total2.rar

[الذيب 2015]

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

أشكر جميع الاساتذة والمشاركين اللذين ردوا على هذ الموضوع

وأخص بالذكر الاستاذ عبدالله المجرب

والاستاذ / عبدالله باقشير

ماشاء الله تبار ك الله

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

هو المطلوب بالضبط جزاك الله خيرا على هذا العمل والشرح الاأكثر من رائع

ليس عندي ماأقول إلا زادك الله علما فوق علمك

[الذيب 2015]

الاستاذ عبدالله باقشير

أو الاساتذة الكرام بهذ المنتدى الكبير

سأثقل عليكم بعض الشي

هل يمكن وضع زر في الفورم السابق يقوم بالتالي

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

ولكم جزيل الشكر

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

الاستاذ عبدالله باقشير

أو الاساتذة الكرام بهذ المنتدى الكبير

سأثقل عليكم بعض الشي

هل يمكن وضع زر في الفورم السابق يقوم بالتالي

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

ولكم جزيل الشكر

عند الضغط على الزر (حفظ اللست في ملف جديد)

يتم اضافة مصنف جديد بورقة واحدة

يتم اضافة اللست فيها

وبعدين انت لك حرية حفظه في اي مكان تريد

او عدم حفظه

total3.rar

[الذيب 2015]

من قال بارك الله فيك فقد أبلغ بالثناء

وأنا أقول

بارك الله فيك ياأستاذ عبدالله باقشير

وشكرا

[ابو القبطان]

استاذ : عبد الله

كل كلمات الثناء والمدح ..

... لا توفيك قدرك

ولكن نقول جزاك الله خيراً بما علمتنا

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

اخوك

حسن علي

[مهند 2002]

الاخوة الاساتذة السلام عليكم :

بعد الشكر على هذا العمل الابداعي

ارغب بطلب

هل بالامكان اضافة قائمة منسدلة في TEXT BOX الكود بحيث يكون هناك مجال لجلب البيانات ( ووضعها في الفورم )

باكثر من خيار ... حسب الكود ( كما هو حاليا ) مثلا بحسب رقم سند القبض و بحسب معطيات اخرى ضمن الترويسة

شكرا

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

استاذ : عبد الله

كل كلمات الثناء والمدح ..

... لا توفيك قدرك

ولكن نقول جزاك الله خيراً بما علمتنا

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

اخوك

حسن علي

سعدت كثيرا بمرورك العطر

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

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

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

الاخوة الاساتذة السلام عليكم :

بعد الشكر على هذا العمل الابداعي

ارغب بطلب

هل بالامكان اضافة قائمة منسدلة في TEXT BOX الكود بحيث يكون هناك مجال لجلب البيانات ( ووضعها في الفورم )

باكثر من خيار ... حسب الكود ( كما هو حاليا ) مثلا بحسب رقم سند القبض و بحسب معطيات اخرى ضمن الترويسة

شكرا

total5.rar

[saad abed]

الاستاذ الفاضل خبور خير

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

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

متعك الله بالصحة والعافية

سعد عابد

[ياسر الحافظ]

بسم الله الرحمن الرحيم

استاذنا الكبير الغالي عبد الله باقشير " خبور خير "

بعد غيبة طويلة لم استطع خلالها الدخول الى النت واستمتع بأعمال اساتذتي واخوتي الاعزاء في اوفيسنا

سنحت لي الظروف بالدخول واول استعراض لي كان هذا الموضوع ... ما شاء الله ... ما شاء الله

طبعا انا لا اجرء على تقييم اعمالك فأنت فارس وعالم لايشق له غبار ... وصاحب فضل كبير ( والفضل لله )

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

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

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

متعك الله بالصحة والعافية

وفقك الله ....

ابو الحارث

تم تعديل يونيو 19, 2012 بواسطه ياسر الحافظ