Tính toán theo màu nền của ô cell trong Excel

Hướng dẫn chi tiết cách tính tổng theo màu nền của ô cell trong Excel bằng cách xây dựng hàm macro. Ví dụ: Các màu được ánh xạ với giá trị cụ thể. Hãy tính tổng các giá trị tương ứng màu nền của ô.

Ví dụ: Các màu có giá trị tương ứng. Hãy tính tổng các giá trị tương ứng màu nền của ô.

Bước 1: Nhấn tổ hợp phím Alt + F11 mở cửa sổ làm việc của VBA -> Vào thẻ Insert

Bước 2: Xây dựng hàm tính tổng theo màu (đặt tên SumByColor) và nhập mã sau vào Module đã tạo:

Function SumByColor(cellColor As Range, rRange As Range)
Dim tong As Long
Dim mau_sac As Integer
mau_sac = cellColor.Interior.ColorIndex
For Each c In rRange
If c.Interior.ColorIndex = mau_sac Then
tong = WorksheetFunction.Sum(c, tong)
End If
Next c
SumByColor = tong
End Function

Lưu ý: Nhớ đặt tên hàm bạn vừa tạo.

Bước 3: Quay lại File Excel cần tính tổng và chọn hàm SumByColor như hình dưới:

Bước 4: Sử dụng hàm SumByColor (cellColor, rRange) với 2 đối số là màu của ô và vùng dữ liệu cần tính giá trị -> Nhập lệnh như trong hình vẽ:

Bước 5: Chuyển đổi địa chỉ ô thành địa chỉ tuyệt đối, bôi đen vùng địa chỉ và nhấn F4. (Thực hiện bước này để tránh sai sót).

Cuối cùng, sao chép công thức cho các ô còn lại -> Kết quả:

Chúc mừng bạn đã đạt được thành công!