Đếm số ngày làm thõa mãn điều kiện

[trunghtpco]

Mọi người vui lòng xem file đính kèm nha

+ Tại cột AH: mình cần đếm số ngày có số giờ làm từ 2 đến 2.5 và không thuộc ngày chủ nhật

+Tại cột AI: mình cần đếm số ngày có số giờ làm >=3 và không thuộc ngày chủ nhật

+ Tại cột AJ: mình cần đếm số ngày chủ nhật có số giờ làm >=8

Xem và giải giúp mình nha, cám ơn mọi người rất nhiều

 

[ndu96081631]

Mọi người vui lòng xem file đính kèm nha

+ Tại cột AH: mình cần đếm số ngày có số giờ làm từ 2 đến 2.5 và không thuộc ngày chủ nhật

+Tại cột AI: mình cần đếm số ngày có số giờ làm >=3 và không thuộc ngày chủ nhật

+ Tại cột AJ: mình cần đếm số ngày chủ nhật có số giờ làm >=8

Xem và giải giúp mình nha, cám ơn mọi người rất nhiều

1> Công thức cho AH:

=SUMPRODUCT((WEEKDAY($C$5:$AG$5)>1)*($C6:$AG6>=2)*($C6:$AG6<=2.5))

2> Công thức cho AI:

=SUMPRODUCT((WEEKDAY($C$5:$AG$5)>1)*($C6:$AG6>=3))

3> Công thức cho AJ:

=SUMPRODUCT((WEEKDAY($C$5:$AG$5)=1)*($C6:$AG6>=8))

 

[trunghtpco]

Tuyệt quá, cám ơn anh nhiều lắm.

 

[SA_DQ]

Thêm cho bạn 1 tham khảo

Option Explicit
Function DemCong(LookUpRange As Range, Loai As String)
 Dim Clls As Range, Thu As Byte
  
 For Each Clls In LookUpRange
   With Clls
      Thu = Weekday(Range("Ngay").Offset(, .Column - 1).Value)
      If (.Value <= 2.5 And .Value >= 2) And Loai = "T2" And Thu <> 1 Then
         DemCong = 1 + DemCong
      ElseIf .Value >= 3 And Loai = "T3" And Thu <> 1 Then
         DemCong = 1 + DemCong
      ElseIf .Value >= 8 And Loai = "T8" And Thu = 1 Then
         DemCong = 1 + DemCong
      End If
   End With
 Next Clls
End Function