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 người xem)

[buihoanganhminh]

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

 

[saobekhonglac]

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

Giúp nè:.................

 

[LamNA]

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

Góp ý bạn nên đính kèm file mẫu

 

[buihoanganhminh]

File mình nè,. các bạn giúp với

 

[LamNA]

File mình nè,. các bạn giúp với

Bạn thử

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

 

[be_09]

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.