สอบถามเรื่อง Countcolor สามารถนับจำนวนในช่องที่เป็นสีได้ไหมคะ

[moonoyjaa]

เรียนท่านอาจารย์

รบกวนสอบถามเรื่อง countcolor พอดีทำให้นับจำนวนสีจากช่องได้แล้ว ข้อมูลตามไฟล์ excel แนบ
แต่อยากสอบถามเพิ่มว่า สามารถทำให้ excel นับจำนวนตัวเลข ในช่องที่เป็นสี แต่ละสีได้แยกกันได้ไหมคะ รบกวนด้วยค่ะ ขอบคุณมากค่ะ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Function CountCcolor(range_data As Range, criteria As Range, _
    c As Integer) 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
            If c = 1 Then
                CountCcolor = CountCcolor + 1
            ElseIf c = 2 Then
                If IsNumeric(datax) Then
                    CountCcolor = CountCcolor + 1
                End If
            End If
        End If
    Next datax
End Function

ส่วนประกอบสุดท้ายเป็น 1 ต้องการนับสี ถ้าเป็น 2 ต้องการนับเลขในสีนั้น ๆ ครับ