Điếm số lượng màu (điều kiện cho từng đối tượng khác nhau)

[Cuongnv0920]

Chào tất cả các A/E mình có bảng màu như file đính kèm
giờ các A/E giúp mình làm cách nào có thể đếm được đối tượng đó đang có VD: mày đỏ là bao nhiêu màu, mày xanh là bao nhiêu,..

Function CountByColor(range_data As Range, criteria As Range) As Long
    Application.Volatile
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountByColor = CountByColor + 1
    End If
Next datax
End Function

Đoạn code này chỉ đếm được trong vùng dữ liệu đó đang có bao nhiêu màu gì
nhưng ở đây mình muốn đếm đối tượng đấy đang có bao nhiêu màu gì
mong các A/E giúp đỡ

 

[phulien1902]

Chào tất cả các A/E mình có bảng màu như file đính kèm
giờ các A/E giúp mình làm cách nào có thể đếm được đối tượng đó đang có VD: mày đỏ là bao nhiêu màu, mày xanh là bao nhiêu,..

Function CountByColor(range_data As Range, criteria As Range) As Long
    Application.Volatile
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountByColor = CountByColor + 1
    End If
Next datax
End Function

Đoạn code này chỉ đếm được trong vùng dữ liệu đó đang có bao nhiêu màu gì
nhưng ở đây mình muốn đếm đối tượng đấy đang có bao nhiêu màu gì
mong các A/E giúp đỡ

Thử:

Option Explicit
Function Dem_Mau(ColorIndex As Long, Rng As Range, DK As Range)
    Dim Cll As Range, k%
        For Each Cll In Rng
            If Cll.Interior.ColorIndex = ColorIndex And Cll.Offset(0, -1) = DK Then
                k = k + 1
            End If
        Next
    Dem_Mau = k
End Function

 

[Cuongnv0920]

Thử:

Option Explicit
Function Dem_Mau(ColorIndex As Long, Rng As Range, DK As Range)
    Dim Cll As Range, k%
        For Each Cll In Rng
            If Cll.Interior.ColorIndex = ColorIndex And Cll.Offset(0, -1) = DK Then
                k = k + 1
            End If
        Next
    Dem_Mau = k
End Function

Bác có thể chỉ cách viết công thức vào file excel được ko ak
VD tìm màu vàng cho đối tượng "A". =Dem_mau(B2:B8,B2....)
Cám ơn bác nhiều ak.

 

[phulien1902]

Bác có thể chỉ cách viết công thức vào file excel được ko ak
VD tìm màu vàng cho đối tượng "A". =Dem_mau(B2:B8,B2....)
Cám ơn bác nhiều ak.

Bạn xem File

 

[Cuongnv0920]

Bạn xem File

Trân trọng cám ơn bác nhiều nhé