AbuuAhmed

لحساب تاريخ ووقت نهاية الإنتاج نستخدم الدالة getEndDate كالتالي: - نمرر رقم 1 إذا كانت العطلة الأسبوعية يوم واحد: =getEndDate(Z$2,AC4,6,1) - نمرر رقم 2 إذا كانت العطلة الأسبوعية يومين: =getEndDate(Z$2,AC4,6,2) - نمرر رقم 3 إذا كانت العطلة الأسبوعية ثلاثة أيام: =getEndDate(Z$2,AC4,6,3) أما رقم 6 فهو رقم أول يوم في عطلة نهاية الأسبوع وهو قيمة يوم الجمعة فكما هو معروف فأيام الأسبوع تبدأ برقم 1 ليوم الأحد وتنتهي بيوم 7 ليوم السبت.

محاولة باعتبار أن "الإجازات الرسمية" هي عطل نهاية الأسبوع كما فهمتها. Egypt Moulded schedule 03-03-2025_02.xlsm

يبدو أني فهمت المطلوب بشكل خاطئ بعد أن اجتهدت في حل لفهمي الخاطئ وجدت أن المطلوب على خلاف فهمي 🙂 . دائرة حول الرقم_02.xlsm

سؤالي للمشاركين في الموضوع ولقرائه: ما الخطأ في حلي ما يجعل هذا السائل برفضه ويستنكف الاعتراف بصوابه؟! مرفق صورة لنفس لنتائج حلي السابق وبنتائج أكثر صحة من نتائجه، شاهدوا سجل محمد عيسى لشهر يوليو أيهما أصح عنده أم عندي؟ كذلك أعتقد عنده خطأ آخر لتاريخ نهاية شهر أغسطس فهو 31 يوم وليس 30 يوم. ردوا على مثل هذا السائل ولا تكونوا سببا في تطفيش الخبراء من الموقع.

أعتقد الحل رياضياتيا صحيح، فقط المشكلة أني لم احترز لوجود خلايا فاضية بناء على المثال في المرفق السابق. لاحظ أجوبتك (مبهمة) غير صريحة!! يجب تحديد الخطأ بشكل واضح. محاولة أخرى بدون تغيير في النتائج فقط تم تبديل نوع المتغيرات احترازا عند وجود خلايا فاضية في العطل/الإجازات. Function Between(inDate As Long, Date1 As Long, Date2 As Long) As Boolean Between = inDate >= Date1 And inDate <= Date2 End Function Function getHolidays(Holiday1 As Long, Holiday2 As Long, _ Workday1 As Long, Workday2 As Long) As Integer Dim Date1 As Long, Date2 As Long 'On Error Resume Next 'Min date is 31/12/1899 If Holiday1 <= 0 Or Holiday2 <= 0 Then Exit Function If Between(Holiday1, Workday1, Workday2) Or _ Between(Holiday2, Workday1, Workday2) Or _ Between(Workday1, Holiday1, Holiday2) Or _ Between(Workday2, Holiday1, Holiday2) Then Date1 = IIf(Holiday1 >= Workday1, Holiday1, Workday1) Date2 = IIf(Holiday2 <= Workday2, Holiday2, Workday2) getHolidays = Date2 - Date1 + 1 End If End Function حساب أيام العمل خلال_04.xlsm

حياك الله أخي، جوابك غير واضح، إذا لا زلت تنتظر حلول أخرى فاطلبه بشكل مباشر ليستمر الأعضاء في المحاولات. أما إذا وجدت الحل فحدده ليكن كذلك واضحا للجميع.

الصراحة معظم دوال الإكسل المستجدة أجهلها، فعملت لك دالة بالـ vba عملتها وأنا شبعان وأفكر في القيلولة، فربما تحتوي على أخطاء. Function Between(inDate As Date, Date1 As Date, Date2 As Date) As Boolean Between = inDate >= Date1 And inDate <= Date2 End Function Function getHolidays(Holiday1 As Date, Holiday2 As Date, Workday1 As Date, Workday2 As Date) As Integer Dim Date1 As Date, Date2 As Date If Between(Holiday1, Workday1, Workday2) Or _ Between(Holiday2, Workday1, Workday2) Or _ Between(Workday1, Holiday1, Holiday2) Or _ Between(Workday2, Holiday1, Holiday2) Then Date1 = IIf(Holiday1 >= Workday1, Holiday1, Workday1) Date2 = IIf(Holiday2 <= Workday2, Holiday2, Workday2) getHolidays = Date2 - Date1 + 1 End If End Function حساب أيام العمل خلال_03.xlsm

تنقيح أخير، أصبح فيه الكود سطر واحد فقط 🙂 Sub Date2Text() Range("B7", "AJ23").NumberFormat = "m-d" End Sub

تم تنقيح الكود سابقا لو ضغطت الزر أكثر من مرة فسوف يبدل النتائج مع كل ضغطة أما الآن سيبدلها مع الضغطة الأولى فقط. Sub Date2Text() Const sRow = 7, eRow = 23 Const sCol = 2, eCol = 36 Dim Row As Integer, Col As Integer Application.EnableEvents = False Application.ScreenUpdating = False For Row = sRow To eRow For Col = sCol To eCol With Cells(Row, Col) If .NumberFormat = "d-mmm" Then .NumberFormat = "@" If .Value <> "" Then .Value = Month(.Value) & "-" & Day(.Value) End If Else .NumberFormat = "@" End If End With Next Col Next Row Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Done" End Sub

بالأكواد من زر asc2Text_02.xlsm

تذكرت موضوع قديم، قد يسهم في إثراء الموضوع:

...

جرب هذا الخيار في قبل الطباعة: Page Setup -> Sheet -> Black and white

جرب احذف الأقواس

جمعت الحلين في مثال واحد واضطررت لحذف كل الأكواد المتعلقة بحل الأستاذ عسل قليل الدسم مع الاعتذار لمزيد من التركيز للسائلة. تجربة صادر_05.accdb