CÁCH ĐẾM Ô MÀU TRONG EXCEL BẰNG VBA, CÁCH ĐẾM Ô THEO MÀU TRONG EXCEL

Sử dụng màu sắc trong bảng tính Excel sẽ giúp đỡ dữ liệu của bạn sinh động, dễ phân minh và tìm kiếm hơn. Vậy làm thế nào để đếm ô theo màu sắc một cách nhanh chóng? nội dung bài viết sau đây sẽ mách các bạn 3 cách triển khai tính năng này, chắc hẳn rằng sẽ hữu ích cho các bước của bạn đấy.

Bạn đang xem: Đếm ô màu trong excel

1. Phối kết hợp hàm SUBTOTAL và pháp luật lọc theo màu

Cách này dựa vào 2 tính năng cực kì tiện lợi của Excel:

Hàm SUBTOTAL là hàm áp dụng linh hoạt trong nhiều trường vừa lòng khác nhau: tính tổng, vừa đủ cộng, đếm số ô,… Ở đây, bạn thực hiện hàm SUBTOTAL với công dụng đếm ô theo màu nhằm phân biệt những ô với nhau.Công nắm lọc màu (Filter) vào Excel: giúp lọc các ô được tô theo màu, bạn cũng có thể tùy chọn 1 hay nhiều màu sắc mà mình thích hiển thị.

2. Cần sử dụng hàm SUBTOTAL để đếm ô theo màu.

Bước 1: Nhập bí quyết =SUBTOTAL(2;C2:C11)

Trong đó:

2: tương đương hàm COUNT, dùng để đếm các ô bao gồm màu trong vùng dữ liệu.C2:C11: vùng ô cần đếm.

Bước 2: Nhấn Enter và dấn kết quả.

3. Dùng bộ lọc Filter (Autofilter) để lọc các ô theo màu tương ứng.

Bước 1: tại thẻ Data bên trên thanh công cụ, nhấn lựa chọn Filter để áp dụng bộ lọc màu đến bảng dữ liệu.

4. Phối hợp hàm COUNTIF với hàm GET.CELL

Dùng hàm GET.CELL để xác minh mã color của ô.

Bước 1: bấm chuột vào ô E2. Sau đó, nhấn chọn Define Name vào tab Formulas

Bước 2: hộp thoại New name xuất hiện.

Mục Name: nhập tên bất kỳ. Ở đây, mình nhập là KQScope: Workbook
Refers to: nhập công thức =GET.CELL(38;Sheet1!$E2)

Trong đó:

38: tham số xác minh màu nền vào ô.Sheet1!$E2: là chỉ vị trí ô bắt đầu xác định màu. Ở đây, chúng ta chỉ thắt chặt và cố định cột C, không cố định dòng 2 (để hàm rất có thể sử dụng cho các dòng khác ở cột C)

Bước 3: Viết công thức =KQ vào ô F2 cạnh bên ô E2, dấn OK nhằm hiển thị kết quả. Sau đó, copy công thức cho các dòng sót lại trong cột F.

Dùng hàm COUNTIFS để đếm ô với đk mã màu.

Nhập phương pháp =COUNTIFS(F2:F11;”=20″), rồi dấn Enter để hiển kết quả.

Làm giống như với các mã color còn lại.

Lời kết

Như vậy, chúng ta có thể đếm ô theo màu bởi 2 cách:

Kết vừa lòng hàm SUBTOTAL và cơ chế lọc màu
Kết thích hợp hàm GET CELL cùng COUNTIFS

Hy vọng bạn đã nhận được những kỹ năng và kiến thức hữu ích cho quá trình của mình. Cám ơn bạn đã xem bài bác viết.

Xem thêm: Samsung galaxy note 5 64gb xách tay, giá rẻ tại tphcm, samsung galaxy note 5 singapore

Đôi khi chúng ta sử dụng màu tô, màu phông chữ hoặc màu định dạng gồm điều kiện để làm nổi nhảy nội dung đó. Nhưng mà trong một số trong những trường hợp, chúng ta sẽ buộc phải đếm những ô màu sao cho hối hả và hiệu quả. VBA là trong số những tính năng hoàn toàn có thể giúp bạn thao tác làm việc này. Trong bài viết này, Uni
Train vẫn hướng dẫn cho bạn 3 macro bổ ích để đếm những ô màu sắc trong Excel cùng với VBA.

Dùng mã VBA nhằm đếm ô bằng màu tô

Đầu tiên, họ sẽ tình hiểu bí quyết đếm ô bằng phương pháp tô color với macro VBA. Trước tiên, người tiêu dùng sẽ tạo thành User Defined Function (UDF), và kế tiếp áp dụng như một hàm trang tính. Thương hiệu hàm là: Count
Cell
By_Fill
Color. Chúng sẽ sở hữu hai đối số – dải ô cùng màu ô. Hãy thực hiện theo từng bước dưới đây:

Bước 1: nhận Alt + F11 để open sổ VBA.

Bước 2: Chèn một module bằng cách Insert > Module.

Bước 3: Nhập mã code dưới đây:

Function Count
Cell
By_Fill
Color(Cell
Range As Range, Cell
Color As Range)Dim Fill
Color As Integer
Dim Fill
Total As Integer
Fill
Color = Cell
Color.Interior.Color
Index
Set r
Cell = Cell
Range
For Each r
Cell In Cell
Range
If r
Cell.Interior.Color
Index = Fill
Color Then
Fill
Total = Fill
Total + 1End If
Next r
Cell
Count
Cell
By_Fill
Color = Fill
Total
End Function
Lúc này, các bạn không đề xuất chạy mã, chỉ cần quay lại trang tính và bạn sẽ nhận được tác dụng có sẵn ở đó.

Trong trường phù hợp này, người tiêu dùng sẽ tính blue color lục. Vày đó, người tiêu dùng đã đặt màu mẫu vào Ô F5. Cùng chèn phương pháp sau vào ô G5.

=Count
Cell
By_Fill
Color($C$5:$D$11,F5)

Cuối cùng, dìm Enter và các bạn sẽ nhận được con số cho màu xanh lá cây (như hình dưới).

Chạy mã VBA để đếm ô theo màu fonts chữ trong Excel

Bây giờ họ sẽ tạo ra hàm do người tiêu dùng xác định- Count
Cells
By_Font
Color nhằm đếm các ô theo màu phông chữ. Bạn dùng đã sửa thay đổi tập tài liệu và áp dụng màu phông chữ thay vì màu tô.

Cách cách thao tác:

Bước 1: dìm Alt + F11 để open sổ VBA.

Bước 2: Chèn một module bằng phương pháp Insert > Module.

Bước 3: Nhập mã code bên dưới đây:

Function Count
Cells
By_Font
Color(cell_range As Range, Cell
Font_color As Range) As Long
Dim Font
Color As Long
Dim Current
Range As Range
Dim Font
Res As Long
Application.Volatile
Font
Res = 0Font
Color = Cell
Font_color.Cells(1, 1).Font.Color
For Each Current
Range In cell_range
If Font
Color = Current
Range.Font.Color Then
Font
Res = Font
Res + 1End If
Next Current
Range
Count
Cells
By_Font
Color = Font
Res
End Function
Lúc này, các bạn không phải chạy mã, chỉ việc quay lại trang tính và các bạn sẽ nhận được tính năng có sẵn làm việc đó.

Giả sử, người tiêu dùng cần tính màu fonts chữ đỏ, đề nghị đã chèn phương pháp sau vào ô G5–:

=Count
Cells
By_Font
Color($C$5:$D$11,F5)

Cuối cùng, thừa nhận Enter để xong thao tác. Các bạn sẽ thấy tất cả 4 ô tất cả màu chữ đỏ với hàm sẽ trả về và một kết quả.

Sử dụng VBA nhằm đếm những ô tất cả màu theo sản phẩm trong Excel

Giả sử, tập dữ liệu có các màu được tô trong tía cột và người tiêu dùng muốn cột thứ bốn trả về tác dụng là 1 nếu tối thiểu hai ô vẫn còn màu xanh lá cây lục vào hàng. Ngược lại, nếu như không thì vẫn trả về quý giá 0. Để có tác dụng điều này, bọn họ sẽ tạo một ô khác hàm mang tên Colorby_Row. Người tiêu dùng sử dụng RGB (0,200,0) cho màu xanh lá cây lục. Tuy nhiên, chúng ta cũng có thể thay đổi trong các mã tùy thích.

Đây là tập tài liệu đã sửa đổi. Người dùng đã thêm một cột khác.

Các bước thao tác:

Bước 1: thừa nhận Alt + F11 để open sổ VBA.

Bước 2: Chèn một module bằng cách Insert > Module.

Bước 3: Nhập mã code dưới đây:

Function Colorby_Row(row
Color1 As Range, row
Color2 As Range, row
Color3 As Range) As String
Dim row
Result As String
Dim row
Counter As Integerm
Color1 = row
Color1.Interior.Colorm
Color2 = row
Color2.Interior.Colorm
Color3 = row
Color3.Interior.Colorgreen = RGB(0, 200, 0)row
Counter = 0If m
Color1 = green Thenrow
Counter = row
Counter + 1End If
If m
Color2 = green Thenrow
Counter = row
Counter + 1End If
If m
Color3 = green Thenrow
Counter = row
Counter + 1End If
If row
Counter >= 2 Thenrow
Result = 1Elserow
Result = 0End If
Colorby_Row = row
Result
End Function
Sau đó, trở lại trang tính Excel.