Làm cách nào để đếm / tổng các ô theo màu sắc với định dạng có điều kiện trong Excel?
Trong Excel, bạn có thể tô màu một số ô bằng cách sử dụng định dạng có điều kiện. Bây giờ, hướng dẫn này sẽ cho bạn biết một số phương pháp tiện dụng và dễ dàng để nhanh chóng đếm hoặc tính tổng các ô theo màu với định dạng có điều kiện trong Excel.
Đếm ô theo màu phông chữ và nền bằng VBA
Đếm/tổng các ô theo màu phông chữ với định dạng có điều kiện theo Kutools for Excel 
Đếm/tổng các ô theo màu nền với định dạng có điều kiện theo Kutools for Excel
Đếm ô theo phông chữ và màu nền bằng VBA
Trong Excel, chỉ mã VBA mới có thể nhanh chóng đếm các ô dựa trên phông chữ và màu nền cụ thể.
1. nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đun và sao chép và dán mã VBA bên dưới vào cửa sổ bật lên Mô-đun cửa sổ.
VBA: Đếm ô dựa trên phông chữ và màu nền.
Sub DisplayFormatCount()
'Updateby20150305
Dim Rng As Range
Dim CountRange As Range
Dim ColorRange As Range
Dim xBackColor As Long
Dim xFontColor As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set CountRange = Application.Selection
Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
Set ColorRange = ColorRange.Range("A1")
xReturn = 0
For Each Rng In CountRange
qqq = Rng.Value
xxx = Rng.DisplayFormat.Interior.Color
If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
xBackColor = xBackColor + 1
End If
If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
xFontColor = xFontColor + 1
End If
Next
MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub3. nhấp chuột chạy nút hoặc bấm F5 để chạy mã, sau đó chọn phạm vi bạn cần trong hộp thoại bật lên. Xem ảnh chụp màn hình:
4. nhấp chuột OK, sau đó chọn một ô có phông chữ và màu nền mà bạn muốn đếm các ô dựa trên. Xem ảnh chụp màn hình:
5. nhấp chuột OK. Sau đó, một hộp thoại bật ra để cho bạn biết có bao nhiêu ô có cùng màu nền và màu phông chữ với ô đã chọn trong phạm vi.
Đếm/tổng các ô theo màu phông chữ với định dạng có điều kiện theo Kutools for Excel
Trong Excel, bạn không thể đếm hoặc tính tổng các ô theo màu phông chữ chỉ với định dạng có điều kiện. Tuy nhiên, có một phần bổ trợ tiện dụng được gọi là Kutools for Excel có thể giúp bạn nhanh chóng giải quyết vấn đề này với Đếm theo màu tính năng này.
| Kutools for Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. | ||
Sau cài đặt miễn phí Kutools for Excel, vui lòng làm như dưới đây:
1. Chọn một dải ô bạn muốn đếm hoặc tính tổng các ô theo màu phông chữ với định dạng có điều kiện, sau đó nhấp vào Kutools Plus> Đếm theo màu. Xem ảnh chụp màn hình:
2. Sau đó trong Đếm theo màu hộp thoại, chọn Định dạng có điều kiện Dưới Phương pháp màu danh sách và Font Dưới Loại màu danh sách. Sau đó, bạn có thể xem kết quả của phép đếm và tổng trong hộp thoại. Xem ảnh chụp màn hình:
Chú thích: Nếu bạn muốn xuất kết quả tính toán dưới dạng báo cáo, bạn có thể nhấp vào Tạo báo cáo in Đếm theo màu thì một báo cáo sẽ được tạo trong một sổ làm việc mới. Xem ảnh chụp màn hình:
Đếm/tổng các ô theo màu nền với định dạng có điều kiện theo Kutools for Excel
Nếu bạn muốn đếm hoặc tính tổng các ô theo màu nền với định dạng có điều kiện, bạn cũng có thể áp dụng Đếm theo màu tiện ích của Kutools for Excel.
1. Chọn một dải ô bạn muốn đếm hoặc tính tổng các ô theo màu nền với định dạng có điều kiện, sau đó nhấp vào Kutools Plus > Đếm theo màu.
Sau cài đặt miễn phí Kutools for Excel, vui lòng làm như dưới đây:
2. Sau đó trong Đếm theo màu hộp thoại, chọn Định dạng có điều kiện Dưới Phương pháp màu danh sách và Tiểu sử Dưới Loại màu danh sách. Sau đó, bạn có thể xem kết quả của phép đếm và tổng trong hộp thoại. Xem ảnh chụp màn hình:
Bấm vào đây để biết thêm về Đếm theo màu.
Tính toán các ô theo màu phông chữ hoặc màu nền
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excelvà trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel Cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Office Tab Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
