ต้องการนับ ตารางสีเขียว ที่ J1 และสีแดงที่ j2 (จาก A1:E9)

[aabbcc]

ต้องการนับ ตารางสีเขียว ที่ J1 และสีแดงที่ j2 โดยใส่
Function CountCcolor(range_data As range, criteria As range) As Long
Dim datax As range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function
*** ผลที่ได้คือ โปรแกรมจะนับก็ต่อเมื่อเราดับเบิลคลิกที่ J1 และ J2
** อยากให้นับอัตโนมัติเลย ทันที่ ที่เราเปลี่ยนสีแดง หรือเขียวทันที ใน ช่อง A1 :E9 ต้องทำอย่างไรครับ

[Bo_ry]

เติม Application.Volatile
การเปลี่ยนสีไม่ถือว่าเป็นการเปลี่ยนค่า จะไม่คำนวณใหม่ ต้องกด F9 เพื่อคำนวณ

Code: Select all

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

https://youtu.be/j-m4bSDEAb8

[aabbcc]

ขอบคุณครับ