Tôi đã sử dụng bạn Mô-đun rất hữu ích để đếm số lượng ô được tô màu, hoạt động rất tốt.
Tuy nhiên, tôi muốn tô màu các ô bằng cách Định dạng chúng có điều kiện và mô-đun VBA không hoạt động trong trường hợp đó.
Bảng tính mà tôi đang thực hiện phân tích chi tiêu cho một loại hàng hóa mỗi tháng. Ô được liên kết với một trang tính khác để hiển thị giá trị của tháng.
Tôi đoán rằng bạn có thể thay đổi mô-đun VBA, nhưng tôi không rành về VBA.
Bất cứ ai có thể giúp thay đổi tập lệnh để đáp ứng nhu cầu của tôi?
Đây là mã VBA:

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