Tạo macro cho hàm tính tổng có điều kiện (sumif), tính tổng theo công thức mảng

[PhuongPham]

Em có file excel sau, các anh chị giúp em với nha!

 

[huuthang_bd]

Em có file excel sau, các anh chị giúp em với nha!

Sao bạn không dùng hàm SUMIFS() mà dùng macro:

D3=SUMIFS('Chi tiet'!$F$3:$F$11,'Chi tiet'!$D$3:$D$11,$B3,'Chi tiet'!$G$3:$G$11,"D")

E3=-SUMIFS('Chi tiet'!$F$3:$F$11,'Chi tiet'!$D$3:$D$11,$B3,'Chi tiet'!$G$3:$G$11,"C")

 

[Quang_Hải]

Em có file excel sau, các anh chị giúp em với nha!

Muốn macro thì thử code này

Sub QH()
Dim data(), Res(1 To 65536, 1 To 4), i, j, k, n
With Sheets("Chi tiet")
   data = .Range(.[D3], .[G65536].End(3)).Value
End With
With CreateObject("scripting.dictionary")
   For i = 1 To UBound(data)
      If Not .exists(data(i, 1)) Then
         k = k + 1
         .Add data(i, 1), k
         Res(k, 1) = data(i, 1)
         Res(k, 2) = "Cong ty TNHH " & data(i, 1)
         n = IIf(data(i, 4) = "C", 4, 3)
         Res(k, n) = data(i, 3)
      Else
         n = IIf(data(i, 4) = "C", 4, 3)
         j = .Item(data(i, 1))
         Res(j, n) = Res(j, n) + data(i, 3)
      End If
   Next
End With
Sheets("Tong hop").[B3].Resize(k, 4) = Res
End Sub

 

[PhuongPham]

Cám ơn A.Hải rất nhiều. Nhưng em copy code này vào thì chưa chạy được (chắc do sai chỗ nào). Anh giúp em lần nữa làm trên file excel của em và gửi giùm em file excel được không ah?

 

[Quang_Hải]

Cám ơn A.Hải rất nhiều. Nhưng em copy code này vào thì chưa chạy được (chắc do sai chỗ nào). Anh giúp em lần nữa làm trên file excel của em và gửi giùm em file excel được không ah?

Có code rồi mà không biết xài là sao trời?

 

[PhuongPham]

E làm được rùi, cám ơn anh Hải rất nhiều.
Cám ơn anh lần nữa gửi file cho em

 

[flylovevn1988]

mình cũng có file này, nhờ mng giúp với ạ