Viết Code để tính tổng có ĐK

[longktvico]

Nhờ anh chị em trên diễn đàn viết hộ hàm Sumproduc trong Code để ra được kết quả như dùng hàm Sumproduc trên ô Excell.
Trân trọng cám ơn!
Xem File đính kèm

 

[concogia]

Nhờ anh chị em trên diễn đàn viết hộ hàm Sumproduc trong Code để ra được kết quả như dùng hàm Sumproduc trên ô Excell.
Trân trọng cám ơn!
Xem File đính kèm

Tạm thời thế này:
- Ở cột [O], nếu muốn ấy tháng bạn nên dùng hàm Month
- Ở Cell [A7] sheet "TH" kiểu dữ liệu phải là số
- Hình như bài này là bài lọc dữ liệu theo tháng, lấy mã duy nhất và tính tổng tương ứng các mã hay sao í. ( những mã ở sheet "DATA thỏa điều kiện [A7] mới đem sang sheet "TH" chứ nhỉ )

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Vung, Ws, MgA(), MgB(), d, K, kK, I
    If Target.Address = "$A$7" Then
        [a12:c1000].ClearContents: [f12:g1000].ClearContents
        Set Ws = Sheets("DATA")
        Vung = Ws.Range(Ws.[f5], Ws.[f10000].End(xlUp)).Resize(, 10).Value
        Set d = CreateObject("scripting.dictionary")
        ReDim MgA(1 To UBound(Vung), 1 To 2):  ReDim MgB(1 To UBound(Vung), 1 To 2)
            For I = 1 To UBound(Vung)
                If Vung(I, 10) = [a7].Value Then
                    If Not d.exists(Vung(I, 1)) Then
                        K = K + 1
                        d.Add Vung(I, 1), K
                        MgA(K, 1) = Vung(I, 1): MgA(K, 2) = Vung(I, 2): MgB(K, 1) = Vung(I, 8): MgB(K, 2) = Vung(I, 9)
                    Else
                        kK = d.Item(Vung(I, 1))
                        MgB(kK, 1) = MgB(kK, 1) + Vung(I, 8): MgB(kK, 2) = MgB(kK, 2) + Vung(I, 9)
                    End If
                End If
            Next I
        [b12].Resize(d.Count, 2) = MgA
        [f12].Resize(d.Count, 2) = MgB
        Range([b12], [b1000].End(xlUp)).Offset(, -1) = [row(A:A)]
    End If
End Sub

Thân
Bạn sửa tháng trong [A7] ==> xem kết quả
Kiểm tra giúp mìn nhé

 

[longktvico]

Ở Sheet TH cột Phát sinh là được rồi nhưng mình muốn giữ lại toàn bộ mà Khách hàng ở Sheet TH vì liên quan đến số dư ĐK và số dư cuối kỳ. Do mình không biết sửa Code thành ra nhờ bạn chỉnh giúp.