عمل VBA Function لكتابة تواريخ الأيام الاضافى

[ياسر أحمد الشيخ]

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

أريد عمل VBA Function لكتابة تواريخ الأيام الاضافى ، وهى الحضور فى أيام الراحات والعطلات الرسمية

انظر المرفق

VBA Equation.rar

[ياسر أحمد الشيخ]

للرفع ...... للرفع

[ياسر أحمد الشيخ]

للرفع ...................للرفع

أين عباقرة الأكسل والبرمجة

[ياسر خليل أبو البراء]

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

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

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

وفقك الله

 

[ياسر أحمد الشيخ]

أولاً: الطلب رقم 1

أريد كتابة تواريخ الحضور فى الراحة الأسبوعية مثلاُ       Fri+Sat

- الحضور يتمثل فى 8 أو أكثر

- طبعاً هناك عمود للراحات column A

- أريد استثناء اليوم الذى يتم ذكره فى عمود "AL" حيث أن هذا العمود يتمثل فى بدل الراحة الذى يحصل عليه الموظف عن حضوره فى الراحة

مثال:

- Ayman راحته هى Sat+Sun  

-قام بالحضور فى الراحة يومى 23/7+24/7

-لكن قام بأخذ بدل راحة عن يوم 23 ، حيث أن يوم 23 مذكور فى العمود AL

-لذا يتبقى له يوم اضافى فقط وهو 24 ، لذا تصبح نتيجة المعادلة "24"

هل الطلب والمثال واضحين؟؟؟

أريد تنفيذه فى شكل معادلة VBA Function

 

[ياسر خليل أبو البراء]

ما زال الموضوع غامض .. اعذرني لقلة فهمي

ما هو شكل النتيجة المتوقعة وأين تريد وضع النتائج المتوقعة؟

بالنسبة للمثال المذكور الخاص بأيمن .. أخبرت أن أجازاته يومي السبت والأحد .. إذاً الأيام : 2 و 3 - 9 و 10 - 16 و 17 - 23 و 24 - 30 و 31 أجازات ولذا كتبت ر أي راحة ... بالمناسبة ما هي بقية الاختصارات ماذا تعني؟؟

يرجع مرجوعنا لأيمن : لاحظت إنك كتبت ر في كل الأيام اللي فاتت ما عدا الأيام 23 و 24

ذكرت أنه أخذ يوم راحة بدلاً منه - هذه المعلومة من العمود AL وهنا شيء غريب في العمود.هل تكتب التاريخ بالكامل أم اليوم فقط لأنني لاحظت في الخلية AL14 التالي

30/6+23

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

أعتقد أن نتيجة المعادلة وهي رقم 24 ستوضع في هذه الحالة في الخلية AJ14 >> أهذا صحيح ؟ لابد من التأكد من كافة جوانب القضية لنستطيع فهمها

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

 

وهذا مثال لأيمن ماذا عن أحمد حيث مكتوب في أول عمود SHIFT A

الموضوع محتاج كونسلتو أطباء ..

 

 

[ياسر أحمد الشيخ]

يا أخى انت قولت نأخد الموضوع نقطة نقطة!!

أولاً:الموضوع مكون من قسمين:

أ/ احتساب الحضور فى الراحة:

1- هناك موظفين يأخذون راحة يومين مثل : Fri+Sat

2- واهناك موظفين يأخذون راحة الورادى Shift A -Shift B-Shift C-Shift D

وهى موضحة بالجدول الموجود بجوار تقرير الحضور فى BJ9 ، حيث أن لهم راحات متغيرة

ب/احتساب الحضور فى أيام العطلات الرسمية لكل موظف وهى مكتوبة فى الخلية Q3

ثانياً :محلوظات :

1- اريد استثناء التواريخ المكتوبة فى عمود AL

2- قد يصادف ان تاريخ الراحة (سواء راحة يومين أو راحة وردية) يكون مثل تاريخ عطلة رسمية ، فيؤدى ذلك إلى تكرار كتابة اليوم مرتين

لذا أرجو تفادى تكرار كتابة التواريخ فى نتيجة المعادلة

ثالثاً:الاحتصارات:

1- "ر" تشير إلى الراحة

2-  8 أو أكثر تشير إلى الحضور

أما بالنسبة لباقى الاختصارات فلا أهمية لها فى موضوعنا

رابعاً:الاستفسارات:

1- بخصوص 30/6 اريد اهماله ، حيث عند استخدام split على اساس "+" سيقوم الكود باهمال 30/6 من أساسه فلا تقلق

2- نتيجة المعادلة وهي رقم 24 لأيمن

3- المطلوب هو عمل معادلة برمجية VBA Function وليس كود يتم وضع النتيجة فى مكان محدد

المعادلة البرمجية سأكتبها فى Aj

أرجو أن يكون الموضوع واضح

تم تعديل أغسطس 30, 2016 بواسطه ياسر أحمد الشيخ