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.

ArrowRaw

Để 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.

ArrowOutput

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]