احتساب ايام العمل فى الراحة كاضافى

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

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

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

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

لقد قمت بعمل معادلة ولكن بها مشكلة

أرجو استعمال المعادلات

انظر المرفق

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

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

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

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

أرجو استعمال المعادلات

انظر المرفق

calculate Addition_ALL.rar

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

للرفع 

أين الردود أيها الأخوة

[عبدالله فاروق ابو ريان]

اخي الفاضل المعادلة سليمة
وعلى سبيل المثال 
مرفق صور لشخص عدد ايام الراحة 7 ايام له ولم ياخذ غير يوم واحد راحة

 

 

ملحوظة عدد ايام الراحة الاجمالية للشخص المذكور 7 ايام وعمل في فترة الراحة 6 ايام ولم يأخذ غير يوم واحد راحة
والمعادلة صحيحة الا اذا كان المطلوب غير ذلك

تم تعديل يناير 27, 2015 بواسطه abdalla farouk

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

ولكن المعادلة يا أخى كبيرة جدا جدا جدا وثقيلة

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

عايز معادلة أسهل يا ريت أى حد من العباقرة فى المنتدى يساعدنى

وشكرا

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

ممكن يا أخوانى عمل معادلة معرفة بالمطلوب user defined function

آسف إنى تعبتكم معايا

[طارق محمود]

السلام عليكم

تفضل أخي الدالة W_Hol

إختصارا لكلمة Working Holidays

وهي دالة مستحدثة كما طلبت  (user defined function)

كودها كالتالي

 

 

Function W_Hol(a As Range) As Integer

nm = Cells(a.Row, 1)
r = WorksheetFunction.Match(nm, [AK1:AK999], 0)
Set rst = Range("AL" & r & ":AS" & r)
For Each cl In a
    If IsNumeric(cl) And cl > 0 Then
        For Each b In rst
            If Cells(2, cl.Column) = b Then W_Hol = W_Hol + 1: GoTo 1
        Next b
    End If
1
Next cl
End Function

وإليك المرفق وبه الدالة

 

calculate Addition_ALL2.rar

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

شكرا جزيلا أخى حل رائع جدا