วิธีที่สะดวกต่อการใช้งานคือสร้างฟังก์ชันครับ

ALT + F11 >  Insert > Module แล้ววางโค้ด VBA

Function SumC(c As Range, r As Range)  
    Dim sum As Long  
    Dim ci As Integer  
    ci = c.Interior.ColorIndex  
    For Each i In r  
        If i.Interior.ColorIndex = ci AND i.Value > 0 Then  
            sum = WorksheetFunction.SUM(i, sum)  
        End If  
    Next i
    SumC = sum  
End Function


วิธีใช้ฟังก์ชัน
=SumC(เซลล์สีที่ต้องการ, ช่วงของเซลล์ที่จะ sum)

เช่น

=SumC(H13, B5:AB8)