ياسر أحمد الشيخ قام بنشر يناير 25, 2015 مشاركة قام بنشر يناير 25, 2015 السلام عليكم ورحمه الله وبركاته اريد احتساب ايام العمل فى الراحة وذلك فى الخانة (اضافى) يتم أخذ الراحة بناء على جدول الراحات لقد قمت بعمل معادلة ولكن بها مشكلة أرجو استعمال المعادلات انظر المرفق رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر يناير 25, 2015 الكاتب مشاركة قام بنشر يناير 25, 2015 السلام عليكم ورحمه الله وبركاته اريد احتساب ايام العمل فى الراحة وذلك فى الخانة (اضافى) يتم أخذ الراحة بناء على جدول الراحات أرجو استعمال المعادلات انظر المرفق calculate Addition_ALL.rar رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر يناير 26, 2015 الكاتب مشاركة قام بنشر يناير 26, 2015 للرفع أين الردود أيها الأخوة رابط هذا التعليق شارك More sharing options...
عبدالله فاروق ابو ريان قام بنشر يناير 27, 2015 مشاركة قام بنشر يناير 27, 2015 (معدل) اخي الفاضل المعادلة سليمة وعلى سبيل المثال مرفق صور لشخص عدد ايام الراحة 7 ايام له ولم ياخذ غير يوم واحد راحة ملحوظة عدد ايام الراحة الاجمالية للشخص المذكور 7 ايام وعمل في فترة الراحة 6 ايام ولم يأخذ غير يوم واحد راحة والمعادلة صحيحة الا اذا كان المطلوب غير ذلك تم تعديل يناير 27, 2015 بواسطه abdalla farouk رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر يناير 27, 2015 الكاتب مشاركة قام بنشر يناير 27, 2015 ولكن المعادلة يا أخى كبيرة جدا جدا جدا وثقيلة صممتها بنفسى واحدة واحدة على قد خبرتى البسيطة جدا عايز معادلة أسهل يا ريت أى حد من العباقرة فى المنتدى يساعدنى وشكرا رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر يناير 29, 2015 الكاتب مشاركة قام بنشر يناير 29, 2015 ممكن يا أخوانى عمل معادلة معرفة بالمطلوب user defined function آسف إنى تعبتكم معايا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 31, 2015 مشاركة قام بنشر يناير 31, 2015 السلام عليكم تفضل أخي الدالة 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 رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر يناير 31, 2015 الكاتب مشاركة قام بنشر يناير 31, 2015 شكرا جزيلا أخى حل رائع جدا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.