البحث عن جزء معين من كود

[Nadia Khalil]

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

 

لدي كود مكون من مقطعين

1- التاريخ على الفورمات (d/m/yyyy)

2- سريال لا يتكرر في السنة الواحدة

 

مثال : 22/5/2013/588

 

المطلوب : عند استخدام اليوزرفورم واختيار السنة ثم اادخال  المقطع الثاني (السيريال) في التكست بوكس txtIC يتم البحث في sheet1 عن الكود معتمداً على السنة التي تم اختيارها

 

ثم إظهار جميع البيانات المتعلقة بالكود في التكست بوكسز الخاصة  أسفل اليوزرفورم

 

مثال : عند اختيار سنة 2013 ثم كتابة الرقم 588 في التكست بوكس txtIC يتم إظهار نتائج هذا الكود 22/5/2013/588

 

لدي طلب ثاني في نفس الملف ولكن سأرفقه لاحقا حتى لا أثقل على الأخوة 

 

 

 

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

book1-trial.rar

تم تعديل أغسطس 7, 2013 بواسطه Nadia Khalil

[بن علية حاجي]

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

 

أختي الكريمة، معذرة أولا على الإطالة في الرد وثانيا لأني لم أستعمل الفورم الذي وضعته (لا أتحكم كثيرا بالفورم) واستعملت المعادلات لعمل المطلوب مع إضافة بالتنسيق الشرطي ... أرجو أن يفي هذا بالمطلوب...

 

أخوك بن علية

 

الملف المرفق : book1-trial.rar

تم تعديل أغسطس 7, 2013 بواسطه بن علية حاجي

[ضاحي الغريب]

الأخت الكريمة// نادية

بالاضافة الي حل اخي العزيز بن علية

تم تعديل الفورم يمكنك البحث كما طلبت

في الكمبوبوكس اكتبي السنة مثلا  2013

وفي تكست بوكس ادخلي الرقم مثلا  91

واضغطي زر بحث

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

 

ملاحظة ادخلي المقطع الثاني بدون "/"

 

بحث مخصص ضاحي.rar

[الـعيدروس]

السلام عليكم

 

مرفق اخي الحبيب ضاحي كافي وافي

لاثراء الموضوع فقط

Nadia_Offic.rar

تم تعديل أغسطس 8, 2013 بواسطه عباد

[ضاحي الغريب]

أخي الحبيب وأستاذي الأستاذ/ عباد

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

عملك اكثر من رائع وفكرته مبدعة ودائما نتعلم من طروحاتكم الغالية

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

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

وحتي تكون هناك خيارات امام الاخت السائلة

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

 

Nadia_Offic2.rar

[بن علية حاجي]

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

 

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

 

أخوكم بن علية

 

الملف المرفق : Nadia_Offic3.rar

[Nadia Khalil]

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

 

أمام جميع المشاركات منبهرة من الأخوة ومساعدتهم وإثرائهم للموضوع كمان - كده كتييير

 

جزيل الشكر لأخوتي { بن علية و عباد وضاحي} مع الاحتفاظ بالألقااب

 

أستأذنكم في بعض الأسئلة الأخرى :

 

1- أريد إضافة Label مهمته هي القيام بالتحقق من حالة المعمل Lab Status بعد إظهار النتيجة - فاذا كانت حالة المعمل Approved يتم تلوين الـ Label باللون الأخضر - واذا كانت حالة المعمل Rejected يكون الـ Label باللون الأحمر - واا كانت Quarantined يكون اللون أصفر

 

2- أريد كود لاستخدام زر Open MRR وتكون مهمته فتح ملفات PDF من مسار أقوم بتحديده - والملف المراد فتحه اسمه هو نفس اسم السيريال الذي تم اختياره في txtIC

 

شاكرة للجميع مرة أخرى

[بن علية حاجي]

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

 

أختي الكريمة نادية، قمت ببعض التعديلات على كود البحث إذ أني وجدت فيه خللا بعدم اعتبار "السنة" في البحث مع إضافة حل للمطلوب الأول (التحقق من حالة المعمل Lab Status بعد إظهار النتيجة) بطريقتين (في الملفين المرفقين) الأولى بتلوين textbox ذاته  الخاص بحالة المعمل في الفورم والثاني تلوين textbox آخر تم إنشاؤه مقابل textbox الخاص بحالة المعمل...

تم أيضا كحل للمطلوب الثاني ربط زر Open MRR بكود يقوم بفتح المعني من مسار يتم تحديده في الكود، والكود كما يلي :

Private Sub cmdClear_Click()
Dim File As String, Emplacement As String
On Error Resume Next
Emplacement = "C:\Test\"
File = Emplacement & Split(txtICn.Value, "/")(2) & "_" & Split(txtICn.Value, "/")(3) & ".pdf"
If Dir(Fichier) <> "" Then ShellExecute 0, "open", File, "", "", 0
End Sub

* الملف الذي يتم فتحه من المسار تكون تسميته من الشكل (مثلا) :

2012_257.pdf

* المسار يتم تغييره وتحديده في الكود في السطر :

Emplacement = "C:\Test\"

أرجو أن يكون هذا العمل مستوفيا كل المطاليب....

 

أخوك بن علية

 

الملف المرفق :  Nadia_Offic4_5.rar

تم تعديل أغسطس 11, 2013 بواسطه بن علية حاجي

[Nadia Khalil]

أخي بن علية - جزاك الله خيرا 

 

الملف أكثر من رائع ويعمل بشكل جيد

 

ولكن هذا التطبيق سأقوم بوضعه فيي فولدر على سيرفر الشركة حيث أنه سيعمل عليه اكثر من شخص وأكثر من جهاز والسؤال

 

كيف أقوم بتغيير المسار اذا كان الملف سيوضع على سيرفر الشركة حيث أنه لا يوجد بارتيشن معين ؟؟؟

 

 

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

[الـعيدروس]

السلام عليكم

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

اضن المراد اختيار الملف وفتحه

بيكون التعديل على كود زر Open MRR كالتالي

Private Sub cmdClear_Click()
Dim File As String, Emplacement As String
Dim Pd_a
On Error Resume Next
'Emplacement = "C:\Test\"
'File = Emplacement & Split(txtICn.Value, "/")(2) & "_" & Split(txtICn.Value, "/")(3) & ".pdf"
Pd_a = Application.GetOpenFilename("pdf Files (*.pdf), *.pdf,,,")
If Dir(Fichier) <> "" Then ShellExecute 0, "open", Pd_a, "", "", 0
End Sub

[بن علية حاجي]

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

 

أختي الكريمة نادية، ليست عندي فكرة عن كيفية عمل السيرفر ولكني أعتقد أن عملها مماثل لعمل أي جهاز كمبيوتر وفي هذه الحالة وإذا كانت ملفات PDF التي يتم طلب فتحها بواسطة الكود موضوعة مع ملف إكسيل الذي يتم العمل عليه (في الموقع نفسه) فإنه يتم استبدال السطر (في الكود) :

Emplacement = "C:\TEST\"

بالسطر:

Emplacement = ThisWorkbook.Path & "\"

ملاحظة : في كود الزر Open MRR أخطأت خطأ مطبعيا وهو في العبارة :

If Dir(Fichier) <> ""

الرجاء تصحيحها بالعبارة :

If Dir(File) <> ""

والله أعلى وأعلم

 

 

أخوك بن علية

تم تعديل أغسطس 11, 2013 بواسطه بن علية حاجي

[Nadia Khalil]

رائع كالعادة أخي بن علية 

 

التطبيق يعمل على ما يرام ولكن هل من الممكن أن أطمع في طلب أخير ولكنه غير مهم وغير مستعجل

 

ماذا اذا أردت أن أزيل الكومبو بوكس الخاص بالسنة - وعند القيام بكتابة رقم في textIC يقوم بادراج كل السيريالات في كل السنين وذلك عن طريق ListBox 

 

هذا الـ ListBox عند الضغط على أحد الصفوف فيه يقوم بتوليد الداتا في التكست بوكسز باسفل وكذلك يقوم زر OpenMRR باكتشاف السيريال الذي تم تحديده من الـ ListBox

 

2- بالاضافة هل من الممكن عمل كود يقوم بعمل باك آب وحفظ هذا الشيت المحتوي على البيانات (الشيت فقط وليس ملف الاكسل كاملاً) - في ملف اكسل أو ملف xps

 

الشكر موصول لأخي عباد بالطبع 

تم تعديل أغسطس 12, 2013 بواسطه Nadia Khalil

[بن علية حاجي]

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

 

أختي الكريمة نادية، بفضل الله تم العمل على الملف واستيفاء كل ما هو مطلوب في ردك، بالنسبة للمطلوب الأول تم التعديل على الكود في ملف أخي الكريم ضاحي مع إضافات أخرى... بالنسبة لكود الحفظ فهو الأخر تعديل على كود من النت بما يناسب المطلوب وهو يقوم بحفظ Sheet1 فقط (دون أزرار الأكواد) في ملف جديد في مسار الملف الأصلي (إكسيل) ويتم تسميته تلقائيا بالاسم Backup متبوع بالتاريخ الحالي حسب الشكل : Backup_dd_MM_yy

 

أضفت أيضا في Sheet2 عملية البحث حسب رقم IC فقط (دون السنة) باستعمال المعادلات (معادلات صفيف) مع إضافة تنسيق شرطي لتأطير البيانات الموجودة في الجدول...

 

ملاحظة : يبقى الزر Open MRR الخاص بفتح ملفات PDF يعمل بالطريقة السابقة غير أنه يفتح هذه الملفات من مسار الملف الأصلي ويجب أن تكون هذه الملفات محفوظة حسب الشكل الذي ذكرته في السابق مثلا :

2012_257.pdf

أرجو أن أكون قد وفيت المطلوب... 

 

أخوك بن علية

Nadia_Offic6.rar

تم تعديل أغسطس 13, 2013 بواسطه بن علية حاجي

[Nadia Khalil]

أخي بن علية - جزاك الله خيراً

 

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

 

آسفة مرة ثانية 

 

قمت بتحميل الملف من قبل وقمت بتجربته الآن وهو يعمل بشكل مذهل 

 

واذا كنت تشفع لي في طلب آخر استاذي العزيز - فهل أستطيع إدخال ليست بوكس في نفس الفورم السابق - مهمته أن يقوم بحصر وتجميع الريكوردز records التي تحتوي على نفس اسم الخامة التي تم البحث عنها بواسطة ال textIC

 

مثال: قمت بعمل بحث عن هذا السيريال 236 وقادني البحث ألى هذه الخامة Benzyl alcohol - المطلوب في التكست بوكس الجديد ان يقوم بحصر كل الأوردرات التي تحتوي على هذه الخامة

 

وهذا الطلب كرما لا أمراً

 

جزيل الشكر أستاذ بن علية 

[الـعيدروس]

اذا نتائج البحث عدة خامات

اضن ادخال شرط الخامه المراد حصرها من نتائج البحث 

بكمبوكس يكون افضل حسب فهمي للطلب

ومن ثم بعد ادخال الشرط يعرض النتائج في Lisbox2

هل هذا ماتريد ؟

[ضاحي الغريب]

أختنا الكريمة // نادية

جربي المرفق علي مافهمت من طلبك

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

 

 

Nadia_Offic6.rar

[بن علية حاجي]

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

 

أخي الكريمة نادية، لست أدري ماذا تعنين بـ "الأوردرات" هل هي أرقام IC المقابلة لاسم Item Name ؟... إذا كان هذا هو المقصود فقد تم التعديل على الكود بما يوافق المطلوب وإضافة ListBox لعرض كل هذه الأرقام في الملف المرفق...

تم أيضا التعديل على الفورم بإضافة رؤوس أعمدة (باستعمال Labels) الليست بوكس الخاص بعرض نتائج البحث حسب Combobox... قمت بتعديل على كود البحث حيث أنه كان يجلب كل الأرقام التي تحتوي على الرقم المحجوز في الكمبوبوكس وليس على الأرقام التي تنتهي بهذا الرقم... وأيضا تم إضافة Textbox يلوّن باللون المطلوب حسب مضمون "حالة المعمل" Lab Status

 

أرجو أني فهمت واستوفيت المطلوب...

 

أخوك بن علية

 

 

الملف المرفق : Nadia_Offic7.rar

[Nadia Khalil]

السلام عليكم

 

 

جزاكم الله خيراً - وآسفة اذا كانت مشاركتى غير واضحة

 

الأستاذ ضاحي الغريب - نعم هذا ما اريد تماما جزاك الله خيرا عمل رائع سأحاول الاضافة على هذا التكست بوكس ليقوم بارسال البيانات للخانات بأسفل مثل التكست بوكس الأقدم

 

أستاذي بن علية ربنا يبارك فيك ع المتابعة وبالفعل ما قصدته هو ما ورد في رد الأخ ضاحي - شايلاك للتقيلة :)

 

أخي عباد مشكور ع التواصل جزاك الله خيرا

 

سأقوم بالتجربة ان شاء الله -

[Nadia Khalil]

السلام عليكم

 

أخوتي - وأنا أقوم بتجربة البرنامج لاحظت الآتي :

 

عند البحث بقيمة أقل من ثلاثة أرقام وليكن (50) فإن نتائج البحث تظهر فيها كل القيم التي تحتوي على الرقم (50) كـ (950) أو (504)

 

هل هناك طريقة لتلافي ذلك ؟؟؟

[بن علية حاجي]

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

 

السلام عليكم

 

أخوتي - وأنا أقوم بتجربة البرنامج لاحظت الآتي :

 

عند البحث بقيمة أقل من ثلاثة أرقام وليكن (50) فإن نتائج البحث تظهر فيها كل القيم التي تحتوي على الرقم (50) كـ (950) أو (504)

 

هل هناك طريقة لتلافي ذلك ؟؟؟

أختي الكريمة نادية، لقد تم التغلب على هذه المشكلة في ردي السابق 17# بتصحيح كود البحث... قمت بدمج ما قدمه أخي الحبيب ضاحي (جازاه الله عنا كل خير) مع عملي في ملف جديد حيث أضفت على التكست بوكس الجديد تعديلا ليقوم بإرسال البيانات للخانات بأسفل مثل التكست بوكس الأقدم (توفيرا للوقت)... أرجو أن تفي هذه التعديلات على الملف بالغرض المطلوب...

 

أخوك بن علية

 

المرفق : Nadia_Offic8.rar

تم تعديل أغسطس 24, 2013 بواسطه بن علية حاجي

[الـعيدروس]

تعديل بسيط

لملف الاستاذ القدير بن عليه

ترك الشرط للمستخدم

------------------

تحديد مربع الاختيار

بحث حسب القيمة

- القيمة المطابقه

------------------

الغاء تحديد مربع الاختيار

بحث عن اي قيمة تبدء بالرقم المعطى

Nadia_Offic8_a.rar

[Nadia Khalil]

أخي بن علية ارجو مراجعة المرفق 

 

عندما أقوم بكتابة أي رقم مكون من رقمين لا تظهر أي نتائج للبحث

 

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

[Nadia Khalil]

أخي عباد هل يمكن الغاء هذا التكست بوكس

 

حاولت الغاؤه ولكن يعطيني رسالة خطأ

 

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

[بن علية حاجي]

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

أخي بن علية ارجو مراجعة المرفق 

 

عندما أقوم بكتابة أي رقم مكون من رقمين لا تظهر أي نتائج للبحث

 

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

أختي الكريمة نادية، هل جربت الأعداد التالية :  10 ، 44 ، 74 ، 90 ، 91 وهي أعداد موجودة أرقام ICn الخاصة بها... ربما تستعملين أعدادا لا تطابق أرقام الـ IC الموجودة في الجدول....

 

أخوك بن علية

[Nadia Khalil]

نعم أخي قمت بالتجربة ولكن لا تظهر أي نتائج 

 

ولكن في كود أخي عباد تظهر نتائج بالفعل ولكني أريد إزالة التكست بوكس الأخير الذي قام الخ عياد بعمله