quocthanh365
Thành viên mới

- Tham gia
- 30/6/10
- Bài viết
- 2
- Được thích
- 0
Option Explicit
Function DienKT(ShName As String, KPh, DKT As Byte)
Dim Sh As Worksheet, Rng As Range, Clls As Range
Set Sh = Sheets(ShName)
Set Rng = Sh.Range(Sh.[J7], Sh.[J65500].End(xlUp))
For Each Clls In Rng
If Clls.Value = KPh And Clls.Offset(, 1).Value = DKT Then _
DienKT = 1 + DienKT
Next Clls
End Function