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

أبو عبد النور

03 عضو مميز
  • Posts

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

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

  • Days Won

    1

كل منشورات العضو أبو عبد النور

  1. وعليكم السلام، انظري الى هذه المحاولة : ترحيل_v001.rar
  2. السلام عليكم، ابحث عن ملف تعليمي بالاكسل لتحويل الوحدات (الاطوال، الاوزان، السعة،...) بيحيث يضع الطالب القيمة مع الوحدة المناسبة للتحويل فتظهر عملية تحويلها في الاسفل في جدول التحويلات لكي يفهم الطالب كيف تم التحويل. بارك الله فيكم.
  3. السلام عليكم، ... اود استعمال برمجة الـ batch سكريبت من اجل تشغيل برنامج ما ومتابعته اثناء التشغيل ... خطوات عمل كود الـ Batch المطلوب الحصول عليه : 1 - تشغيل البرنامج 1 2 - في حالة أتم البرنامج 1 عمله نقوم بتشغيل البرنامج 2 3 - في حالة تم توقف البرنامج 1 (not responding) نقوم بتشغيل البرنامج 2 وغلق البرنامج 1 ... هل بالامكان من احدكم تقديم المساعدة في هذا الخصوص ؟ ... بارك الله فيكم
  4. السلام عليكم، في المرفق مثال لتوضيح الفكرة التي قدمتها لك. اضفت ورقة "معطيات" يتم ملؤها بجميع اسماء العاملين وفي ورقة العامل يتم اختيار الاسماء التي ترغب في اظهارها. نموذج التصاريح_v001.rar
  5. ألسلام عليكم، يمكن عمل ورقة واحدة بقائمة منسدلة باسماء العمال وعند اختيار اي اسم منها يتغير جدول معلومات العامل. هذه فكرة والله اعلم.
  6. وعليكم السلام ورحمة الله، أهلا بك أخي عباس وشكرا لك هلى المساعدة. جزاك الله خيرا ومتعك بالصحة والعافية.
  7. 18 تحميلا ولا ملاحطة واحدة حول ان كانت الدالتان تعملان عندكم ام لا ؟؟؟؟
  8. السلام عليكم، الدالة تعمل بارك لله فيك. وقد قمت بالتعديل على الدالة واضفة دالة جديدة على هذا الرابط : http://www.officena.net/ib/index.php?showtopic=49075 شكرا مجددا.
  9. السلام عليكم، بعد طرح الأخت أم عبد الله لدالة لحساب أيام العمل على هذا الرابط : http://www.officena.net/ib/index.php?showtopic=49022 قمت بالتعديل عليها وإيجاد دالة ثانية تقوم بحساب تاريخ النهاية إذا كان لدينا تاريخ البداية وعدد الأيام معلوما.. أترككم مع تجريب الدالتين في المرفق. دالتان لاحتساب أيام العمل وتواريخ النهاية بدون الجمعة والسبت والأعياد.rar
  10. لمتابعة الموضوع ارجو الانتقال الى الرابط التالي : http://www.officena.net/ib/index.php?showtopic=49022
  11. السلام عليكم، بارك الله فيك سأجرب الامر للتذكير قانه لن يتم تلوين سطر مدة معينة باللون الاصفر الا بعد ان يطرأ عليها تغيير في تاريخ بدايتها او تاريخ نهايتها فيما يخص الايام الـ 13 المشار اليها هي عبارة عن ايام راحة تعويضية اي ان العامل عندما يقوم بالاشتغال ايام العطل والاعياد فسيحصل مباشرة على ايام راحة بحسب عدد الايام التي اشتغل فيها اي سيحصل على ايام اجازة/راحة تعويضية. وتاتي هنا تحت مسمى نظام العمل بصيغة R. وتحسب هذه الايام في كل ايام الاسبوع ما عدا ايام الجمعة والسبت والعطل والاعياد مثلا اذا اراد العامل الاستفادة من اجازة تعويضية لمدة 6 ايام ابتداءا من الاحد 15/09/2013 فآخر يوم وهو السادس سيكون يوم 22/09/2013 شرح نظم العمل التي ظهرت في المثال (هناك انظمة أخرى تقريبا متشابهة) : نظم العمل العامة B/L : 1) نظام العمل L 2) نظام العمل B 1- نظام العمل L : هو النظام الافترتضي للعمال ويتضمن العمل من الاحد الى الخميس بحيث تندرج تحته النظم التالية : L - R - CA - Prm - CE... 2- نظام العمل B : هو نظام عمل خاص بالعمل المتواصل بدون انقطاع وتندرج تحته النظم التالية : G - P - N - 24H... ولمزيد من التوضيح مرحبا باسئلتكم. شكراً.
  12. السلام عليكم، أقوم بطرح هذا الموضوع هنا طمعا في أساتذتنا الكرام لحل مشكلتي هذه بعد عدة محاولات لإيجاد الحل ثم لأنه تحد حقيقي لم استطع تخطيه للأسف لحد الآن. يقوم الكود المطلوب بالمقارنة بين التواريخ الموجدة بالجدول الأول وعند تقاطع أي مدتين زمنيتين مع بعضها البعض يقوم الكود بتقسيم التاريخ الأول بحيث تكون نهاية التاريخ الأول بناقص يوم عن تاريخ بداية التاريخ التالي. مثلا المدة الأولى معرفة كما يلي 13/08/2013 إلى 29/08/2013 المدة التالية : 18/08/2013 إلى 22/08/2013 المدتان متداخلتان إذن في هذه الحالة يجب تغيير المدة الأولى لتصبح باللون الأصفر : من 13/08/2013 إلى 17/08/2013 والمدة الثانية تبقى كما هي وبدون تلوين لأنه لا توجد مدة زمنية بعدها تقسمها. ولكن بعد هذا التقسيم لدينا مشكلة أخرى. المدة الأولى التي تم تقسيمها هي عبارة عن أيام إجازة تعويضية ( نظام العمل R) بالنسبة للعامل وعددها 13 يوما وقد قمنا بتعديل المدة واقتطاع 10 أيام منها وترك 3 ايام. هذه الأيام العشرة المقتطعة يجب أن نبحث لها عن تاريخ جديد لتعويضها بحيث يجب أن لا تكون هاته الأيام تمثل أيام نهاية الأسبوع (الجمعة والسبت) أو أيام عطل وأعياد. إذن حسب المثال المرفق سيتم تعويض تلك الأيام العشرة المقتطعة بفترة جديدة تبدأ بتاريخ 25/08/2013 الى 05/09/2013 وتكون باللون الأخضر الممثل للفترات التعويضية الخاص بنظام العمل R يتم استحداث فترة جديدة باللون الأزرق من يوم 23/08/2013 إلى 24/08/2013 وذلك لعدم ترك فراغ بين الفترات اعرف أن الشرح غير كافي ولكن بوجود مناقشة واستفسارات حول الموضوع سيتضح الأمر.. بارك الله فيكم وأملنا فيكم كبير. تقسيم المدد الزمنية وتعويض الايام.rar
  13. لم يبق الا تعريف دالة خاصة شبيهة لدالة اكسل 2010. بارك الله فيك استاذتنا الفاضلة.
  14. السلام عليكم، شكرا للأخت أم عبد الله. ولكن الدالة افتراضيا لا تحسب أيام الجمعة والسبت كأيام نهاية الأسبوع وإنما يومي السبت والأحد. إذن كلا الدالتين المتوفرتين في اكسل 2007 لا تساعدنا في احتساب أيام العمل لأنهما تأخذان بعين الاعتبار يومي السبت والأحد كأيام نهاية الأسبوع. هناك دالتان شبيهتان لهما في اكسل 2010 لهما عامل إضافي نستطيع من خلاله تعريف أيام نهاية الأسبوع الخاص بنا. NETWORKDAYS.INTL(start_date, end_date, [weekend], [holidays]) WORKDAY.INTL(start_date,days, weekend, holidays) ولكن هل حل بالنسبة لأصحاب اكسل 2007 ؟ شكراً. ايام العمل_3.rar
  15. السلام عليكم، شكرا لك أخي سالم. في المرفق طلب عكس الاول بحيث لدينا تاريخ البداية ومدة ايام العمل المفتوحة واريد ايجاد تاريخ النهاية. شكراً. ايام العمل.xls_v2.rar
  16. هناك دالة : WORKDAY ولكنها لا تحسب يوم الجمعة والسبت وانما تحسب السبت والاحد.
  17. اهلا بالاخت ام عبد الله، شكرا على الملف ولكن ايام العمل هي 6 ايام وليست 9 ايام كما يظهر الملف في المثال المرفق. لان ايام 6 و 13 هي يوم جمعة و يوم 7 من الشهر هو يوم سبت وهده ايام عطلة ولا يجب احتسابها
  18. السلام عليكم، اريد احتساب ايام العمل مثلا في الفترة من 5/9/13 الى 8/9/13. نظريا هي يومان فقط لان الجمعة والسبت ايام عطلة. الرجاء الحصول على معادلة وكود VBA معا للقيام بهدا الحساب. بارك الله فيكم.
  19. السلام عليكم، هذه محاولة أولية. ComparTab_v1.rar
  20. السلام عليكم، حل عن طريق التصفية المتقدمة. هذا الكود ضعه في حدث الورقة 1 : Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$10" Then Range("A1:C13").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("G1:G2"), CopyToRange:=Range("I1:J1"), Unique:=False End IfEnd Sub
×
×
  • اضف...

Important Information