Đếm theo màu Sử dụ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 để đế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.
Để 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.
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]