Hàm sumifs trên userform cho kết quả = 0

[.Option]

Em chào anh/ Chị
Nhờ anh/ chị chỉ giúp em cái hàm sumifs này bị sai vì lý do nào mà lại cho kết quả bằng 0, em kiểm tra thì nó đang sai ở chỗ (Sheet8.Range("C4:C500"), "<=" & Txt_denngay).
Toàn bộ công thức như sau:
Txt_ketqua = WorksheetFunction.SumIfs(Sheet8.Range("K4:K500"), Sheet8.Range("J4:J500"), "5111", Sheet8.Range("C4:C500"), ">=" & Txt_tungay, Sheet8.Range("C4:C500"), "<=" & Txt_denngay)

Trong đó: K là cột số tiền
C là cột ngày tháng
J là cột điều kiện
Em đã trả lời trên diễn đàn hàm sumifs nhưng chưa nhận được phản hồi ạ.

 

[Nhattanktnn]

Em chào anh/ Chị
Nhờ anh/ chị chỉ giúp em cái hàm sumifs này bị sai vì lý do nào mà lại cho kết quả bằng 0, em kiểm tra thì nó đang sai ở chỗ (Sheet8.Range("C4:C500"), "<=" & Txt_denngay).
Toàn bộ công thức như sau:
Txt_ketqua = WorksheetFunction.SumIfs(Sheet8.Range("K4:K500"), Sheet8.Range("J4:J500"), "5111", Sheet8.Range("C4:C500"), ">=" & Txt_tungay, Sheet8.Range("C4:C500"), "<=" & Txt_denngay)

Trong đó: K là cột số tiền
C là cột ngày tháng
J là cột điều kiện
Em đã trả lời trên diễn đàn hàm sumifs nhưng chưa nhận được phản hồi ạ.

Đoán mò: Txt_tungay và Txt_denngay đang ở dạng text nên không so sánh được
Nếu ngày tháng được nhập vào ở dạng dd/mm/yyyy thì thử như sau:

Dim fDate as double, lDate as double,Tmp

Tmp = split(Txt_tungay,"/")

fDate = DateSerial(tmp(2),tmp(1),tmp(0))

tmp = split(Txt_denngay,"/")

lDate = DateSerial(tmp(2),tmp(1),tmp(0))

Txt_ketqua = WorksheetFunction.SumIfs(Sheet8.Range("K4:K500"), Sheet8.Range("J4:J500"), "5111", Sheet8.Range("C4:C500"), ">=" & fDate, Sheet8.Range("C4:C500"), "<=" & lDate)

Tất cả gõ thủ công, chưa test thử và đang đoán mò, nên có khả năng sai

 

[Phuocam]

Không có file để thử:

Txt_ketqua = WorksheetFunction.SumIfs(Sheet8.Range("K4:K500"), Sheet8.Range("J4:J500"), "5111",
Sheet8.Range("C4:C500"), ">=" & VBA.CDate( Txt_tungay), Sheet8.Range("C4:C500"), "<=" & VBA.CDate(Txt_denngay))

.

 

[.Option]

Không có file để thử:

Txt_ketqua = WorksheetFunction.SumIfs(Sheet8.Range("K4:K500"), Sheet8.Range("J4:J500"), "5111",
Sheet8.Range("C4:C500"), ">=" & VBA.CDate( Txt_tungay), Sheet8.Range("C4:C500"), "<=" & VBA.CDate(Txt_denngay))

.

dạ Em cám ơn nhé, nhưng kết quả vẫn = 0 ạ

Bài đã được tự động gộp: 16/8/22

Đoán mò: Txt_tungay và Txt_denngay đang ở dạng text nên không so sánh được
Nếu ngày tháng được nhập vào ở dạng dd/mm/yyyy thì thử như sau:

Dim fDate as double, lDate as double,Tmp

Tmp = split(Txt_tungay,"/")

fDate = DateSerial(tmp(2),tmp(1),tmp(0))

tmp = split(Txt_denngay,"/")

lDate = DateSerial(tmp(2),tmp(1),tmp(0))

Txt_ketqua = WorksheetFunction.SumIfs(Sheet8.Range("K4:K500"), Sheet8.Range("J4:J500"), "5111", Sheet8.Range("C4:C500"), ">=" & fDate, Sheet8.Range("C4:C500"), "<=" & lDate)

Tất cả gõ thủ công, chưa test thử và đang đoán mò, nên có khả năng sai

Dạ em cám ơn ạ, kq của anh ra đúng ạ

Bài đã được tự động gộp: 16/8/22

Không có file để thử:

Txt_ketqua = WorksheetFunction.SumIfs(Sheet8.Range("K4:K500"), Sheet8.Range("J4:J500"), "5111",
Sheet8.Range("C4:C500"), ">=" & VBA.CDate( Txt_tungay), Sheet8.Range("C4:C500"), "<=" & VBA.CDate(Txt_denngay))

.

Em cũng đã thử với CDate nhưng vẫn cho kết quả = 0

 

[Phuocam]

Em cũng đã thử với CDate nhưng vẫn cho kết quả = 0

Bạn thử nhập trong Txt_tungay và Txt_denngay là yyyy/mm/dd rồi kiểm tra xem sao.

.