Truy lục đơn giá theo nhiều điều kiện, cảm ơn

[dangnguyenhai0704]

Dạ em cảm ơn, em xin phép gửi lại file vấn đề em đang gặp.
Em cần tính mục Giá trị tồn của từng mã hàng trong Sheet "Tồn"
Dựa trên imei còn tồn và giá nhập theo imei ở sheet "Phiếu nhập hàng"
Em vô cùng biết ơn mọi người hỗ trợ

 

[HieuCD]

Dạ em cảm ơn, em xin phép gửi lại file vấn đề em đang gặp.
Em cần tính mục Giá trị tồn của từng mã hàng trong Sheet "Tồn"
Dựa trên imei còn tồn và giá nhập theo imei ở sheet "Phiếu nhập hàng"
Em vô cùng biết ơn mọi người hỗ trợ

Dùng hàm tự tạo cho nhẹ file

Dim rngAddress As String, Dic As Object

Function TongTon(ByVal rngNhap As Range, ByVal rngTon As Variant) As Long
  Dim j&, tmp$, S
  If rngAddress <> rngNhap.Address Then
    rngAddress = rngNhap.Address
    Call CreateDic(rngNhap.Value2)
  End If
  tmp = rngTon(1, 1)
  S = Split(rngTon(1, 2), "|")
  For j = 0 To UBound(S)
    TongTon = TongTon + Dic.Item(tmp & "#" & S(j))
  Next j
End Function

Private Sub CreateDic(ByVal sArr As Variant)
  Dim sRow&, i&, j&, tmp$, S
  Set Dic = CreateObject("scripting.dictionary")
  sRow = UBound(sArr)
  For i = 1 To sRow
    tmp = sArr(i, 1)
    S = Split(sArr(i, 2), ",")
    For j = 0 To UBound(S)
      iKey = tmp & "#" & S(j)
      Dic.Item(iKey) = Dic.Item(iKey) + sArr(i, 3)
    Next j
  Next i
End Sub

C2 =TongTon('Phiếu nhập hànng'!$A$2:$C$4802, A2:B2)

 

[dangnguyenhai0704]

Trời ơi, không thể tin được
Quá xịn xò luôn ạ
Vô cùng cảm ơn anh
Cho em hỏi thêm xíu, trong file ví dụ thì 3 cột mã hàng, imei, giá nhập liền nhau theo thứ tự. Em có thể thêm cột vào giữa được không ạ