hỏi về hàm countifs trong VBA

[nguyenthuy13388]

Hi ACE

mình có 1 file sử dụng hàm coutifs trong VBA không hiểu sao lại không ra kết quả chính xác được, ACE xem file và chỉ giúp mình với, đoạn code của mình như sau:

Sub dem_ngay_sn()
Cells(1, "E").Value = Application.WorksheetFunction.CountIfs(Sheet1.Range("B2:B1000"), ">" & today)
End Sub

 

[Phuocam]

Sub dem_ngay_sn()
Cells(1, "E").Value = Application.WorksheetFunction.CountIfs(Sheet1.Range("B2:B1000"), ">" & Date)
End Sub

 

[ndu96081631]

Hi ACE

mình có 1 file sử dụng hàm coutifs trong VBA không hiểu sao lại không ra kết quả chính xác được, ACE xem file và chỉ giúp mình với, đoạn code của mình như sau:

Sub dem_ngay_sn()
Cells(1, "E").Value = Application.WorksheetFunction.CountIfs(Sheet1.Range("B2:B1000"), ">" & today)
End Sub

Sửa thành:

Sub dem_ngay_sn()
Cells(1, "E").Value = Application.WorksheetFunction.CountIf(Sheet1.Range("B2:B1000"), ">" & CLng(Date))
End Sub

----------------------------

Sub dem_ngay_sn()
Cells(1, "E").Value = Application.WorksheetFunction.CountIfs(Sheet1.Range("B2:B1000"), ">" & Date)
End Sub

Code này sẽ sai trên hệ thống mà Control Panel thiết lập d/M/yy

 

[nguyenthuy13388]

Sub dem_ngay_sn()
Cells(1, "E").Value = Application.WorksheetFunction.CountIfs(Sheet1.Range("B2:B1000"), ">" & Date)
End Sub

vẫn không được bạn ơi

Bài đã được tự động gộp: 23/7/18

Sửa thành:

Sub dem_ngay_sn()
Cells(1, "E").Value = Application.WorksheetFunction.CountIf(Sheet1.Range("B2:B1000"), ">" & CLng(Date))
End Sub

----------------------------

Code này sẽ sai trên hệ thống mà Control Panel thiết lập d/M/yy

em cảm ơn Bác rất nhiều, như vậy với các máy thiết đặt M/D/YY là vẫn chạy bình thường phải không ạ?

 

[ndu96081631]

như vậy với các máy thiết đặt M/D/YY là vẫn chạy bình thường phải không ạ?

Thí nghiệm sẽ có câu trả lời