Đếm nhiều điều kiện cùng một lúc (5 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Nhờ anh chị trên diễn đàn làm giúp như file đính kèm
Em dùng cái này xem có đúng không.
Mã:
Function dem(ByVal dk As Range, ByVal mang As Range) As Long
          Dim dks As String, T, a As Long
           dks = "#"
          For Each T In dk
              If T.Value <> Empty Then
                 dks = dks & T.Value & "#"
              End If
          Next
          For Each T In mang
            a = 1
             Do While InStr(a, dks, "#" & T.Value & "#") > 0
                a = InStr(a, dks, "#" & T.Value & "#") + 1
                dem = dem + 1
             Loop
         Next
End Function
 
Lần chỉnh sửa cuối:
Em dùng cái này xem có đúng không.
Mã:
Function dem(ByVal dk As Range, ByVal mang As Range) As Long
          Dim dks As String, T
           dks = "#"
          For Each T In dk
              If T.Value <> Empty Then
                 dks = dks & T.Value & "#"
              End If
          Next
          For Each T In mang
             If InStr(1, dks, "#" & T.Value & "#") Then
                dem = dem + 1
             End If
         Next
End Function
Mã:
=dem(B4:D4,G4:L4)
Em cảm ơn anh
anh @snow25 ơi vẫn bị sai ở 2 dòng cuối
vì có 2 điều kiện giống nhau thì cũng phải đếm 2 lần anh ơi
 
Thấy đăng trên box Hàm và công thức, vậy có xài công thức không?
 

File đính kèm

Web KT

Bài viết mới nhất

Back
Top Bottom