tasm2010 قام بنشر مايو 13, 2019 مشاركة قام بنشر مايو 13, 2019 المطلوب حساب عدد الحصص خلال فترة زمنية ( تاريح بداية وتاريخ نهاية ) وهذه الفترة يوجد بها ابام عطل رسمية Book1.xlsx رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 14, 2019 مشاركة قام بنشر مايو 14, 2019 السلام عليكم تم عمل المطلوب في الملف المرفق... بن علية حاجي Book1_1.xlsx 1 رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر مايو 14, 2019 مشاركة قام بنشر مايو 14, 2019 أخي بن علية مشكور جدا عمل رائع رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر مايو 14, 2019 مشاركة قام بنشر مايو 14, 2019 بارك الله فيك استاذنا الكريم معادلة ممتازة 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 14, 2019 مشاركة قام بنشر مايو 14, 2019 مبادرة واسطة الماكرو مع حرية اختيار ايام الجمعة والسبت الكود Option Explicit Sub How_many_week_day() Application.ScreenUpdating = False With Sheets("salim") Dim t_sun%, t_mon%, t_tue%, t_wed% Dim t_thu%, t_fri%, t_sat% Dim Start_D As Date, End_D As Date Dim k%: k = 1 Dim it As Range, I_Have_this% Dim lr%: lr = .Cells(Rows.Count, 1).End(3).Row .Range("d5").Resize(lr - 4, 10).ClearContents Dim x#, t% Dim Comp_Rg As Range Dim Arr() Set Comp_Rg = .Range("v5:v100") For Each it In Comp_Rg If IsDate(it) Then ReDim Preserve Arr(1 To k) Arr(k) = Weekday(it) k = k + 1 End If Next it For k = 5 To lr If IsDate(.Range("B" & k)) And IsDate(.Range("C" & k)) Then Start_D = .Range("B" & k): End_D = .Range("C" & k) For x = Start_D To End_D If IsError(Application.Match(x, Comp_Rg, 0)) Then Select Case Weekday(x) Case 1: t_sun = t_sun + 1 Case 2: t_mon = t_mon + 1 Case 3: t_tue = t_tue + 1 Case 4: t_wed = t_wed + 1 Case 5: t_thu = t_thu + 1 Case 6: t_fri = t_fri + 1 Case 7: t_sat = t_sat + 1 End Select End If t = t + 1 Next x .Range("d" & k) = t_sun: .Range("E" & k) = t_mon .Range("F" & k) = t_tue: .Range("G" & k) = t_wed .Range("H" & k) = t_thu .Range("I" & k) = IIf([m2] = "نعم", t_fri, vbNullString) .Range("J" & k) = IIf([m2] = "نعم", t_sat, vbNullString) .Range("L" & k) = t .Range("M" & k) = Evaluate("SUM(D" & k & ":J" & k & ")") '==================================== End If t_sun = 0: t_mon = 0: t_tue = 0: t_wed = 0: t_thu = 0: t_fri = 0: t_sat = 0: t = 0 Next .Range("O2") = UBound(Arr) Erase Arr End With Application.ScreenUpdating = True End Sub الملف مرفق (الصفحة Salim) work_date.xlsm 1 رابط هذا التعليق شارك More sharing options...
tasm2010 قام بنشر مايو 14, 2019 الكاتب مشاركة قام بنشر مايو 14, 2019 (معدل) Book1.xlsxبارك الله في استاذي بن علية واستاذي سليم اعتقد انه لم يتم فهم المطلوب جيدا لا اريد حساب عدد ايام العمل خلال الفترة المعطى المطلوب حساب عدد الحصص خلال الفترة ( ملاحظة مهمة جدا احتمال المعلم ليس لديه حصص خلال ايام العطل ) واذا كان عنده حصص في ايام العطل تخصم من العدد الكلي من خلال تاريخ البداية والنهاية سيكون عندنا 75 يوم عمل بدون احتساب ايام العطل الرسمية الاربعة المبينة بتاوريخها ارفق الملف موضح فيه النتائج المتوقعة وشكرا لكم على تفاعلكم Book1_1.xlsx Book1_1.xlsx تم تعديل مايو 14, 2019 بواسطه tasm2010 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 14, 2019 مشاركة قام بنشر مايو 14, 2019 1 ساعه مضت, tasm2010 said: Book1.xlsxبارك الله في استاذي بن علية واستاذي سليم اعتقد انه لم يتم فهم المطلوب جيدا لا اريد حساب عدد ايام العمل خلال الفترة المعطى المطلوب حساب عدد الحصص خلال الفترة ( ملاحظة مهمة جدا احتمال المعلم ليس لديه حصص خلال ايام العطل ) واذا كان عنده حصص في ايام العطل تخصم من العدد الكلي من خلال تاريخ البداية والنهاية سيكون عندنا 75 يوم عمل بدون احتساب ايام العطل الرسمية الاربعة المبينة بتاوريخها ارفق الملف موضح فيه النتائج المتوقعة وشكرا لكم على تفاعلكم Book1_1.xlsxUnavailable Book1_1.xlsx 15.27 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads لا أفهم طريقة الحصول على الرقم 116 في الخلية N3 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 14, 2019 مشاركة قام بنشر مايو 14, 2019 السلام عليكم تم تصحيح المعادلات في الملف المرفق... بن علية حاجي Book1_2.xlsx 3 رابط هذا التعليق شارك More sharing options...
tasm2010 قام بنشر مايو 14, 2019 الكاتب مشاركة قام بنشر مايو 14, 2019 14 ساعات مضت, tasm2010 said: المطلوب حساب عدد الحصص خلال فترة زمنية ( تاريح بداية وتاريخ نهاية ) وهذه الفترة يوجد بها ابام عطل رسمية Book1.xlsx 10.6 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads بارك الله فيك استاذي بن علية هذا هو المطلوب جزاك الله عنا خيرا رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 14, 2019 مشاركة قام بنشر مايو 14, 2019 بارك الله في فيكم على هذا الجهد المتواصل وهذا العطاء المستمر وجزاكم الله خير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان