Showing posts with label Tính toán theo màu nền của ô cell trong Excel. Show all posts
Showing posts with label Tính toán theo màu nền của ô cell trong Excel. Show all posts

Saturday, April 13, 2019

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

Bài viết dưới đây hướng dẫn chi tiết cách tính tổng các ô dữ liệu theo màu nền của ô cell trong Excel bằng cách xây dựng hàm macro tính toán theo màu nền của cell.
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 ô.
.com/proxy/

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 -> Module.
.com/proxy/
Bước 2: Xây dựng hàm tính tổng theo màu (đặt tên SumByColor). Nhập code sau vào Module vừa tạo:
.com/proxy/
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 ý: Bạn nhớ tên hàm nhé vừa tạo nhé.
Bước 3: Quay trở lại File Excel cần tính tổng chọn vào hàm SumByColor như hình dưới:
.com/proxy/
Bước 4: Hàm SumByColor (cellColor, rRange) có 2 đối số là giá trị màu của ô và vùng dữ liệu cần tính giá trị -> Nhập câu lệnh như hình vẽ:
.com/proxy/
Bước 5: Chuyển đổi địa chỉ ô về địa chỉ tuyệt đối, bôi đen vùng địa chỉ và nhấn F4. (Bạn nên làm bước này để tránh sai sót).
.com/proxy/
Cuối cùng Copy công thức cho các ô còn lại -> Kết quả:
.com/proxy/
Chúc các bạn thành công!

Over 50 Ebooks Excel and VBA free Download

1. Statistics and Probability for Engineering Applications With Microsoft Excel by W.J. DeCoursey - PDF Free Download Download Siz...