Trong bài viết này, chúng tôi sẽ tạo một hàm tùy chỉnh để đếm số ô 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 một dải ô có giá trị nằm trong khoảng từ 100 đến 1000. Các giá trị trong ô được đánh dấu bằng các màu khác nhau. Chúng tôi muốn tìm số lượng của mỗi màu.

ArrowMain

Để tính toán số lượng của một màu cụ thể, chúng tôi đã tạo một hàm tùy chỉnh “CountByColor”. Hàm này nhận 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ã

Function CountByColor(DefinedColorRange As Range, CountRange 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 CountRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the count of matching colored cell

CountByColor = CountByColor + 1

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]