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

توزيع المناوبة على العناصر


Tarekfathallah

الردود الموصى بها

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

تفضل التعديل ارجو ان يكون طلبك

ملاحظة : الكود يراعي يومي السبت والاحد فقط كعطل رسمية اما بقية العطل فيجب تحديدها وبعد معرفة كفاءة الكود يتم تعديل الكود على اساسها

 

Reorder.rar

  • Like 2
  • Thanks 2
رابط هذا التعليق
شارك

اخي حسام وهاب مرفق جدول للخدمة 

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

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

وشرط آخر وهو الاهم العدل والمساواة في ايام السبت والاحد والاعطال 

واذا كان ممكن تعديل اسم مناوب بدل آخر في حال الضرورة ( مرض ) المناوب 

جدول خدمة حديث .xlsx

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

رابط هذا التعليق
شارك

انا بالخدمة استاذ Tarekfathallah

حسب فهمي لطلبك هو انه يتم انتخاب شخصين اوثلاثة اشخاص من كل وجبة للعمل في موقعين مختلفين اثناء دوام الوجبة واذا فهمي صحيح 

 محتاج اعرف الفترة الزمنية للتوزيع 

عدد الوجبات المناوبة واسماء المناوبين لكل وجبة

فترات الدوام والاستراحة لكل وجبة

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

رابط هذا التعليق
شارك

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

الاهم انني لا اريد ظلم شخص بالدوام اكثر من غيره من ناحية الدوام العادي او الاعطال او الاعياد 

رابط هذا التعليق
شارك

في ١٧‏/٤‏/٢٠٢١ at 18:13, husamwahab said:

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

تفضل التعديل ارجو ان يكون طلبك

ملاحظة : الكود يراعي يومي السبت والاحد فقط كعطل رسمية اما بقية العطل فيجب تحديدها وبعد معرفة كفاءة الكود يتم تعديل الكود على اساسها

 

Reorder.rar 59.25 kB · 10 downloads

انت لست خبير فقط بل استاذ و رئيس قسم

ماشاء الله تبارك الرحمن شغل احترافي الى أبعد الحدود

  • Like 1
رابط هذا التعليق
شارك

السلام عليك اخ حسام وهاب وعذرا للتأخير 

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

الشيت جدول جديد 

جدول المناوبة حديث.xlsx

رابط هذا التعليق
شارك

استاذنا الجميل @husamwahab  مثال رائع استاذنا

ولو امكن شرح الكود حتى استطيع تطبيق الفكرة على امور اخرى على سبيل المثال ( اختيار عدد العناصر - اختيار فئات معينة من العناصر - التغاطي عن ايام العطل ...... الخ

كل الشكر والتقدير استاذنا الغالي ...

  • Like 1
رابط هذا التعليق
شارك

استاذي العزيز wael_rafat 

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

Num = 1

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

For j = 1 To XCount2

هذا عداد لعدد الايام 

If Weekday(Rs2!XDate, 7) > 2 Then
    k = 3
  Else
    k = 2
  End If

هذا الكود لاختبار اليوم هل هو عطلة ام لا اذا كان عطلة يختار عنصرين واذا لا يختار ثلاثة

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

For i = 1 To k
    Rs2.Edit
    Rs2(i) = Rs!XNo
    Rs2.Update

هذا الكود خاص باختيار  العناصر لكل يوم والتي تم تحديد عددها سابقا   

Num = Num + 1
    If Num > XCount Then
      Rs.MoveFirst
      Num = 1
    Else
      Rs.MoveNext
    End If

هذا الكود هو الذي سيختبر هل تم شمول جميع العناصر والعودة للعنصر الاول من جديد ام لا 

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

اذا لا سيستمر العداد ويختار العنصر التالي واذا نعم سيختار العنصر الاول ويعيد العداد الى حالته الاولى ليستمر العد من جديد

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

 

بالنسبة لتحديد عدد العناصر من مجموعة معينة او تحديد ايام عطل غير يومي السبت والاحد 

الافضل وضع مربع اختيار لاختيار العناصر والعطل  كما هو الحال في المرفق الاخير لاستاذ Tarekfathallah

 

وعذرا للتقصير والاطالة

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

واكون ممنون لك وشاكر فضلك اخي 

وسؤال هل ستتاثر البيانات اذا تم اي تعديل في عدد المناوبين 

اي بمعنى آخر هل سيتغير ترتيب الخدمة المناوبة على ما سبق اذا زدت المناوبين 

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

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

شاكرا فضلك اطلت عليك 

رابط هذا التعليق
شارك

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

انا بالخدمة استاذي العزيز

تفضل هذا التعديل 

ملاحظة : التعديل يراعي العطل  واجازات المناوبين لكن لا يراعي اضافة عنصر او حذفه

هي ممكنة لكتها اكثر تعقيد وان شاء  الله ساحاول بها وساخبرك اذا وصلت لنتيجة

وعذرا للتقصير

Reorder2.rar

  • Like 2
رابط هذا التعليق
شارك

اخي العزيز حسام وهاب ادامك الله تمام و أضفت بع اذنك خانة في الفورم لتحديد نوع العطلة 

اريد تعديل من بعد اذنك في جدول tblName  في حقل ShiftOK عندما يكون TRUE   يكون خاضع لخدمة الدوام وعندما يكون FALSE  لا يكون خاضع للدوام يعني مستثنى من الدوام 

وطلب آخر في نفس الجدول يوجد الرقمين  49 و 50   يعملون في الشيفت 3 خدمتهم 3 ايام خدمة 3 ايام استراحة مهما كان يوجد اعطال او اعياد 

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

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

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

Reorder3.rar

جدول المناوبة حديث.xlsx

تم تعديل بواسطه Tarekfathallah
اضافة جدول اكسيل
  • Like 1
رابط هذا التعليق
شارك

تفضل التعديل استاذي العزيز

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

لاحاجة لتحديد يومي السبت والاحد في جدول التاريخ فقط حدد العطل الاخرى 

ReorderOk.rar

رابط هذا التعليق
شارك

اخ حسام تسلم ايديك عمل رائع ايديك بتتلف بحرير 

لو سمحت تشرحلي ما هو عمل الجدول tbloff بالتفصيل وكيفية عدم تكرار الاسم مناوب في الاعطال والاعياد وكيفية حفظه كما هو اما التعديلات تتم على المرحلة التالية

رابط هذا التعليق
شارك

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

وشكرا لك 

وكيف لي ان احفظ هذه الجدولة كما في المرفق الاكسيل وكيفية طباعة جدول اسبوعي من الاثنين الى الاثنين 

  • Like 1
رابط هذا التعليق
شارك

3 hours ago, Tarekfathallah said:

لو سمحت تشرحلي ما هو عمل الجدول tbloff

جدول ايجازات العناصر او اعفاء العنصر من المناوبة لسبب من الاسباب 

نكتب تاريخ الاعفاء من المناوبة ورقم الموظف

ملاحظة : الاعفاء هنا مؤقت وليس دائمي كما في جدول الاسماء

 

2 hours ago, Tarekfathallah said:

انا احدد الاسمين جميل وجمال وطبيعة عملهم واذا لم احدد يجلب لي اسم من الذين عندهم خدمة

بالنسبة للوجبة الثالثة (جميل وجمال) التحديد وعدم التحديد لا يغير شي لانه تم تحديد هذين العنصرين للوجبة الثالثة

واذا اردت اعفاء احدهم مؤقتا لسبب ما فيتم التعامل معهم كبقية العناصر اي يتم كتابة تاريخ الاعفاء ورقم الموظف في جدول الاجازات

 

3 hours ago, Tarekfathallah said:

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

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

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

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

وعذرا للتقصير والاطالة 

رابط هذا التعليق
شارك

السلام عليك اخي حسام اتعبتك معي 

لو سمحت اريد تحديد الوجبة الثالثة يدويا ( جميل او جمال ) من الفورم قبل تنفيذ المعادلة  وفي حال لم احدد عنصر منهم لسبب مرض او ماشابه يتم تحديد عنصر من المناوبين على الخدمة

 

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

لو سمحت وسامحني مجددا لأنني اتعبتك 

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

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

وطريقة طباعة الجدول كما مبين في الاكسيل المرفق 

ReorderOk.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information