Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Làm cách nào để đếm và tính tổng các ô dựa trên màu nền trong Excel?

Giả sử bạn có một dải ô với các màu nền khác nhau, chẳng hạn như đỏ, lục, lam, v.v., nhưng bây giờ bạn cần đếm xem có bao nhiêu ô trong dải ô đó có một màu nền nhất định và tính tổng các ô có cùng một màu nhất định . Trong Excel, không có công thức trực tiếp để tính Tổng và Đếm ô màu, sau đây tôi sẽ giới thiệu với các bạn một số cách để giải quyết vấn đề này.


Đếm và Tổng các ô được tô màu bằng Bộ lọc và SUBTOTAL

Giả sử chúng ta có một bảng bán hoa quả như hình minh họa bên dưới, và chúng ta sẽ đếm hoặc tính tổng các ô màu trong cột Số lượng. Trong trường hợp này, chúng ta có thể lọc cột Số tiền theo màu, sau đó đếm hoặc tính tổng các ô có màu đã lọc bằng hàm SUBTOTAL dễ dàng trong Excel.

1. Chọn các ô trống để nhập hàm SUBTOTAL.

  1. Để đếm tất cả các ô có cùng màu nền, vui lòng nhập công thức = SUBTOTAL (102, E2: E20);
  2. Để tính tổng tất cả các ô có cùng màu nền, vui lòng nhập công thức = SUBTOTAL (109, E2: E20);


Chú thích: Trong cả hai công thức, E2: E20 là cột Số lượng chứa các ô màu và bạn có thể thay đổi chúng khi cần.

2. Chọn tiêu đề của bảng và nhấp vào Ngày > Lọc. Xem ảnh chụp màn hình:

3. Nhấp vào biểu tượng Bộ lọc  trong ô tiêu đề của cột Số tiền và nhấp vào Lọc theo màu và màu được chỉ định bạn sẽ đếm liên tiếp. Xem ảnh chụp màn hình:

Sau khi lọc, cả hai công thức SUBTOTAL sẽ tự động đếm và tính tổng tất cả các ô màu đã lọc trong cột Số lượng. Xem ảnh chụp màn hình:

Chú thích: Phương pháp này yêu cầu các ô màu bạn sẽ đếm hoặc tổng nằm trong cùng một cột.

Một cú nhấp chuột để đếm, tổng và các ô màu trung bình trong Excel

Với sự xuất sắc Đếm theo màu tính năng của Kutools cho Excel, bạn có thể nhanh chóng đếm, tính tổng và trung bình các ô bằng màu tô hoặc màu phông chữ được chỉ định chỉ với một cú nhấp chuột trong Excel. Bên cạnh đó, tính năng này cũng sẽ tìm ra giá trị tối đa và tối thiểu của các ô bằng màu tô hoặc màu chữ. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày!
số lượng quảng cáo theo màu 2

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Get It Now

Đếm hoặc Tổng các ô màu bằng hàm GET.CELL

Trong phương pháp này, chúng ta sẽ tạo một phạm vi được đặt tên bằng hàm GET.CELL, lấy mã màu của các ô, sau đó đếm hoặc tính tổng theo mã màu một cách dễ dàng trong Excel. Vui lòng làm như sau:

1. Nhấp chuột Công thức > Xác định tên. Xem ảnh chụp màn hình:

2. Trong hộp thoại Tên mới, vui lòng làm như ảnh chụp màn hình dưới đây:
(1) Nhập tên vào hộp Tên;
(2) Nhập công thức = GET.CELL (38, Sheet4! $ E2) trong hộp Tham khảo (ghi: trong công thức, 38 nghĩa là trả lại mã ô, và Trang tính 4! $ E2 là ô đầu tiên trong cột Số tiền ngoại trừ tiêu đề cột mà bạn cần thay đổi dựa trên dữ liệu bảng của mình.)
(3) Nhấp vào OK .

3. Bây giờ thêm cột Màu mới vào ngay bảng ban đầu. Tiếp theo gõ công thức = NumColor và kéo nút điều khiển Tự động điền để áp dụng công thức cho các ô khác trong cột Màu. Xem ảnh chụp màn hình:
Chú thích: Trong công thức, NumColor là phạm vi được đặt tên mà chúng tôi đã chỉ định trong 2 bước đầu tiên. Bạn cần thay đổi nó thành tên được chỉ định mà bạn đã đặt.

Bây giờ mã màu của mỗi ô trong cột Số lượng trả về trong Cột Màu. Xem ảnh chụp màn hình:

4. Sao chép và liệt kê màu tô trong một phạm vi trống trong trang tính đang hoạt động và nhập công thức bên cạnh nó như hình minh họa bên dưới:
A. Để đếm ô theo màu, vui lòng nhập công thức = COUNTIF ($ F $ 2: $ F $ 20, NumColor);
B. Để tính tổng các ô theo màu, vui lòng nhập công thức = SUMIF ($ F $ 2: $ F $ 20, NumColor, $ E $ 2: $ E $ 20).

Chú thích: Trong cả hai công thức, $ F $ 2: $ F $ 20 là cột Màu, NumColor là phạm vi được đặt tên được chỉ định, $ E $ 2: $ E $ 20 là Cột Số lượng và bạn có thể thay đổi chúng khi cần.

Bây giờ bạn sẽ thấy các ô trong cột Số tiền được đếm và tính tổng bằng màu tô của chúng.


Đếm và tính tổng các ô dựa trên màu tô cụ thể với Hàm do Người dùng Xác định

Giả sử các ô màu phân tán trong một phạm vi như hình minh họa bên dưới, cả hai phương pháp trên đều không thể đếm hoặc tính tổng các ô màu. Ở đây, phương pháp này sẽ giới thiệu một VBA để giải quyết vấn đề.

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

VBA: Đếm và tính tổng các ô dựa trên màu nền:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

3. Sau đó, lưu mã và áp dụng công thức sau:
A. Đếm các ô màu: = chức năng màu (A, B: C, FALSE)
B. Tính tổng các ô màu: = chức năng màu (A, B: C, TRUE)

Lưu ý: Trong các công thức trên, A là ô có màu nền cụ thể mà bạn muốn tính số và tổng, và B: C là phạm vi ô mà bạn muốn tính số lượng và tổng.

4. Lấy ví dụ như ảnh chụp màn hình sau, nhập công thức= chức năng màu (A1, A1: D11, FALSE) để đếm các ô màu vàng. Và sử dụng công thức = chức năng màu (A1, A1: D11, TRUE) để tính tổng các ô màu vàng. Xem ảnh chụp màn hình:

5. Nếu bạn muốn đếm và tính tổng các ô màu khác, vui lòng lặp lại bước 4. Sau đó bạn sẽ nhận được kết quả sau:


Đếm và Tổng các ô dựa trên màu tô cụ thể với Chức năng Kutools

Kutools cho Excel cũng hỗ trợ một số chức năng hữu ích để giúp người dùng Excel thực hiện các phép tính đặc biệt, chẳng hạn như đếm theo màu nền ô, tổng theo màu phông chữ, v.v.

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Dùng thử miễn phí ngay!

1. Chọn ô trống bạn đặt kết quả đếm và nhấp vào Kutools > Các chức năng của Kutools > Thống kê & Toán học > COUNTBYCELLCOLOR. Xem ảnh chụp màn hình:

2. Trong hộp thoại Đối số Hàm, vui lòng chỉ định phạm vi bạn sẽ đếm các ô màu trong Tài liệu tham khảo , hãy chọn ô được tô bởi màu nền đã chỉ định trong Color_index_nr và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Ghi chú:
(1) Bạn cũng có thể nhập Hàm Kutools được chỉ định = COUNTBYCELLCOLOR ($ A $ 1: $ E $ 20, G2)  trong ô trống hoặc thanh công thức trực tiếp để lấy kết quả đếm;
(2) Nhấp vào Kutools > Các chức năng của Kutools > Thống kê & Toán học > SUMBYCELLCOLOR hoặc loại = SUMBYCELLCOLOR ($ A $ 1: $ E $ 20, G2) trong ô trống trực tiếp để tính tổng các ô dựa trên màu nền đã chỉ định.
Áp dụng COUNTBYCELLCOLOR SUMBYCELLCOLOR các chức năng cho từng màu nền riêng biệt và bạn sẽ nhận được kết quả như ảnh chụp màn hình bên dưới:

Các chức năng của Kutools chứa một số hàm tích hợp để giúp người dùng Excel tính toán dễ dàng, bao gồm Đếm / Tổng / Trung bình các ô có thể nhìn thấy, Đếm / Tổng theo màu ô, Đếm / Tổng theo màu phông chữ, Đếm ký tự, Đếm theo phông chữ đậm, Vv Có một bản dùng thử miễn phí!


Đếm và tính tổng các ô dựa trên màu tô cụ thể với Kutools cho Excel

Với Hàm do người dùng xác định ở trên, bạn cần nhập từng công thức một, nếu có nhiều màu khác nhau thì phương pháp này sẽ rất tẻ nhạt và tốn thời gian. Nhưng nếu bạn có Kutools cho Excel'S Đếm theo màu tiện ích, bạn có thể nhanh chóng tạo một báo cáo về các ô màu. Bạn không chỉ có thể đếm và tính tổng các ô được tô màu mà còn có thể nhận các giá trị trung bình, tối đa và giá trị nhỏ nhất của dải màu.

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Dùng thử miễn phí ngay!

1. Chọn phạm vi mà bạn muốn sử dụng và nhấp vào Kutools Plus > Đếm theo màu, xem ảnh chụp màn hình:

2. Và trong Đếm theo màu hộp thoại, vui lòng làm như ảnh chụp màn hình dưới đây:
(1) Chọn Định dạng tiêu chuẩn từ Phương pháp màu danh sách thả xuống;
(2) Chọn Bối cảnh từ Loại đếm danh sách thả xuống.
(3) Nhấp vào nút Tạo báo cáo.

Chú thích: Để đếm và tính tổng các ô được tô màu theo màu định dạng có điều kiện cụ thể, vui lòng chọn Định dạng có điều kiện từ Phương pháp màu danh sách thả xuống trong hộp thoại ở trên hoặc chọn Định dạng tiêu chuẩn và có điều kiện từ danh sách thả xuống để đếm tất cả các ô được tô bởi màu đã chỉ định.

Bây giờ bạn sẽ nhận được một sổ làm việc mới với các số liệu thống kê. Xem ảnh chụp màn hình:

Mô hình Đếm theo màu tính năng tính toán (Đếm, Tổng, Trung bình, Tối đa, v.v.) các ô theo màu nền hoặc màu phông chữ. Có một bản dùng thử miễn phí!


Bài viết liên quan:


Demo: Đếm và tính tổng các ô dựa trên màu nền, định dạng có điều kiện:


Kutools cho Excel bao gồm hơn 300 công cụ tiện dụng cho Excel, miễn phí dùng thử không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay bây giờ!

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Super Formula Bar (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nê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!
officetab dưới cùng
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dusty · 1 years ago
    Is there a way to count different color backgrounds from conditional formatting? The current code as of 7/14/2020 counts them all as default yellow or not at all.
    • To post as a guest, your comment is unpublished.
      kellytte · 1 years ago
      Hi Dusty,
      You can try the Count by Color feature of Kutools for Excel. This feature will help you quickly calculate (count, sum, average, etc.) cells by cell background color or font color, no matter they are formatted by conditional formatting or solidly format.
  • To post as a guest, your comment is unpublished.
    Dennis · 1 years ago
    Did anyone find a solution to auto-refresh? I have to manually refresh for it to update. Otherwise, it works great!
    • To post as a guest, your comment is unpublished.
      kellytte · 1 years ago
      Hi Dennis,
      By default, formulas are calculated in Excel until you are turning off the Automatic Formula Calculation. You can enable it by clicking Formulas > Calculation Options > Automatic.
  • To post as a guest, your comment is unpublished.
    Natasha · 1 years ago
    Anyone have tips on a max by color VBA?
    • To post as a guest, your comment is unpublished.
      kellytte · 1 years ago
      Hi Natasha,
      VBA is good but hard to apply. But below methods may solve your work easily too.
      Method 1: Use Find & Replace feature to select and statistic the color cells
      (1) Press Ctrl + H keys to open the Find and Replace dialog, and then enable the Find tab.
      (2) In the dialog, click Options to show advanced find options.
      (3) Then click Format > Choose Format From Cell, and select one of the specified color cells.
      (4) Click Find All. Now all cells with the same fill color are found out and listed at the bottom of the dialog.
      (5) Select one of found cells, and press Ctrl + A to select all found cells, so that these cells are selected in the worksheet.
      (6) Now you can get the count, average, sum, min, max, etc. of these cells in the task bar.
      Note: If a certain statistic result cannot be found one the taskbar, you can right click the task bar, and then tick the specified item to show it.

      Method 2: Kutools for Excel
      Kutools for Excel supports 30-day free trial. Therefore, you can download it and try its Count by color feature to solve your problem with several clicks only.
  • To post as a guest, your comment is unpublished.
    Paul · 1 years ago
    awesome fix! count by color over an entire sheet was just what i was looking for and your VBA code was tighter than others that i have looked at. Works like a charm. Thank you, and again, well done.
  • To post as a guest, your comment is unpublished.
    Mori · 2 years ago
    I copied and paste but calculation result is "0" why?? I am using Office 2016.
    • To post as a guest, your comment is unpublished.
      Krits · 1 years ago
      I try the same you this command =COUNTBYCELLCOLOR is counting only fill color but is not count by condition formating. Please help to improve code thx.
  • To post as a guest, your comment is unpublished.
    havdaddy · 2 years ago
    I've copied and pasted as stated and have used this formula for over a year but recently saved the workbook to a new name and now the function doesn't work! I can't figure out what the deal is and I'm losing hair and sleep over it! Loading the original workbook, the formula works like a charm but going back to the new one, it doesn't! I've loaded VBA and tried re-creating the function but it doesn't work. Using Office 2019 - any help appreciated.
    • To post as a guest, your comment is unpublished.
      Jku · 2 years ago
      #NAME clearly indicates some keyword is not used in 2019, say, Interior.ColorIndex. Try to figure out changing the code from minimum lines to the full by adding one by one or search for the keywords in Excel/VBA in 2019
    • To post as a guest, your comment is unpublished.
      havdaddy · 2 years ago
      I should probably have also noted that I get a #NAME? error in the cell in which I try to use the function.
  • To post as a guest, your comment is unpublished.
    Karolin · 2 years ago
    works fine, except it does not update the value in the totals when i change a cell to a diffrent colour. i have to click in the totals cell again to trigger a recount. Any Ideas how to fix this?
    • To post as a guest, your comment is unpublished.
      amirhamzah2107@gmail.com · 2 years ago
      Same here, i tried Ctrl+Alt+F9 or Ctrl+Shift+Alt+F9 to recalculate all formula and it works
  • To post as a guest, your comment is unpublished.
    Aaron · 2 years ago
    This doesn't work at all. It's total BS.
  • To post as a guest, your comment is unpublished.
    Schmingy · 3 years ago
    I was experiencing issues when attempting to use this function as-is to count/sum the lighter (pastel?) colors, at least in Excel 2016. Some debugging led me to realize that the range of "ColorIndex" values is quite limited, and the function above fails to distinguish between light yellow and light orange, reading both as ColorIndex = 19.

    Using the "Color" attribute, instead (as in "lCol = rColor.Interior.Color" and the two instances of "If rCell.Interior.Color = lCol Then", per the sample code above), resolved the issue.
  • To post as a guest, your comment is unpublished.
    Hredoy · 3 years ago
    i want to colour in excel by using if function.
  • To post as a guest, your comment is unpublished.
    Keerthi · 3 years ago
    Fix your formula, its not "=colorfunction(A,B:C,FALSE)", but "=colorfunction(A;B:C;FALSE)" its a semi-colon, not a comma.
    • To post as a guest, your comment is unpublished.
      Slegnor · 3 years ago
      I get an error when using ; but using, calculates fine?
  • To post as a guest, your comment is unpublished.
    Don Sison · 3 years ago
    This is useful for counting cells with a specific colour. How do you count all cells with any colour?
  • To post as a guest, your comment is unpublished.
    Ashwin · 3 years ago
    Its work for me but does not get Auto refreshed - evey time i have to come back to cell and press enter. Any reason ?
  • To post as a guest, your comment is unpublished.
    Bobo · 3 years ago
    I have a few merged cells in the range, and the formula calculates the count of each cell within merged cell. I need count of each merged cell as 1. Waiting for some help.
  • To post as a guest, your comment is unpublished.
    Paul · 3 years ago
    I had the #NAME Error but I realised that it was because I was spelling COLOR as Colour (UK English Spelling). It worked after I change the spelling.
  • To post as a guest, your comment is unpublished.
    Oana · 3 years ago
    I tried to use this formula in a pivot table (and in a normal excel table) where I've applied conditional formatting to color the cells and it's not working. Do you know why and how can I fix this?
    Thanks!
  • To post as a guest, your comment is unpublished.
    Will · 3 years ago
    I copied and pasted this code into the module screen but when I went back to the spreadsheet, the ColorFunction only returned the #NAME? error. What am I doing wrong? I have Microsoft Excel for Mac version 15.41.
    • To post as a guest, your comment is unpublished.
      Arjun · 3 years ago
      I used the Code and it was working fine till now. Suddenly it has stopped working. This is a very useful tool for me. Kindly help.
    • To post as a guest, your comment is unpublished.
      amohuanna · 3 years ago
      Did you check the range value and cell that contains the desired color?
    • To post as a guest, your comment is unpublished.
      kasim · 3 years ago
      Please this VBA with the name of MY FUNCTION save as add in format(type). Then you can solve that problem.
      • To post as a guest, your comment is unpublished.
        andrew.carpenter@gmail.com · 3 years ago
        I'm having this same problem, and unfortunately this answer makes absolutely zero sense in the English language. If anyone is able to suggest a translation, I'd be very interested in hearing it. Thanks.
        • To post as a guest, your comment is unpublished.
          Erin · 3 years ago
          The module & function can't have the same name. Change your module name to Color_Function instead of ColorFunction.
  • To post as a guest, your comment is unpublished.
    Jelena · 3 years ago
    Hi


    after applying range we need it jums back to VBA and says Ambiguous name detected: ColourFunction

    can you please help?
  • To post as a guest, your comment is unpublished.
    kelli.crook9@gmail.com · 3 years ago
    this doesn't work if you change the colors in the cells: so if you change yellow to red or yellow to blank, it doesn't change the count. if you add/create new colored cells then yes it updates the count, but if you change the color of a cell that has already been counted, then the count will not update.
    • To post as a guest, your comment is unpublished.
      Penny · 3 years ago
      if you go back in the cell text with the formula for summing or counting and hit enter, it will recalculate. Just have to remember to do that when changing colors on the range cells.
      • To post as a guest, your comment is unpublished.
        Tim · 3 years ago
        Is there a way to auto-calculate? going into each cell and hitting enter each time colors change is extremely tedious.
  • To post as a guest, your comment is unpublished.
    Casey · 3 years ago
    This has been so useful! Thanks very much for your help
  • To post as a guest, your comment is unpublished.
    Carolyn · 3 years ago
    The =colorfunction WAS working great for me ... got everything as I wanted it to work and then copied the sheet repeatedly ... then around the 10th copied sheet the formula stopped working ... what did I do wrong? How do I fix it?
  • To post as a guest, your comment is unpublished.
    luisa · 3 years ago
    hey, we used the colorfunction and it works fine, however as soon as we close the sheet and open it again the next day, we have to copy+paste+save it all over again, is there any way to save so it will always be there? we save the sheet in a folder that's shared within many computers. Thanks!
    • To post as a guest, your comment is unpublished.
      Tim · 3 years ago
      Luisa,
      When you open VBA, you have VBAProject (sheet1) its the place for makros for THIS SHEET. But you also have VBA Projects (PERSONAL.XLSB). Add module in PERSONAL and paste this makro there. This way you will have function avialable in every file on your computer.
      Im not sure but probably you dont have this PRESONAL.XLSB automaticly, you need to create it.
      Probably not the the fastest way but : click record macro, window will apear where you put name (whatever), shortcut (whatever) and place to store makro (chose personal macros sheet). Click ok, record any makro (puting 1 in cell A1), stop recording. Now you should have PERSONAL.XLSB in the list.
      Hope it works and helps :)
  • To post as a guest, your comment is unpublished.
    Justin · 3 years ago
    This works great unless you are trying to count colors from conditional formatting. Has anybody figured out how to solve that one?
    • To post as a guest, your comment is unpublished.
      Alex · 3 years ago
      Have you found a solution to this? I am trying to do the same thing but like you said, it does not work with conditional formatting.
  • To post as a guest, your comment is unpublished.
    cobalt.kobold@gmail.com · 4 years ago
    This doesn't differentiate between similar colours, so I changed it so it calls the HEX value of the colour instead:

    Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) As Variant
    Dim rCell As Range
    Dim lCol As Variant
    Dim vResult As Variant
    lCol = rColor.Interior.Color
    If SUM = True Then
    For Each rCell In rRange
    If rCell.Interior.Color = lCol Then
    vResult = WorksheetFunction.SUM(rCell, vResult)
    End If
    Next rCell
    Else For Each rCell In rRange
    If rCell.Interior.Color = lCol Then
    vResult = 1 + vResult
    End If
    Next rCell
    End If
    ColorFunction = vResult
    End Function

    Just remember when applying the formula that A cell of the colour you are looking for and B:C is the range to look in. Also, remember that excel can sometimes not auto-update any change to the cell so you might have to manually do it (or write a function ;-)
  • To post as a guest, your comment is unpublished.
    manali · 4 years ago
    I implemented case 1 and it worked successfully. But whenever I change the color the count does not change automatically. I need to click on Count and press enter. Can't the count be changed automatically?
    • To post as a guest, your comment is unpublished.
      Wendy · 4 years ago
      Did you find a solution to this b/c I'm having the same problem.
      • To post as a guest, your comment is unpublished.
        LiamKennedy1985 · 3 years ago
        Any news on this? I am having the same issue. Otherwise perfect :-)
        • To post as a guest, your comment is unpublished.
          Ryan · 3 years ago
          Code works perfectly but also ran into the same issue. Solved it by writing a quick macros that 'refreshes' the function(s) in the cells assigned so you have an accurate count as soon as you run the macros. Hope this helps!
          • To post as a guest, your comment is unpublished.
            Drew · 3 years ago
            Could you share the code you used to "refresh" the macros? I'd greatly appreciate it.
  • To post as a guest, your comment is unpublished.
    Hellen Hornby · 4 years ago
    Hi I tried the above in Excel and keep getting a 'ambiguous name detected' error message related to the colorfunction. Any thoughts?
  • To post as a guest, your comment is unpublished.
    a · 4 years ago
    the function does not differentiate between colours. it just counts any cell this is coloured.
    • To post as a guest, your comment is unpublished.
      cobalt.kobold@gmail.com · 4 years ago
      See my new reply, I've updated it so it will now differentiate between similar colours.
  • To post as a guest, your comment is unpublished.
    Andrea · 4 years ago
    Hi

    Fantastic tool and really easy to use so thank you!

    Is there any update on using this with conditional formatting? I think there is a fix above but I didn't understand how it worked. Simple instructions for a novice would be much appreciated!

    Thanks :)
  • To post as a guest, your comment is unpublished.
    saurabh · 4 years ago
    everything is good but what if i want to add cells across multiple worksheet
  • To post as a guest, your comment is unpublished.
    Hien · 4 years ago
    $2,322.29 2322.29
    $100.00 128.66
    $76.13 76.13
    $450.02 450.02
    $28.66 128.66
    $544.31 488.77

    0 0
    $278.66
    $636.76 636.76
    Please help the numbers on the left are the correct number but when i dragged down the formula i get the numbers on the right. As you can see some of the numbers are correct but others come out wrong. Please help me, i dont understand why this is not working. Thanks.
  • To post as a guest, your comment is unpublished.
    Hien · 4 years ago
    Please help, why do some of my numbers come out correct and some do not? Maybe two out of the 6 will be inccorect because its adding a different number from a different color.
    • To post as a guest, your comment is unpublished.
      mc · 4 years ago
      Change everything that says ".colorindex" to ".color"

      .ColorIndex only supports 256 Colours. And will round similar colours together essentuially.
  • To post as a guest, your comment is unpublished.
    RB · 4 years ago
    Very Helpful.

    Thanks a Lot.

    BR,
    RB.
  • To post as a guest, your comment is unpublished.
    Vamshi · 4 years ago
    The above function is only working for the data in a single sheet
    I want to capture the data from multiple workbooks.

    Please help .
  • To post as a guest, your comment is unpublished.
    Vamshi · 4 years ago
    Hello,

    The above function works only if the all the coloured cells are in single sheet .
    I am unable to perform the colorfunction sum if the coloured cells are in different sheets.
    Any help around this.

    EX;- Trying to consolidate the sum of coloured cells in a Master sheet it says #VALUE
  • To post as a guest, your comment is unpublished.
    Sarah Chen · 4 years ago
    Thanks for this. It's truely helpful to me!!!
  • To post as a guest, your comment is unpublished.
    Ramdzan · 4 years ago
    its a good function however it can't be save for the entire workbook, whenever to go to a new worksheet and I copy and paste the previous worksheet with the function it doesn't work and then must do it all over again, please advise if there anyway I can save the function for free ofcoz :0
  • To post as a guest, your comment is unpublished.
    AHMER IRFAN · 4 years ago
    Jazak ALLAH it was very helpful
  • To post as a guest, your comment is unpublished.
    Jacqui · 4 years ago
    Brilliant! I've been searching for a way to do this. Works perfectly and will save me so much time!!
  • To post as a guest, your comment is unpublished.
    Rod · 4 years ago
    Lack me words to express my gratitude for your code. You've saved a lot of time, wish a could buy you a beer.

    All the best, mate.
  • To post as a guest, your comment is unpublished.
    Phillip · 4 years ago
    Hi,

    Is there any way to change the code so that instead of calculating a SUM when set to TRUE, it will count the number of cells with numbers or text in?? Ideally I would like if it could count a number over 10,000, but just the COUNT function would be great. I have tried simply changing SUM in the code to COUNT, but it doesn't work.

    Any help would be great
  • To post as a guest, your comment is unpublished.
    Himmat · 4 years ago
    Good day,

    I have tried the coding provided. However I am using different color themes, which does not provide me with the answers I am seeking as the coding sums colors of a similar background and I need to obtain the sun for different colors. please assist
  • To post as a guest, your comment is unpublished.
    Ken · 4 years ago
    It's not working for me. I'm running Excel 2013 but I keep getting the Ambiguous name detected: colorfunction.
    Is there a way to fix this?
  • To post as a guest, your comment is unpublished.
    Dazzy · 4 years ago
    Fantastic! Worked very well.
  • To post as a guest, your comment is unpublished.
    Akshatha · 4 years ago
    Hi,

    Works Great. Needed a small tweak though. I have some colored empty cells which are also getting counted right now. How can i ignore those cells?

    Thanks
  • To post as a guest, your comment is unpublished.
    Sylvia · 4 years ago
    Your code works really well. Thanks. Can you now please help to alter the function of colorfunction so horizontally merged cell is counted as one? I am using the following function:
    Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
    lCol = rColor.Interior.ColorIndex
    If SUM = True Then
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = WorksheetFunction.SUM(rCell, vResult)
    End If
    Next rCell
    Else
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = 1 + vResult
    End If
    Next rCell
    End If
    ColorFunction = vResult
    End Function

    Thanks!
  • To post as a guest, your comment is unpublished.
    GV · 5 years ago
    Works Great !!!
    Thanks for posting!!
  • To post as a guest, your comment is unpublished.
    Kailas · 5 years ago
    Thanks! very useful function :)
  • To post as a guest, your comment is unpublished.
    Ranj · 5 years ago
    I have enabled macros to count cell colors. How do add another criteria for text? Lets say I have checked a range and recieved the count for cells that are green. How do I also check how many of those had "D" as text?

    thanks!
  • To post as a guest, your comment is unpublished.
    GK · 5 years ago
    Worked like a charm when other codes would not! THANK YOU!
  • To post as a guest, your comment is unpublished.
    Saifi · 5 years ago
    Thankyou. very helpful information