Trong bài viết này, bạn sẽ học cách lấy màu của ô bằng mã VBA.

Chúng ta cần làm theo các bước dưới đây để khởi chạy trình soạn thảo VB.

Nhấp vào tab Nhà phát triển Từ nhóm Mã, chọn Visual Basic

img1

Nhấp vào Chèn, sau đó nhấp vào Mô-đun

img2

Điều này sẽ tạo một mô-đun mới.

Nhập mã sau vào Mô-đun

Chức năng ColorIndex (CellColor As Range)

ColorIndex = CellColor.Interior.ColorIndex

Chức năng kết thúc

img3

Để có màu của các ô bên dưới, hãy tham khảo ảnh chụp nhanh dưới đây

img4

Trong ô B2, nhập công thức là = ColorIndex (A2) và sau đó sao chép công thức xuống các ô bên dưới.

img5

[.underline] # Hãy để chúng tôi lấy một ví dụ nữa: # Để biết một màu cụ thể đã lặp lại bao nhiêu lần (tính theo màu), hãy tham khảo ảnh chụp nhanh dưới đây

img6

Chúng ta có thể sử dụng hàm COUNTIF cùng với hàm UDFColorIndex mới được tạo.

===

COUNTIF: Đếm số ô trong phạm vi đáp ứng điều kiện.

Cú pháp: = COUNTIF (phạm vi, tiêu chí)

range: Nó đề cập đến phạm vi ô đã chọn mà từ đó tiêu chí sẽ kiểm tra số lượng mục đã tìm thấy.

tiêu chí: Tiêu chí xác định ô nào cần đếm.

Trong ô D2, công thức sẽ là = COUNTIF ($ B $ 2: $ B $ 9, ColorIndex (D2))

img7

Bằng cách sao chép công thức trong ô E2, chúng tôi sẽ nhận được số lượng theo màu sắc.

img8

Đây là cách chúng ta có thể lấy màu của bất kỳ ô nào.