ผู้เขียน หัวข้อ: การนับสีเซลล์ ใน excel ด้วย ฟังชั่น Countcolor  (อ่าน 129 ครั้ง)

administrator

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 1466
    • ดูรายละเอียด


ผลที่ได้


ตัวอย่าง แบบสมบูรณ์


โค๊ดตามนี้นะครับ  นำไปปรับประยุกต์ใช้ได้เลย แต่ต้องมีทักษะการใช้ VBA ใน  Excel  ด้วยนะครับ

อ้างถึง
Function Countcolor(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
        Countcolor = Countcolor + 1
    End If
Next datax
End Function
« แก้ไขครั้งสุดท้าย: 01/02/20 โดย administrator »