นับเซลล์ตามสี

ใน Microsoft Excel มีฟังก์ชันการนับจำนวนของเซลล์ภายในช่วงที่ตรงกับเงื่อนไข เรียก COUNTIF ซึ่งนับได้เฉพาะข้อความ หรือตัวเลข แต่สีเซลล์ ไม่สามารถทำได้ ดังนั้นต้องเขียน VBA สร้างฟังก์ชันกำหนดเอง

โดยมีขั้นตอนดังนี้ :

1. เปิด Microsoft Excel แล้วกดAlt + F11 เพื่อแสดงหน้าต่างใน Visual Basic Editor
2. บนเมนู Insert เลือก Module เขียนสคริปต์ต่อไปนี้:

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

ที่มา https://support.microsoft.com/th-th/help/2815384/count-the-number-of-cells-with-specific-cell-color-by-using-vba

1. ปิดหน้าต่าง VBE และกลับไปยัง Excel
2. เมื่อต้องการทดสอบสร้างข้อมูลบางอย่าง
3. ที่เซลล์ เขียนฟังก์ชัน = CountCcolor(กลุ่มเซลที่จะนับ,เซลเงื่อนไข)

นอกจากนี้ คุณสามารถบรรจุฟังก์ชันเพิ่มเติม (Add-in) ในสมุดงานอื่นๆ โดยมีขั้นตอนต่อไปนี้

ขั้นตอนที่ 1: บันทึกสมุดงาน

1. กรอกชื่อที่คุณต้องการ
2. สำหรับชนิดของไฟล์ เลือกรูปแบบ Excel Add-in ที่ (.xlam)

ขั้นตอนที่ 2: การติดตั้งฟังก์ชันเพิ่มเติม (Add-in)

1. เปิด Microsoft Excel คลิกที่แท็บ Developer
2. คลิกที่ปุ่ม Excel Add-Ins เปิดกล่องโต้ตอบเพิ่มเติม
3. บนกล่องโต้ตอบเพิ่มเติม ในคลิกปุ่ม Browse แล้วเลือกไฟล์ (.xlam) ที่บันทึกไว้

หลังจากนั้นโปรแกรม Microsoft Excel ก็จะสามารถใช้ฟังก์ชัน = CountCcolor(กลุ่มเซลที่จะนับ,เซลเงื่อนไข) ได้