VBA: tạo hàm đếm hoặc tính tổng các ô dựa trên màu sắc (ColorFunction)

Bạn sử dụng tính năng tô màu để phân loại dữ liệu (ví dụ: Màu xanh là đã hoàn thành, màu đỏ là lỗi, màu vàng là đang chờ). Tuy nhiên, các hàm cơ bản của Excel như COUNTIF hay SUMIF không thể nhận diện được màu sắc. 

Hàm tự tạo này giúp :

Đếm xem có bao nhiêu ô đã được tô màu chỉ định.

Tính tổng giá trị của các ô có màu chỉ định.

Function COLORFUNCTION(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
COLORFUNCTION = vResult
End Function



count :=ColorFunction(H1,I4:I9
sum:=ColorFunction(H1,I4:I9,1)

Trong đó:
H1: Là ô mẫu có tô cái màu bạn muốn đếm/tổng.
I4:I9: Là vùng dữ liệu cần kiểm tra.