HOCHOI123597
Thành viên mới
- Tham gia
- 26/7/22
- Bài viết
- 24
- Được thích
- 0
Option Explicit
Function Dem()
Dim r As Long, cell As Range, c&
r = Application.Caller.Row
For Each cell In Range(Cells(r, "H"), Cells(r, "AL"))
If cell.Interior.Color <> 16777215 Then
Dem = Dem + 1
End If
Next
End Function