Nadia Khalil قام بنشر أغسطس 7, 2013 مشاركة قام بنشر أغسطس 7, 2013 (معدل) السلام عليكم ورحمة الله لدي كود مكون من مقطعين 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 1 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 7, 2013 مشاركة قام بنشر أغسطس 7, 2013 (معدل) السلام عليكم ورحمة الله أختي الكريمة، معذرة أولا على الإطالة في الرد وثانيا لأني لم أستعمل الفورم الذي وضعته (لا أتحكم كثيرا بالفورم) واستعملت المعادلات لعمل المطلوب مع إضافة بالتنسيق الشرطي ... أرجو أن يفي هذا بالمطلوب... أخوك بن علية الملف المرفق : book1-trial.rar تم تعديل أغسطس 7, 2013 بواسطه بن علية حاجي 1 رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أغسطس 8, 2013 مشاركة قام بنشر أغسطس 8, 2013 الأخت الكريمة// نادية بالاضافة الي حل اخي العزيز بن علية تم تعديل الفورم يمكنك البحث كما طلبت في الكمبوبوكس اكتبي السنة مثلا 2013 وفي تكست بوكس ادخلي الرقم مثلا 91 واضغطي زر بحث سوف تظهر قيمة البحث في تكست بوكس ملاحظة ادخلي المقطع الثاني بدون "/" بحث مخصص ضاحي.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 8, 2013 مشاركة قام بنشر أغسطس 8, 2013 (معدل) السلام عليكم مرفق اخي الحبيب ضاحي كافي وافي لاثراء الموضوع فقط Nadia_Offic.rar تم تعديل أغسطس 8, 2013 بواسطه عباد رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أغسطس 8, 2013 مشاركة قام بنشر أغسطس 8, 2013 أخي الحبيب وأستاذي الأستاذ/ عباد كل عام وانتم بخير وعيدكم مبارك عملك اكثر من رائع وفكرته مبدعة ودائما نتعلم من طروحاتكم الغالية بارك الله فيك وجزاك خيرا وارجو السماحة انني استخدمت الفكرة بشكل اخر لاثراء الموضوع وحتي تكون هناك خيارات امام الاخت السائلة تقبل تحياتي واحترامي Nadia_Offic2.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 8, 2013 مشاركة قام بنشر أغسطس 8, 2013 السلام عليكم ورحمة الله أختي الكريمة، أخوايا الكريمين الأستاذ/ عباد والأستاذ/ ضاحي، عيدكم سعيد وكل عام وانتم بخير، عملكما أكثر من رائع فبارك الله فيكما وجزاكما عنا كل خير... أستسمحكما لأضيف حلا آخر فيه تعديل على كود أخي عباد ومشابه لعمل أخي ضاحي في الملف المرفق... أخوكم بن علية الملف المرفق : Nadia_Offic3.rar رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 10, 2013 الكاتب مشاركة قام بنشر أغسطس 10, 2013 السلام عليكم ورحمة الله أمام جميع المشاركات منبهرة من الأخوة ومساعدتهم وإثرائهم للموضوع كمان - كده كتييير جزيل الشكر لأخوتي { بن علية و عباد وضاحي} مع الاحتفاظ بالألقااب أستأذنكم في بعض الأسئلة الأخرى : 1- أريد إضافة Label مهمته هي القيام بالتحقق من حالة المعمل Lab Status بعد إظهار النتيجة - فاذا كانت حالة المعمل Approved يتم تلوين الـ Label باللون الأخضر - واذا كانت حالة المعمل Rejected يكون الـ Label باللون الأحمر - واا كانت Quarantined يكون اللون أصفر 2- أريد كود لاستخدام زر Open MRR وتكون مهمته فتح ملفات PDF من مسار أقوم بتحديده - والملف المراد فتحه اسمه هو نفس اسم السيريال الذي تم اختياره في txtIC شاكرة للجميع مرة أخرى رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 11, 2013 مشاركة قام بنشر أغسطس 11, 2013 (معدل) السلام عليكم ورحمة الله أختي الكريمة نادية، قمت ببعض التعديلات على كود البحث إذ أني وجدت فيه خللا بعدم اعتبار "السنة" في البحث مع إضافة حل للمطلوب الأول (التحقق من حالة المعمل 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 بواسطه بن علية حاجي رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 11, 2013 الكاتب مشاركة قام بنشر أغسطس 11, 2013 أخي بن علية - جزاك الله خيرا الملف أكثر من رائع ويعمل بشكل جيد ولكن هذا التطبيق سأقوم بوضعه فيي فولدر على سيرفر الشركة حيث أنه سيعمل عليه اكثر من شخص وأكثر من جهاز والسؤال كيف أقوم بتغيير المسار اذا كان الملف سيوضع على سيرفر الشركة حيث أنه لا يوجد بارتيشن معين ؟؟؟ كل عام وانتم بخير رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 11, 2013 مشاركة قام بنشر أغسطس 11, 2013 السلام عليكم بعد اذن الاستاذ القدير بن عليه اضن المراد اختيار الملف وفتحه بيكون التعديل على كود زر 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 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 11, 2013 مشاركة قام بنشر أغسطس 11, 2013 (معدل) السلام عليكم ورحمة الله أختي الكريمة نادية، ليست عندي فكرة عن كيفية عمل السيرفر ولكني أعتقد أن عملها مماثل لعمل أي جهاز كمبيوتر وفي هذه الحالة وإذا كانت ملفات PDF التي يتم طلب فتحها بواسطة الكود موضوعة مع ملف إكسيل الذي يتم العمل عليه (في الموقع نفسه) فإنه يتم استبدال السطر (في الكود) : Emplacement = "C:\TEST\" بالسطر: Emplacement = ThisWorkbook.Path & "\" ملاحظة : في كود الزر Open MRR أخطأت خطأ مطبعيا وهو في العبارة : If Dir(Fichier) <> "" الرجاء تصحيحها بالعبارة : If Dir(File) <> "" والله أعلى وأعلم أخوك بن علية تم تعديل أغسطس 11, 2013 بواسطه بن علية حاجي رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 12, 2013 الكاتب مشاركة قام بنشر أغسطس 12, 2013 (معدل) رائع كالعادة أخي بن علية التطبيق يعمل على ما يرام ولكن هل من الممكن أن أطمع في طلب أخير ولكنه غير مهم وغير مستعجل ماذا اذا أردت أن أزيل الكومبو بوكس الخاص بالسنة - وعند القيام بكتابة رقم في textIC يقوم بادراج كل السيريالات في كل السنين وذلك عن طريق ListBox هذا الـ ListBox عند الضغط على أحد الصفوف فيه يقوم بتوليد الداتا في التكست بوكسز باسفل وكذلك يقوم زر OpenMRR باكتشاف السيريال الذي تم تحديده من الـ ListBox 2- بالاضافة هل من الممكن عمل كود يقوم بعمل باك آب وحفظ هذا الشيت المحتوي على البيانات (الشيت فقط وليس ملف الاكسل كاملاً) - في ملف اكسل أو ملف xps الشكر موصول لأخي عباد بالطبع تم تعديل أغسطس 12, 2013 بواسطه Nadia Khalil رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 13, 2013 مشاركة قام بنشر أغسطس 13, 2013 (معدل) السلام عليكم ورحمة الله أختي الكريمة نادية، بفضل الله تم العمل على الملف واستيفاء كل ما هو مطلوب في ردك، بالنسبة للمطلوب الأول تم التعديل على الكود في ملف أخي الكريم ضاحي مع إضافات أخرى... بالنسبة لكود الحفظ فهو الأخر تعديل على كود من النت بما يناسب المطلوب وهو يقوم بحفظ Sheet1 فقط (دون أزرار الأكواد) في ملف جديد في مسار الملف الأصلي (إكسيل) ويتم تسميته تلقائيا بالاسم Backup متبوع بالتاريخ الحالي حسب الشكل : Backup_dd_MM_yy أضفت أيضا في Sheet2 عملية البحث حسب رقم IC فقط (دون السنة) باستعمال المعادلات (معادلات صفيف) مع إضافة تنسيق شرطي لتأطير البيانات الموجودة في الجدول... ملاحظة : يبقى الزر Open MRR الخاص بفتح ملفات PDF يعمل بالطريقة السابقة غير أنه يفتح هذه الملفات من مسار الملف الأصلي ويجب أن تكون هذه الملفات محفوظة حسب الشكل الذي ذكرته في السابق مثلا : 2012_257.pdf أرجو أن أكون قد وفيت المطلوب... أخوك بن علية Nadia_Offic6.rar تم تعديل أغسطس 13, 2013 بواسطه بن علية حاجي رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 20, 2013 الكاتب مشاركة قام بنشر أغسطس 20, 2013 أخي بن علية - جزاك الله خيراً آسفة على التأخر في الرد فالجميع يعلم الحال في مصر الآن وكل بيت أصبح لديه مصاب آسفة مرة ثانية قمت بتحميل الملف من قبل وقمت بتجربته الآن وهو يعمل بشكل مذهل واذا كنت تشفع لي في طلب آخر استاذي العزيز - فهل أستطيع إدخال ليست بوكس في نفس الفورم السابق - مهمته أن يقوم بحصر وتجميع الريكوردز records التي تحتوي على نفس اسم الخامة التي تم البحث عنها بواسطة ال textIC مثال: قمت بعمل بحث عن هذا السيريال 236 وقادني البحث ألى هذه الخامة Benzyl alcohol - المطلوب في التكست بوكس الجديد ان يقوم بحصر كل الأوردرات التي تحتوي على هذه الخامة وهذا الطلب كرما لا أمراً جزيل الشكر أستاذ بن علية رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 20, 2013 مشاركة قام بنشر أغسطس 20, 2013 اذا نتائج البحث عدة خامات اضن ادخال شرط الخامه المراد حصرها من نتائج البحث بكمبوكس يكون افضل حسب فهمي للطلب ومن ثم بعد ادخال الشرط يعرض النتائج في Lisbox2 هل هذا ماتريد ؟ رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أغسطس 20, 2013 مشاركة قام بنشر أغسطس 20, 2013 أختنا الكريمة // نادية جربي المرفق علي مافهمت من طلبك حيث انه اضفت ليست بوكس اخر يقوم بتصفية الارودرات التي تحتوي علي الخام Nadia_Offic6.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 20, 2013 مشاركة قام بنشر أغسطس 20, 2013 السلام عليكم ورحمة الله أخي الكريمة نادية، لست أدري ماذا تعنين بـ "الأوردرات" هل هي أرقام IC المقابلة لاسم Item Name ؟... إذا كان هذا هو المقصود فقد تم التعديل على الكود بما يوافق المطلوب وإضافة ListBox لعرض كل هذه الأرقام في الملف المرفق... تم أيضا التعديل على الفورم بإضافة رؤوس أعمدة (باستعمال Labels) الليست بوكس الخاص بعرض نتائج البحث حسب Combobox... قمت بتعديل على كود البحث حيث أنه كان يجلب كل الأرقام التي تحتوي على الرقم المحجوز في الكمبوبوكس وليس على الأرقام التي تنتهي بهذا الرقم... وأيضا تم إضافة Textbox يلوّن باللون المطلوب حسب مضمون "حالة المعمل" Lab Status أرجو أني فهمت واستوفيت المطلوب... أخوك بن علية الملف المرفق : Nadia_Offic7.rar رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 23, 2013 الكاتب مشاركة قام بنشر أغسطس 23, 2013 السلام عليكم جزاكم الله خيراً - وآسفة اذا كانت مشاركتى غير واضحة الأستاذ ضاحي الغريب - نعم هذا ما اريد تماما جزاك الله خيرا عمل رائع سأحاول الاضافة على هذا التكست بوكس ليقوم بارسال البيانات للخانات بأسفل مثل التكست بوكس الأقدم أستاذي بن علية ربنا يبارك فيك ع المتابعة وبالفعل ما قصدته هو ما ورد في رد الأخ ضاحي - شايلاك للتقيلة :) أخي عباد مشكور ع التواصل جزاك الله خيرا سأقوم بالتجربة ان شاء الله - رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 23, 2013 الكاتب مشاركة قام بنشر أغسطس 23, 2013 السلام عليكم أخوتي - وأنا أقوم بتجربة البرنامج لاحظت الآتي : عند البحث بقيمة أقل من ثلاثة أرقام وليكن (50) فإن نتائج البحث تظهر فيها كل القيم التي تحتوي على الرقم (50) كـ (950) أو (504) هل هناك طريقة لتلافي ذلك ؟؟؟ رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 24, 2013 مشاركة قام بنشر أغسطس 24, 2013 (معدل) السلام عليكم ورحمة الله السلام عليكم أخوتي - وأنا أقوم بتجربة البرنامج لاحظت الآتي : عند البحث بقيمة أقل من ثلاثة أرقام وليكن (50) فإن نتائج البحث تظهر فيها كل القيم التي تحتوي على الرقم (50) كـ (950) أو (504) هل هناك طريقة لتلافي ذلك ؟؟؟ أختي الكريمة نادية، لقد تم التغلب على هذه المشكلة في ردي السابق 17# بتصحيح كود البحث... قمت بدمج ما قدمه أخي الحبيب ضاحي (جازاه الله عنا كل خير) مع عملي في ملف جديد حيث أضفت على التكست بوكس الجديد تعديلا ليقوم بإرسال البيانات للخانات بأسفل مثل التكست بوكس الأقدم (توفيرا للوقت)... أرجو أن تفي هذه التعديلات على الملف بالغرض المطلوب... أخوك بن علية المرفق : Nadia_Offic8.rar تم تعديل أغسطس 24, 2013 بواسطه بن علية حاجي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 24, 2013 مشاركة قام بنشر أغسطس 24, 2013 تعديل بسيط لملف الاستاذ القدير بن عليه ترك الشرط للمستخدم ------------------ تحديد مربع الاختيار بحث حسب القيمة - القيمة المطابقه ------------------ الغاء تحديد مربع الاختيار بحث عن اي قيمة تبدء بالرقم المعطى Nadia_Offic8_a.rar رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 24, 2013 الكاتب مشاركة قام بنشر أغسطس 24, 2013 أخي بن علية ارجو مراجعة المرفق عندما أقوم بكتابة أي رقم مكون من رقمين لا تظهر أي نتائج للبحث جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 24, 2013 الكاتب مشاركة قام بنشر أغسطس 24, 2013 أخي عباد هل يمكن الغاء هذا التكست بوكس حاولت الغاؤه ولكن يعطيني رسالة خطأ جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 24, 2013 مشاركة قام بنشر أغسطس 24, 2013 السلام عليكم ورحمة الله أخي بن علية ارجو مراجعة المرفق عندما أقوم بكتابة أي رقم مكون من رقمين لا تظهر أي نتائج للبحث جزاك الله خيرا أختي الكريمة نادية، هل جربت الأعداد التالية : 10 ، 44 ، 74 ، 90 ، 91 وهي أعداد موجودة أرقام ICn الخاصة بها... ربما تستعملين أعدادا لا تطابق أرقام الـ IC الموجودة في الجدول.... أخوك بن علية رابط هذا التعليق شارك More sharing options...
Nadia Khalil قام بنشر أغسطس 24, 2013 الكاتب مشاركة قام بنشر أغسطس 24, 2013 نعم أخي قمت بالتجربة ولكن لا تظهر أي نتائج ولكن في كود أخي عباد تظهر نتائج بالفعل ولكني أريد إزالة التكست بوكس الأخير الذي قام الخ عياد بعمله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.