WorksheetFunction.SumIfs() trong VBA tính sai

[nvhieutk]

nhờ các bác giúp em sao code tính sai kết quả (D48 có số liệu số tiền, B4:B8 có số liệu ngày):
WorksheetFunction.SumIfs(ws.Range("D48"), _
ws.Range("B4:B8"), ">=" & tungay, ws.Range("B4:B8"), "<=" & denngay)

 

[ptm0412]

nhờ các bác giúp em sao code tính sai kết quả (D48 có số liệu số tiền, B4:B8 có số liệu ngày):
WorksheetFunction.SumIfs(ws.Range("D48"), _
ws.Range("B4:B8"), ">=" & tungay, ws.Range("B4:B8"), "<=" & denngay)

Sửa tungay = ws.Range("D2").Value
thành tungay = CLng(ws.Range("D2").Value)

Tương tự là denngay

 

[nvhieutk]

Sửa tungay = ws.Range("D2").Value
thành tungay = CLng(ws.Range("D2").Value)

Tương tự là denngay

Cãm ơn bác, nhưng vẫn không được, ra kết quả là 0

 

[ptm0412]

Bạn sửa thế nào chụp hình tôi xem

 

[nvhieutk]

Bạn sửa thế nào chụp hình tôi xem

View attachment 304037

Sửa tungay = ws.Range("D2").Value
thành tungay = CLng(ws.Range("D2").Value)

Tương tự là denngay

Bạn sửa thế nào chụp hình tôi xem

View attachment 304037

sửa như thế này bác ơi:
Dim tungay, denngay, ST, ws As Worksheet
Set ws = Worksheets("Sheet2")
tungay = CLng(ws.Range("D2").Value)
denngay = CLng(ws.Range("E2").Value)

ST = WorksheetFunction.SumIfs(ws.Range("D48"), _
ws.Range("B4:B8"), ">=" & tungay, ws.Range("B4:B8"), "<=" & denngay)

 

[ptm0412]

sửa như thế này bác ơi:

File gốc của bạn là Sheet1 sao giờ biến thành Sheet2 rồi?

 

[nvhieutk]

File gốc của bạn là Sheet1 sao giờ biến thành Sheet2 rồi?

OK rồi, Cãm ơn bạn nhiều

 

[nvhieutk]

File gốc của bạn là Sheet1 sao giờ biến thành Sheet2 rồi?

Nhân tiện hỏi thêm bác, Dữ liệu cùng kiểu (ngày/tháng/năm) sao thêm CLng lai được nhỉ?

 

[Phuocam]

Nhân tiện hỏi thêm bác, Dữ liệu cùng kiểu (ngày/tháng/năm) sao thêm CLng lai được nhỉ?

Ngoài cách dùng CLng, bạn có thể dùng .Value2:

tungay = ws.Range("D2").Value2
denngay = ws.Range("E2").Value2

Kết quả cũng giống nhau.

 

[cantl]

CLng

- ngày/tháng/năm: là tiếng Việt.
- ...,.$%#: là tiếng Máy.

Hàm CLng dịch từ tiếng Việt sang tiếng Máy nên máy tính sẽ hiểu. Nó đơn giản vậy thôi mà.

[I]ptm0412[/I]​

Có nhiều cách giải thích, khó quá thì em phải đưa về đơn giản theo cách nghĩ của em thôi mà.

 

[ptm0412]

- ngày/tháng/năm: là tiếng Việt.
- ...,.$%#: là tiếng Máy.

Vừa sai vừa nhảm. Căn cứ vào cái gì để nói CLgn chuyển thành tiếng máy?

 

[ptm0412]

Nhân tiện hỏi thêm bác, Dữ liệu cùng kiểu (ngày/tháng/năm) sao thêm CLng lai được nhỉ?

Clng là hàm để chuyển ngày và text thành dạng số. Điểm đặc biệt là VBA thường xét ngày có định dạng mm/dd/yyyy mới hợp lệ, không như Excel. Tuy vậy, ngày có bản chất là số nên chuyển về số cho cả 2 đều chấp nhận.

 

[VetMini]

Các hàm Cxxxx này nọ là dùng để ép kiểu (type coercion), hoặc xác định cho rõ kiểu dữ liệu.
Clng, theo cái tên của nó đã trả lời rõ rệt là nó sẽ ép kiểu và trả về số nguyên.

CLng sẽ ép kiểu ngày hoặc chuỗi text sang số nguyên.
Lưu ý từ "số nguyên" có nghĩa là phần thập phân sẽ bị cắt bỏ. Dân chuyên VBA dùng tính chất này để cắt bỏ phần giờ phút trong biến kiểu Date. Ngày trong VBA và Excel là dạng số thực, phần nguyên là ngày tháng, phần thập phân là giờ phút...

 

[ptm0412]

CLng sẽ ép kiểu ngày hoặc chuỗi text sang số nguyên.

Thiếu 1 chữ "nguyên" mà bị xổ 1 tràng, may là không nói "chuyển thành tiếng máy"

 

[VetMini]

Thiếu 1 chữ "nguyên" mà bị xổ 1 tràng, may là không nói "chuyển thành tiếng máy"

Rất quan trọng bác ạ. Tôi thấy nhiều người lấy CLng rồi cỡ 20 dòng code sau lại vò đầu vì sao giờ cứ là 0:00.

 

[BuiQuangThuan]

Lưu ý từ "số nguyên" có nghĩa là phần thập phân sẽ bị cắt bỏ. Dân chuyên VBA dùng tính chất này để cắt bỏ phần giờ phút trong biến kiểu Date. Ngày trong VBA và Excel là dạng số thực, phần nguyên là ngày tháng, phần thập phân là giờ phút...

Ồ. giờ cháu mới biết cái này nè. Nói như này thì thực tế có thể thay thế cho hàm Int được phải không chú?