طلب مساعدة في حساب عدد الحصص

[tasm2010]

المطلوب حساب عدد الحصص خلال فترة زمنية ( تاريح بداية وتاريخ نهاية ) وهذه الفترة يوجد بها ابام عطل رسمية

Book1.xlsx

[بن علية حاجي]

السلام عليكم

تم عمل المطلوب في الملف المرفق...

بن علية حاجي

Book1_1.xlsx

[khairi ali]

أخي بن علية مشكور جدا

عمل رائع

 

[Ali Mohamed Ali]

بارك الله فيك استاذنا الكريم معادلة ممتازة

[سليم حاصبيا]

مبادرة واسطة الماكرو مع حرية اختيار ايام الجمعة والسبت

الكود

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

[tasm2010]

Book1.xlsxبارك الله في استاذي بن علية واستاذي سليم

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

المطلوب حساب عدد الحصص خلال الفترة ( ملاحظة مهمة جدا احتمال المعلم ليس لديه حصص خلال ايام العطل ) واذا كان عنده حصص في ايام العطل تخصم من العدد الكلي 

من خلال تاريخ البداية والنهاية سيكون عندنا 75 يوم عمل بدون احتساب ايام العطل الرسمية الاربعة المبينة بتاوريخها 

ارفق الملف موضح فيه النتائج المتوقعة

وشكرا لكم على تفاعلكم 

Book1_1.xlsx

Book1_1.xlsx

تم تعديل مايو 14, 2019 بواسطه tasm2010

[سليم حاصبيا]

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

[بن علية حاجي]

السلام عليكم

تم تصحيح المعادلات في الملف المرفق...

بن علية حاجي

Book1_2.xlsx

[tasm2010]

14 ساعات مضت, tasm2010 said:

المطلوب حساب عدد الحصص خلال فترة زمنية ( تاريح بداية وتاريخ نهاية ) وهذه الفترة يوجد بها ابام عطل رسمية

Book1.xlsx 10.6 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

 

بارك الله فيك استاذي بن علية هذا هو المطلوب 

جزاك الله عنا خيرا

 

[وجيه شرف الدين]

بارك الله في فيكم على هذا الجهد المتواصل وهذا العطاء المستمر وجزاكم الله خير