Đây là hàm "dem" mình viết bằng VBA.
Thử thay C6 từ 1 thành 2 xem sao?
Em thấy công thức vẫn đúng mà anh? Em mới tập viết các code đơn giản mong anh Bate chỉ giúp em cái còn thiếu sót để em rút kinh nghiệm ạ.
Vẫn đúng vì bạn viết nó như thế
Híc, tức là bạn phải đếm các khách hàng mua ở cửa hàng "Z", số lượng lớn hơn 2 và........duy nhất
Hic, đúng là do mình không đọc kĩ đề bài lên bị "lạc đề". Thế nên nghĩ mãi vẫn không hiểu phần nhắc nhở của anh Bate.
Function GPE_dem(vung As Range, dkcuahang As String, dksomonhang As Variant)
Dim dic As Object, Arr(), i As Long
Set dic = CreateObject("Scripting.Dictionary")
Arr = vung.Value
For i = 1 To UBound(Arr)
If Not IsEmpty(Arr(i, 1)) And Not dic.exists(Arr(i, 1)) Then 'ko trong', ko add trung`
If UCase(Arr(i, 2)) = dkcuahang And Arr(i, 3) > dksomonhang Then
dic.Add Arr(i, 1), Nothing
End If
End If
Next
Arr = dic.keys
GPE_dem = Application.WorksheetFunction.CountA(Arr)
Erase Arr
Set dic = Nothing
End Function
)
Chỗ tô màu xanh bạn nên chuyển thành là đủmình thì chưa mò ra nổi cái hàm nào để áp dụng cho trường hợp của bạn cả, bạn dùng thử hàm tự tạo của GPE xem
(nhớ mở Macro trước khi dùng)
Mã:Function GPE_dem(vung As Range, dkcuahang As String, dksomonhang As Variant) Dim dic As Object, Arr(), i As Long Set dic = CreateObject("Scripting.Dictionary") Arr = vung.Value For i = 1 To UBound(Arr) If Not IsEmpty(Arr(i, 1)) And Not dic.exists(Arr(i, 1)) Then 'ko trong', ko add trung` If UCase(Arr(i, 2)) = dkcuahang And Arr(i, 3) > dksomonhang Then dic.Add Arr(i, 1), Nothing End If End If Next [B] [COLOR=#0000cd]Arr = dic.keys[/COLOR][/B] [B][COLOR=#0000cd]GPE_dem = Application.WorksheetFunction.CountA(Arr)[/COLOR][/B] Erase Arr Set dic = Nothing End Function
=SUMPRODUCT((MATCH(A2:A8&B2:B8,A2:A8&B2:B8,0)=ROW(2:8)-1)*(B2:B8="Z")*(C2:C8>1))+SUMPRODUCT(--(MATCH(A2:A8&B2:B8&C2:C8,A2:A8&B2:B8&C2:C8,0)<>ROW(2:8)-1))Nếu ta sửa C2,C3 thành 1 thì kết quả sẽ ra 3? vậy hình như không đúng ý tác giả? Chỉ cần như vậy là đủ hoặc bỏ --
=SUMPRODUCT(--(FREQUENCY(IF(B2:B8="Z",MATCH(A2:A8,A2:A8,0))*(C2:C8>1),ROW(A2:A8)-ROW(A2)+1)>0))Tất nhiên là ảnh hửng rồi vì ban đầu dữ liệu của bạn là chuỗi nhưng bây giờ bạn lại áp dụng cho dữ liệu số.
=SUMPRODUCT((SUMIF(CH,CH,OFFSET(CH,,2))>1)*(MATCH(CH,CH,0)=ROW(CH)-MATCH("Z",B:B,0)+1))
=COUNT(1/FREQUENCY(IF((B2:B10="z")*(A2:A10<>"")*(C2:C10>1),MATCH(A2:A10,A2:A10,0)),(IF((B2:B10="z")*(A2:A10<>"")*(C2:C10>1),MATCH(A2:A10,A2:A10,0)))))
