Tính tổng theo màu bằng VBA trong Microsoft Excel
Trong bài viết này, chúng tôi sẽ tạo một hàm tùy chỉnh để tính tổng các số trong các ô trong phạm vi có màu xác định.
Đối với ví dụ này, dữ liệu mẫu bao gồm dữ liệu nhóm bán hàng. Dữ liệu nhóm bán hàng chứa các chi tiết liên quan đến số lượng mặt hàng đã bán. Nó chứa thông tin liên quan đến sản phẩm có ba màu Xám, Đỏ và Xanh lục. Chúng tôi muốn tìm tổng số mặt hàng đã bán theo màu sản phẩm.
Để tính tổng theo màu, chúng tôi đã tạo hàm tùy chỉnh “SumByColor”. Hàm này lấy hai tham số phạm vi làm đầu vào. Tham số phạm vi đầu tiên xác định màu bên trong của ô và tham số phạm vi thứ hai xác định phạm vi mẫu.
Giải thích mã
Application.Volatile được sử dụng vì nó sẽ tính toán lại mỗi khi thay đổi giá trị ô trong sổ làm việc.
DefinedColorRange.Interior.ColorIndex Đoạn mã trên được sử dụng để lấy màu nội thất của phạm vi đã xác định.
Vui lòng theo dõi bên dưới để biết mã
Option Explicit Function SumByColor(DefinedColorRange As Range, SumRange As Range) Application.Volatile 'Declaring variables Dim ICol As Integer Dim GCell As Range 'Getting the interior color of the cell ICol = DefinedColorRange.Interior.ColorIndex 'Looping through the defined range For Each GCell In SumRange If ICol = GCell.Interior.ColorIndex Then 'Getting the sum of matching colored cell SumByColor = SumByColor + GCell.Value End If Next GCell End Function
Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.
Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]