Mình cần đếm màu và thêm 1 điều kiện ở những ô màu đó nữa (số đó lớn hơn). Bác nào giúp mình với

Liên hệ QC

buihoanganhminh

Thành viên mới
Tham gia
8/7/15
Bài viết
24
Được thích
0
Mình cần đếm màu và thêm 1 điều kiện ở những ô màu đó nữa (số đó lớn hơn). Bác nào giúp mình với
 
File mình nè,. các bạn giúp với
 

File đính kèm

  • VANH THÂN LÔ 227 (2013)-NT3 CSLN (1).xlsx
    146.6 KB · Đọc: 10
File mình nè,. các bạn giúp với
Bạn thử
Mã:
Function DemMau(Vung As Range, Mau As Range) As Long
Dim Rng As Range
For Each Rng In Vung
If Rng.Interior.Color = Mau.Interior.Color Then
If Rng.Value >= 40 Then
        tong = tong + 1
DemMau = DemMau + 1
End If
End If
Next
End Function
 

File đính kèm

  • VANH THÂN LÔ 227 (2013)-NT3 CSLN (1).xlsm
    153 KB · Đọc: 1
Mình cần đếm màu và thêm 1 điều kiện ở những ô màu đó nữa (số đó lớn hơn). Bác nào giúp mình với
1/ Bạn xem thử File, Sum hoặc đếm theo màu là tùy ý bạn tô màu Cell cần Sum hoặc đếm.
2/ Trong File tôi thử tô màu PY52 và PZ52 để kiểm tra, bạn có thể thay bằng bất kỳ màu cho dễ nhìn tùy thích, với điều kiện vùng muốn Sum hoặc đếm trùng với màu Cell của dòng 60.
 

File đính kèm

  • Dem Va Sum Mau .xlsm
    155 KB · Đọc: 4
Web KT
Back
Top Bottom