Công thức trong Evaluate (1 người xem)

[huuhien80]

Trong file đính kèm em có công thức
Evaluate("=SUMIFS(C2:C11,A2:A11,"">""&F1,B2:B11," & Loai & ")")

Khi Loai = số thì tính đúng, nhưng khi Loai không phải số thì công thức cho giá trị 0.

Tính tổng theo điều kiện ngày thì công thức excel giải quyết rất đơn giản bằng Sumproduct hoặc Sumifs nhưng trong VBA thì cả sumproduct và Sumif em test đều không cho giá trị khi điều kiện quá nhiều.

Mong anh em chỉ giúp cách tính tổng theo điều kiện ngày trong VBA.

 

[leonguyenz]

Trong file đính kèm em có công thức
Evaluate("=SUMIFS(C2:C11,A2:A11,"">""&F1,B2:B11," & Loai & ")")
...
Mong anh em chỉ giúp cách tính tổng theo điều kiện ngày trong VBA.

Điều kiện bạn phải đặt trong dấu nháy "", bạn sửa code:

Sub test()
Loai = Range("G1")
MsgBox Evaluate("=SUMIFS(C2:C11,A2:A11,"">""&F1,B2:B11,""" & Loai & """)")
End Sub

 

[huuhien80]

Cảm ơn bạn rất nhiều.

Đúng là không biết test dấu ngoặc kép thế nào. vì nếu là số thì nó vẫn tính đúng nên không biết sao lại lỗi nữa....
Cảm ơn bạn.