اذهب الي المحتوي
أوفيسنا

وائل احمد المصري

الخبراء
  • Posts

    358
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    4

مشاركات المكتوبه بواسطه وائل احمد المصري

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

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

    فأذا تطابق الشرط الموجود بالخلية "ِA1" يتم عمل تنبية بعدد تلك الحالات يشبة الموجود في الفيس بوك ثم بالضغط على 

    أيقونة التنبيهات يتم ترحيل البيانات لصفحة التنبيهات

    لعلها تفيد احد الزملاء والملف مفتوح للاستفادة والتطوير بمقابل طبعا" ان تذكروني بدعواتكم

    :wink2:

     

    السلام عليكم...بارك الله بهمة الشباب...إبداعات تفرزها العقول العربية....أبليت حسناً ..أخي وائل.

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

    وبارك فيك اخي اشكرك على كلماتك ومرورك العطر

  2. أخي الحبيب وائل

    عوداً حميداً وبارك الله فيك على الموضوع

    ممكن تشرح الملف بمزيد من التفصيل إذا توفر لديك الوقت .. وجزاكم الله خير الجزاء

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

     

    الفكرة تقوم على انه في حالة وضع بيانات عملاء مثلا او موردين ......الخ ووضع تاريخ زيارة او استحقاق في تاريخ معين في شيت "Machines_Card"

    وقمنا بتحديد المدة المدة الواجب التنبية عليه والموجودة في الخلية "A1" في شيت "Main" فسيتم حساب عدد التنبيهات وفقا لععد الحالات المطابقة واظهارها في منطقة الجرس

    وبالضغط على ايقونة الجرس سيتم عمل لنسخ لتلك الحالات لشيت "Notifications" حتى يسهل طباعتها او متابعتها او ايا" كان المراد منها

     ارجوا ان اكون وفقت وفقنا الله واياكم

    • Like 1
  3. شكرا لك وجزاك الله خيرا

    اخي أبو احمد بارك الله فيكم جميعا"

    أخي الحبيب وائل

    عوداً حميداً وبارك الله فيك على الموضوع

    ممكن تشرح الملف بمزيد من التفصيل إذا توفر لديك الوقت .. وجزاكم الله خير الجزاء

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

    السلام عليكم

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

    expd = Worksheets("Notifications").Range("A2")

    المفروض انه يقرا من الخلية A1 فى الشيت Main

    expd = Worksheets("Main").Range("A1")

    وكمان تبقى افضل لو حدد ادنى للتاريخ انه ما يكونش اقل من تاريخ اليوم لانى لاحظت انه جايب لى تنبيهات من سنة فاتت بتغيير السطر التالى 

     If (.Cells(irow, 7) - MyDate) <= expd  Then

    الى 

     If (.Cells(irow, 7) - MyDate) <= expd And (.Cells(irow, 7) - MyDate) > -1 Then

       تنبيهات 1.rar

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

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

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

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

    فأذا تطابق الشرط الموجود بالخلية "ِA1" يتم عمل تنبية بعدد تلك الحالات يشبة الموجود في الفيس بوك ثم بالضغط على 

    أيقونة التنبيهات يتم ترحيل البيانات لصفحة التنبيهات

    لعلها تفيد احد الزملاء والملف مفتوح للاستفادة والتطوير بمقابل طبعا" ان تذكروني بدعواتكم

    :wink2:

    تنبيهات.rar

    • Like 3
  5.  

     

    اخي وائل  

     

    بارك الله فيك   

     

    انت فتحت على نفسك  باب  الان  ولن تتمكن من  اغلاقه  هههههههههههههه

     

    اولا  اشكرك  انك متفاعل مع الموضوع 

     

    ثانيا   انا  انسان بسيط  على قد حالي  ما اعرف كثير من المصطلحات الغير عربية 

     

    ثالثا  يا عسل    ادينا صوره    لطيريقه  العمل    لكي نطبق  

     

     

    منتظررررررررررررين بفارغ الصبر

     

    اخي الحبيب ارفقت مثال بسيط للفكرة

    يوجد في المرفق ملفين

    run from IP.xlsm

    دة الملف اللي ح نستدعي جواة البيانات

    Book2.xlsx

    دة الملف اللي فية البيانات

    ودة يا سيدي ح ننسخة على درايف D عندك

    في الملف الاول ح تلاقي في الخلية I3 انا كاتب الايبية بتاع الجهاز بتاعي انتة ح تغيرة طبعا للايبية بتاعك

    وحتعرفة طبعا من امر ipconfig

    جرب ولو حاجة مش واضحة انا تحت امرك

    اسعد الله التماسي يا سيدي :)

    http://www.mediafire.com/download/5f75hdp4gh3sc1h/Video_2014-11-09_225318.rar

    ودة لينك فيديو بيوضح الطريقة

     

    اخي وائل انت رائع فعلا 

     

    عمل مميز  

     

     

    يبقى  لي التطبيق  وسوف احاول  واذكر النتيجة  

     

    وان شاء الله  نتوفق  بها

     

    بأذن الله بالتوفيق

  6. ا/ وائل

    ممكن طباعة الصورة من الفولدر بشكل واضح فقط دون البيانات

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

    و لماذا عند الضغط على زر التاريخ تظهر رسالة خطأ

     

    و شكرا

    بالنسبة للخطاء الظاهر فلم اجد في الملف المرفق اليوزر فورم محل المشكلة

  7. وجه الاستفادة

    لنفترض ان لديك 5 او 10 مستخدمين يقومون باصدار فواتير مثلا تستطيع ان توحد المصدر في مكان واحد وتوفر على نفسك تحديث نسخت كل منهم على حدة علاوة على مركزية الملف ..................الخ

  8. اخي وائل  

     

    بارك الله فيك   

     

    انت فتحت على نفسك  باب  الان  ولن تتمكن من  اغلاقه  هههههههههههههه

     

    اولا  اشكرك  انك متفاعل مع الموضوع 

     

    ثانيا   انا  انسان بسيط  على قد حالي  ما اعرف كثير من المصطلحات الغير عربية 

     

    ثالثا  يا عسل    ادينا صوره    لطيريقه  العمل    لكي نطبق  

     

     

    منتظررررررررررررين بفارغ الصبر

     

    اخي الحبيب ارفقت مثال بسيط للفكرة

    يوجد في المرفق ملفين

    run from IP.xlsm

    دة الملف اللي ح نستدعي جواة البيانات

    Book2.xlsx

    دة الملف اللي فية البيانات

    ودة يا سيدي ح ننسخة على درايف D عندك

    في الملف الاول ح تلاقي في الخلية I3 انا كاتب الايبية بتاع الجهاز بتاعي انتة ح تغيرة طبعا للايبية بتاعك

    وحتعرفة طبعا من امر ipconfig

    جرب ولو حاجة مش واضحة انا تحت امرك

    اسعد الله التماسي يا سيدي :)

    http://www.mediafire.com/download/5f75hdp4gh3sc1h/Video_2014-11-09_225318.rar

    ودة لينك فيديو بيوضح الطريقة

    Desktop.rar

    • Like 1
  9. اخي الكريم : أستاذ وائل

    اشكرك جدا على الملف الرائع .... فهو بحق جميل جدا .. اشكرك

    لكن هل يمكن جعل الملف كله يعمل فورم واحد

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

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

  10. بسم الله ما شاء الله تبارك الله

     

    و الله يعجز لساني عن شكرك ... 

     

    بصراحة ما صدقت عيوني ... 

     

    شكرا كثيرا كثيرا ...... مع انني تأخرت في الدخول الا انني احمد الله ان في امتنا امثالك ... يغيث الملهوف ... 

     

    شكرا مجددا

    اخي الحبيب لا شكر على واجب

    وفي امتنا وفي منتدانا الكثيرون اللذين اتمنى ان الحق بركبهم

    وفقنا الله لمرضاتة

  11. وبالنسبة لملفي كان عند اكتر من يوزر نسخة منه وكان على الشيرد فايل فية الفايل الماستر اللي فية الاصناف والاسعار وكل اليوزرز بيتصلوا بية علشان ياخدوا منه البيانات دي والفايل بيفتح للقرأة فقط اللي ع الشير

  12. اذا يمكن عمل ذلك 

     

    كيف استطيع ان اربط    ثلاثة  صفحات اكسل  في  ثلاثه ا جهزه   مختلفه  في  نفس المكان  ( الغرفه)

     

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

    بالتأكيد من خلال ال local lan طالما انهم فيزيكالي في نفس المكان طالما انهم في work group واحدة

  13. الاخوه الاعزاء

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

    انا فى حاجة ماسة لهذا الملف .... فهل أطمع فى مساعدتكم

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

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

    للبحث اضغط على صورة العدسة

    بانتظار تجربتك

    تقبل تحياتي

    الرصد.rar

    • Like 1
  14. استاذ وائل احمد مصري

    جربت فكرتك و الله جمیل جدا و ان شاء الله استفد فیه

    اعتذر بسب ازعاجك 

    شكرا على جهد المجهود لي

    الله طول عمرك 

    تسلم يدك يا حبيبي

     

    اخي الحبيب الحمد لله ان وجدت في مشاركتي فائدة ولا ازعاج ولا حاجة احنا اخوات واشكرك على كلماتك الجميلة

  15. شي جميل جدا

    لكن ممكن زيادة اضافة الاسم

    مثلا في حالة عدم وجود الاسم اضافة بيانات لاسم جديد

     

    الاخوه الاعزاء

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

    انا فى حاجة ماسة لهذا الملف .... فهل أطمع فى مساعدتكم

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

     

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

    للبحث اضغط على صورة العدسة

    بانتظار تجربتك

    تقبل تحياتي

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

    طبعا باجازة صاحب فورم جميل اعتقد اخي العزيز عبدالله باقشير

    مساعدة لتعديل بسيط من فورم

    يا اخوان ممكن زيادة مزاية بحث تلقائي داخل مربع نص اسم 

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

     

    مع امكانية بحث بين تاريخين

     

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

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

    http://www.mediafire.com/download/knwf3wyjrt1ldhg/Video_2014-11-08_233515.rar

    • Like 1
  17.  

    السلام عليكم

    إخواني الأحباب في المنتدى الرائع

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

    أرجو أن ينفع الله به المسلمين

     

    10/10 ولا اسهل من كدة ربنا يبارك فيك اخ ياسر

  18.  

    وين الشباب

     

    دائما الاشياء   تبداء بفرضيات  وتنتهي  بنتائج ايجابيه

     

    مطلوب كل شخص  يعطي فرضيه   ............... ليس بالظروره ان  يعتقد بانها قابله للتطبيق  ...  ولكن انا لدي قناعة بانه لا شي  يقف امام  المحاوله الجادة  

     

    والتفكير بصوت عالي امام الجميع   ..من افضل الاشياء  للوصول  للهدف .........   كذلك  كل مشكله  برايك     قد يكون لها  جواب عند غيرك   .. ولكن الجواب لا ياتي الا بسؤال 

     

    السلام عليكم اخي ابو سليمان

    مرفق ملف كنت قد قمت بعملة لحاجة العمل منذ فترة تتجاوز 3 سنوات بة طلبك

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

    والكود

    Set SourceWB = Workbooks.Open("\\192.168.1.100\C$\book.xls", False, True)
    

    CO2.rar

    • Like 1
×
×
  • اضف...

Important Information