Hàm VBA tính tổng 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ê tính tổng theo màu sắc.

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

Bước 1: Mở file Excel có số liệu cần tính tổng 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 SumifColor(rng As Range, vc As Range)

    Dim cl As Range, ct As Double

    ct = 0

    For Each cl In rng

        If cl.Interior.ColorIndex = vc.Interior.ColorIndex Then

            If IsNumeric(cl.Value) Then ct = ct + cl.Value

        End If

    Next

    SumifColor = ct

End Function

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

- Tham số đầu tiên là vùng cần tính tổng theo màu

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

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

=SumifColor(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