Đếm có 2 điều kiện, không cùng định dạng cột (1 người xem)

[Nghmchau]

Happy New Year 2019!
Mọi người ơi, giúp dùm mình công thúc đếm có 2 điều kiện, nhưng không cùng định dạng cột. Mình gửi file đính kèm, giúp dùm mình công thức trong bảng màu xanh nhé. Cám ơn các bạn rất nhiều

 

[snow25]

Happy New Year 2019!
Mọi người ơi, giúp dùm mình công thúc đếm có 2 điều kiện, nhưng không cùng định dạng cột. Mình gửi file đính kèm, giúp dùm mình công thức trong bảng màu xanh nhé. Cám ơn các bạn rất nhiều

Cho cái kết quả cái xem nào.Không biết ý tác giả viết vậy đúng không.Dùng hàm tự tạo nhé.

Function demdk(ByVal dk1 As String, ByVal mang1 As Range, ByVal dk2 As String, ByVal mang2 As Range) As Long
 Dim arr, darr, i As Long, j As Integer, a As Long
    arr = mang1.Value
    darr = mang2.Value
    If UBound(arr, 1) <> UBound(darr, 1) Then Exit Function
    For i = 1 To UBound(arr, 1)
        If UCase(dk1) = UCase(arr(i, 1)) Then
           For j = 1 To UBound(darr, 2)
               If UCase(dk2) = UCase(darr(i, j)) Then
                   a = a + 1
               End If
           Next j
       End If
   Next i
   demdk = a
End Function

=demdk($O2,$A$3:$A$18,$N$3,$B$3:$F$18)

 

[Phuocam]

Thử trong O3:

=SUMPRODUCT(($A$3:$A$18=O$2)*($B$3:$F$18=$N3))

 

[VetMini]

Cả tháng rồi, bi giờ mới hẹp bi níu dìa?

 

[Nghmchau]

Thử trong O3:

=SUMPRODUCT(($A$3:$A$18=O$2)*($B$3:$F$18=$N3))

Cám ơn bạn Phuocam. Mình làm đc rồi. Sumproduct cũng dùng đc như hàm countif.

Bài đã được tự động gộp: 6/2/19

Cả tháng rồi, bi giờ mới hẹp bi níu dìa?

Happy lunar new year

Bài đã được tự động gộp: 6/2/19

Cho cái kết quả cái xem nào.Không biết ý tác giả viết vậy đúng không.Dùng hàm tự tạo nhé.

Function demdk(ByVal dk1 As String, ByVal mang1 As Range, ByVal dk2 As String, ByVal mang2 As Range) As Long
 Dim arr, darr, i As Long, j As Integer, a As Long
    arr = mang1.Value
    darr = mang2.Value
    If UBound(arr, 1) <> UBound(darr, 1) Then Exit Function
    For i = 1 To UBound(arr, 1)
        If UCase(dk1) = UCase(arr(i, 1)) Then
           For j = 1 To UBound(darr, 2)
               If UCase(dk2) = UCase(darr(i, j)) Then
                   a = a + 1
               End If
           Next j
       End If
   Next i
   demdk = a
End Function

=demdk($O2,$A$3:$A$18,$N$3,$B$3:$F$18)

Cám ơn bạn nhiều, mình dùng đc hàm sumproduct bạn Phuocam giúp đỡ rồi.