Đếm số cells với màu highlight. (1 người xem)

[cr140n]

Chào mọi người,Mình có 1 bản tóm tắt với các cells filled các màu đỏ, vàng, xanh. Tuỳ theo tình hình cập nhật mỗi ngày, một ô có thể chuyển từ màu này sang màu khác (mình nhập thủ công)Mình cần bảng tóm tắt khi thay đổi màu thì tống số cells với mỗi màu tự động cập nhật theo.Các bạn giúp mình nhé. Cám ơn nhiều.

 

[sealand]

Việc này chắc phải đụng VBA mới dễ được. Bạn viết 1 hàm đơn giản như sau:

Function THMau(Rg As Range, Mau As Range, Fun As Byte) As Long
Dim Cl As Range
For Each Cl In Rg.Cells
If Cl.Interior.ColorIndex = Mau.Interior.ColorIndex Then
THMau = THMau + IIf(Fun = 0, 1, Cl.Value)
End If
Next
End Function

Muốn đếm số ô theo màu ô mẫu : =THMau(Vung so liệu, Vùng màu mẫu,0)
Muốn Cộng gtrị theo màu ô mẫu : =THMau(Vung so liệu, Vùng màu mẫu,1)