นับไม่ ของเซลล์ที่มีสีเฉพาะในแถว / คอลัมน์

ที่นี่ฉันกำลังกำหนดฟังก์ชั่นสำหรับการนับเลข ของเซลล์ในแถว / คอลัมน์ที่มีสีเฉพาะ

มันก็เหมือนกับ Countif cellcolor คือ = Color

 ฟังก์ชัน ColorCount (colorCell เป็น Range, countRange เป็น Range) Dim rCell เป็น Range Dim cellCol As Integer Dim ans ตราบเท่า Ans = 0 cellCol = colorCell.Interior.ColorIndex สำหรับแต่ละ rCell In countRange ถ้า rCell.Interior + 1 สิ้นสุดถ้าถัดไป rCell ColorCount = ฟังก์ชั่นสิ้นสุด