Hàm VBA đếm theo màu trong Excel

 Trong một số trường hợp người dùng nhập liệu và tô màu theo ô và muốn thống kê đếm theo màu sắc.

Bài viết dưới đây sẽ chia sẻ về hàm VBA đếm theo điều kiện màu sắc như sau:

Bước 1: Mở file Excel có số liệu cần đếm theo màu sắc và nhấn Alt+F11 để vào môi trường VBA. Tại cửa sổ môi trường VBA thì vào menu Insert=> Module

Bước 2: Copy đoạn code dưới đây vào cửa sổ của Module

Function CountifColor(rng As Range, vc As Range)

    Dim cl As Range, ct As Long

    ct = 0

    For Each cl In rng

        If cl.Interior.ColorIndex = vc.Interior.ColorIndex Then ct = ct + 1

    Next

    CountifColor = ct

End Function

Bước 3: Trở lại cửa sổ bảng tính excel và gõ hàm CountifColor và truyền vào 2 tham số. 

- Tham số đầu tiên là vùng cần đếm theo màu

- Tham số thứ 2 là ô có chứa màu điều kiện cần đến

Ví dụ: Từ A1:A100 là vùng cần đếm, D1 là ô màu điều kiện thì công thức là

=CountifColor(A1:A100,D1)

Bước 4: Save As lại file excel sang dạng Excel enable macro workbook (xlsm) hoặc Excel binary (xlsb) hoặc Excel 97-2003 (xls) để lưu trữ macro cho file

Liên hệ tư vấn khóa học Excel cho người đi làm hoặc đặt hàng đào tạo tại doanh nghiệp
{Đt+Zalo} - 038 696 1334