Cách đếm ô màu trong excel

Trong quá trình tư vấn hoặc đào tạo tái cơ cấu tổ chức, tôi hay dùng 1 bảng excel đưa ra các yếu tố (đặc điểm) của tổ chức để phân tích. File excel giống như 1 bảng ma trận có các cột là các loại cơ cấu tổ chức và dòng là các đặc điểm của tổ chức để phân tích. Khi phân tích, tôi đi từng dòng rồi phân tích xem đặc điểm này phù hợp với cơ cấu nào. Nếu phù hợp thì tôi sẽ tích màu và ô là giao điểm giữa dòng và cột. Phân tích hết các đặc điểm, tôi sẽ đếm xem từng cột có bao nhiêu ô được tô màu.

Việc làm thủ công này (đếm chay) rất mệt mỏi. Tôi có lên mạng tìm hiểu công thức excel nhưng không thấy có. Buồn thấu ruột và cứ mỗi lần làm bảng phân tích này tôi đều hỏi mọi người xem có cách nào để đếm nhanh hơn không.

Trời không phụ người cầu học. Hôm nay tôi được chị Cúc học viên lớp Kỹ thuật xây dựng lương 3P chia sẻ cách đếm ô màu trong excel.

Hóa ra, công thức đếm ô màu không có sẵn trong kho công thức của excel mà phải tự xây công thức (viết lệnh Macros). Các bước làm như sau:

- Bước 1: Mở file excel có cần đếm ô màu.
- Bước 2: Cho phép tính năng Macros chạy. Bạn có thể bỏ qua bước này mà đi thẳng vào bước 3. Nếu không chạy được thì quay lại cũng không sao.
- Bước 3: Ấn Alt + F11 để mở trình duyệt lập trình Macros trong excel.
- Bước 4: Chọn Insert/ Moudle
- Bước 5: Copy dòng lệnh tạo công thức đếm màu sau vào:

Function CountByColor(range_data As range, criteria As range) As Long
Dim datax As range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountByColor = CountByColor + 1
End If
Next datax
End Function

- Bước 6: Ấn Alt + Q
- Bước 7: Dùng lệnh =CountByColor(G20:G26;E20) để đếm số ô màu.
Trong đó:
+ G20:G26 là vùng cần đếm số ô màu
+ E20 là ô có chứa màu cần đếm

Vậy là xong. Tôi viết bài này chủ yếu để phục vụ bản thân. Cám ơn chị Cúc đã để tâm và chia sẻ.

Nguyễn Hùng Cường (kinhcan24)