Giúp mình đếm các cột cùng màu!!!

[esports3141]

Ô KẾT QUẢ THỰC HÀNH (R8) tức là phải đếm các cột từ (E8:M8), nhưng không được tính các ô màu vàng, chỉ tính ô màu xanh thôi thì làm thế nào?
Các bạn giúp mình làm với!

 

[nghiaphuc]

Ô KẾT QUẢ THỰC HÀNH (R8) tức là phải đếm các cột từ (E8:M8), nhưng không được tính các ô màu vàng, chỉ tính ô màu xanh thôi thì làm thế nào?
Các bạn giúp mình làm với!

Cái này chắc chắn hàm có sẵn của Excel bó tay rồi. Bạn thử hàm tự tạo này xem sao nhé:

Function Dem(Rng As Range) As Integer
    Dim Cll As Range
    Application.Volatile
    For Each Cll In Rng
        If Cll.Interior.Color <> 65535 And Cll <> "" Then Dem = Dem + 1
    Next
End Function

 

[esports3141]

Mình không hiểu về mấy cái hàm tự tạo này lắm, cụ thể là copy là copy vào excel rồi đặt tên đuôi là .xla hả :|? Bạn có thể nói rõ hơn được không? Cảm ơn bạn nhiều lắm!

 

[dhn46]

muốn dùng thì bạn tạo file *.xla sau đó vào excel > tool > add - ins > tìm tới file *.xla
hoặc bấm ALT + F11 > tạo 1 module coppy code vào module đó
sử dụng như sau :
- Muốn đếm màu vùng a1:a100 thì dùng ==> dem(a1:a100)

 

[vu_tuan_manh_linh]

Tạo một hàm đơn giản như thế này thôi:
Function dem(a As Range, b As Range)
Dim i As Integer
Dim Cll As Range
For Each Cll In a
If Cll.Interior.ColorIndex = b.Interior.ColorIndex Then
i = i + 1
End If
Next
dem = i
End Function
------------
Trong đó: a là vùng cần đếm số ô
b là ô có màu cần đếm
File đính kèm đầy nè:View attachment 69041