countif cho vba (1 người xem)

[trantuan11]

May ban giup gium minh code nay le Sub COUNTIFLAM()
Dim date1 As Date
date1 = "31 / 1 / 2016"
Dim totaldate As Long
SONGAY = Application.WorksheetFunction.CountIf(Range("A1:A11"), "<" & date1)
MsgBox totaldate


End Sub
[TABLE="class: cms_table, width: 75"]
[TR]
[TD="align: right"]my excell A1:a11
01/01/2016[/TD]
[/TR]
[TR]
[TD="align: right"]02/01/2016[/TD]
[/TR]
[TR]
[TD="align: right"]05/01/2016[/TD]
[/TR]
[TR]
[TD="align: right"]05/01/2016[/TD]
[/TR]
[TR]
[TD="align: right"]05/01/2016[/TD]
[/TR]
[TR]
[TD="align: right"]05/01/2016[/TD]
[/TR]
[TR]
[TD="align: right"]05/01/2016[/TD]
[/TR]
[TR]
[TD="align: right"]05/01/2016[/TD]
[/TR]
[TR]
[TD="align: right"]05/01/2016[/TD]
[/TR]
[/TABLE]


le ra msgbox la 9 nhung no toan hien la 0 mong cac ban giup