Không SUM được, ace nào coi giúp em với!

[agmiloan]

Em có file đính kèm, trong file này có cái em SUM được nhưng lại có cái SUM không cho giá trị tương tự. ACE nào biết coi giúp em với.

 

[TongDe]

Bảng quá ít dữ liệu nên không hình dung được công thức
Hàm INDEX thiếu đối số thì fải ?
Up file thực tế lên mọi người mới giúp được
Có thể có cách giải khác hay hơn
nếu file có thông tin nhạy cảm thì chịu khó ngồi gõ lại
Bạn muốn giúp mà không có thiện chí thì mọi người chịu thôi !
Góp ý chút thôi đừng buồn nha !
Chào thân !

 

[agmiloan]

Đây chỉ là file mà mình nghĩ ra khi đi tìm câu tra lời cho file tìm kiếm rồi tính tổng đính kèm này. Ở file vitriSolieu mình không thấy có sự khác nhau giữa 2 cái SUM mà không hiểu tại sao.

 

[dat_butmuc]

Đây chỉ là file mà mình nghĩ ra khi đi tìm câu tra lời cho file tìm kiếm rồi tính tổng đính kèm này. Ở file vitriSolieu mình không thấy có sự khác nhau giữa 2 cái SUM mà không hiểu tại sao.

Bạn đang hỏi ở chủ đề này mà:
http://www.giaiphapexcel.com/forum/showthread.php?36583-Tìm-kiếm-rồi-tính-tổng&p=242439#post242439
Tốt nhất là bạn nén lại và đưa file đầy đủ hoặc mô phỏng vị trí chính xác, sau đó ghi chú những điều bạn muốn/kết quả muốn vào trong đó.
Tôi tin bạn muốn có kết quả tốt thì cho nó đầy đủ/chi tiết một chút mọi ngươi trên diễn đàn sẽ giúp.
Topic này chắc bị xóa, có lẽ nên viết ở đường link bạn đã hỏi trước ?

 

[ChanhTQ@]

Hãy thử nghiệm với hàm tự tạo sau

Option Explicit
Function TinhTong(DLieu As Range, ThChieu As Range, Value_ As String) As Double
 Dim sRng As Range, Rng As Range, Clls As Range, Rg0 As Range
 Dim Cot As Byte
 Set Rng = DLieu.Cells(1, 1).Resize(DLieu.Rows.Count)
 Set sRng = Rng.Find(Value_, , xlFormulas, xlWhole)
 Set Rng = ThChieu.Cells(2, 1).Resize(, ThChieu.Columns.Count)
 For Each Clls In Rng
   If Clls.Value <> "" And Clls.Offset(-1).Value <> "" Then
      Set Rg0 = DLieu.Cells(1, 1).Resize(, DLieu.Columns.Count)
      Cot = Rg0.Find(Clls.Offset(-1).Value).Column
      TinhTong = TinhTong + Clls.Value * sRng.Offset(, Cot - 1)
   End If
 Next Clls
End Function

Chú ý Trong file có 2 names

 

[agmiloan]

Tìm kiếm rồi tính tông?

Ace coi file đính kèm này và giúp em nhé. Thank rất nhiều.

 

[ThuNghi]

Ace coi file đính kèm này và giúp em nhé. Thank rất nhiều.

Cố nghiên cứu để trả lời mà chưa hiểu nổi yêu cầu của bạn.
Cụ thể hơn nhé.
Có phải bạn muốn tính ra M12=93 mà không phải liệt kê ra rồi sum?
Cám ơn!

 

[agmiloan]

Thank pác ChanhTQ, hic đoạn code với hàm tự tạo bác giúp mà em chẳng hiều được gì. Thank đã giúp đỡ.

 

[TongDe]

Mình hiểu ý ban như vầy không biết giải quyết được bài toán của bạn không ?