Hàm đếm màu trong excel

Làm gắng nào nhằm áp dụng Color trong trang tính để tăng phần nhộn nhịp đến tệp tin Excel? Nếu ai đang do dự câu hỏi này thì hàm COLOR trong Excel đó là câu vấn đáp bạn đang tìm kiếm. Hãy thuộc daihoangde.vn học biện pháp áp dụng hàm COLOR qua nội dung bài viết ngày hôm nay nhé.

You watching: Hàm đếm màu trong excel

Tuyệt đỉnh Excel - Trlàm việc thành bậc thầy Excel trong 16 giờ

Giới thiệu về hàm COLOR trong Excel

Không gồm gì kỳ cục ví như đấy là lần trước tiên các bạn tìm đến thương hiệu hàm COLOR vào Excel, bởi vì nó ko phía trong khối hệ thống hàm có sẵn của Excel. Tgiỏi vào đó, đó là một hàm UDF (user-defined function) - hàm vày người dùng trường đoản cú tạo nên dựa trên code VBA. Mục đích họ viết một hàm COLOR bắt đầu là nhằm đếm và tính tổng các ô Excel dựa trên Màu sắc.

Nếu chúng ta còn chưa thân quen với thuật ngữ hàm UDF và tuấn kiệt viết hàm bằng lệnh VBA, hãy xem thêm bài viết sau đây nhằm msống khóa một thủ thuật khôn cùng lợi sợ hãi trong Excel nhé.

Cách đếm cùng tính tổng các ô màu bởi hàm COLOR vào Excel

Chúng ta hãy đi vào trong 1 ví dụ ví dụ về hàm COLOR vào Excel nhằm xác định công việc yêu cầu làm. Dưới đây là trang tính thể hiện trạng thái ship hàng của một đơn vị vận tải, trong các số đó "Đang giao hàng vào X ngày" được sơn color xoàn, "ship hàng thành công" được sơn màu xanh da trời, "Quá hạn giao hàng" được tô màu đỏ. Hãy cùng xem bí quyết áp dụng hàm COLOR vào Excel để đếm và tính tổng những ô theo color tương xứng nhé.

Cách đếm và tính tổng những ô theo color ô bằng hàm COLOR vào Excel

Cách đếm số ô theo màu ô bằng hàm COLOR trong ExcelCách 1: Ấn tổng hợp phím Alt+F11
nhằm msinh sống hình ảnh Visual Basic Editor (VBE). Sau đó dấn chuột phải ở tên trang tính trong mục Project - VBA Project, lựa chọn Insert > Module.

*

Bước 2:Một bảng tính hiện ra. Các chúng ta nhập mẫu code sau vào bảng tính:

Function GetCellColor(xlRange As Range)Dlặng indRow, indColumn As LongDyên ổn arResults()Application.VolatileIf xlRange Is Nothing ThenSet xlRange = Application.ThisCellEnd IfIf xlRange.Count > 1 ThenReDim arResults(1 To xlRange.Rows.Count, 1 To xlRange.Columns.Count)For indRow = 1 To xlRange.Rows.CountFor indColumn = 1 To xlRange.Columns.CountarResults(indRow, indColumn) = xlRange(indRow, indColumn).Interior.ColorNextNextGetCellMàu sắc = arResultsElseGetCellMàu sắc = xlRange.Interior.ColorEnd IfEnd FunctionFunction GetCellFontColor(xlRange As Range)Dlặng indRow, indColumn As LongDyên arResults()Application.VolatileIf xlRange Is Nothing ThenSet xlRange = Application.ThisCellEnd IfIf xlRange.Count > 1 ThenReDyên ổn arResults(1 To xlRange.Rows.Count, 1 To xlRange.Columns.Count)For indRow = 1 To xlRange.Rows.CountFor indColumn = 1 To xlRange.Columns.CountarResults(indRow, indColumn) = xlRange(indRow, indColumn).Font.ColorNextNextGetCellFontmàu sắc = arResultsElseGetCellFontmàu sắc = xlRange.Font.ColorEnd IfEnd FunctionFunction CountCellsByColor(rData As Range, cellRefmàu sắc As Range) As LongDyên indRefMàu sắc As LongDyên cellCurrent As RangeDyên cntRes As LongApplication.VolatilecntRes = 0indRefmàu sắc = cellRefmàu sắc.Cells(1, 1).Interior.ColorFor Each cellCurrent In rDataIf indRefMàu sắc = cellCurrent.Interior.Màu sắc ThencntRes = cntRes + 1End IfNext cellCurrentCountCellsByColor = cntResEnd FunctionFunction SumCellsByColor(rData As Range, cellRefColor As Range)Dyên indRefMàu sắc As LongDlặng cellCurrent As RangeDyên ổn sumResApplication.VolatilesumRes = 0indRefColor = cellRefMàu sắc.Cells(1, 1).Interior.ColorFor Each cellCurrent In rDataIf indRefMàu sắc = cellCurrent.Interior.Màu sắc ThensumRes = WorksheetFunction.Sum(cellCurrent, sumRes)End IfNext cellCurrentSumCellsByMàu sắc = sumResEnd FunctionFunction CountCellsByFontColor(rData As Range, cellRefColor As Range) As LongDlặng indRefMàu sắc As LongDyên cellCurrent As RangeDyên cntRes As LongApplication.VolatilecntRes = 0indRefMàu sắc = cellRefMàu sắc.Cells(1, 1).Font.ColorFor Each cellCurrent In rDataIf indRefmàu sắc = cellCurrent.Font.Color ThencntRes = cntRes + 1End IfNext cellCurrentCountCellsByFontmàu sắc = cntResEnd FunctionFunction SumCellsByFontColor(rData As Range, cellRefColor As Range)Dyên ổn indRefMàu sắc As LongDlặng cellCurrent As RangeDyên ổn sumResApplication.VolatilesumRes = 0indRefColor = cellRefColor.Cells(1, 1).Font.ColorFor Each cellCurrent In rDataIf indRefMàu sắc = cellCurrent.Font.Màu sắc ThensumRes = WorksheetFunction.Sum(cellCurrent, sumRes)End IfNext cellCurrentSumCellsByFontmàu sắc = sumResEnd FunctionLưu bảng tính vừa nhập code dưới tên“Excel Macro-Enabled Workbook (.xlsm)”. Như vậy, họ vẫn xử lí xong xuôi phần code VBA.

Bước 3: Quay lại trang tính tâm lý ship hàng, ta chế tạo ra một bảng tổng phù hợp công dụng đếm ô theo color. Để thực hiện phân một số loại và đếm số ô bao gồm màu sắc tương xứng, ta dùng hàm COLOR trong Excel theo công thức:

=CountCellsByColor(range, color code)

Trong đó:

range: là phạm vi đếmcolor code: là code màu tương ứng

Bởi vậy, ta sẽ nhtràn vào ô B15 công thức: =CountCellsByColor($E$2:$E$12,A15)

*

Lưu ý: Chúng ta có thể sử dụng tsay mê chiếu hoàn hảo và tuyệt vời nhất nhằm khóa phạm vi đếm.

Cách tính tổng theo màu sắc ô bằng hàm COLOR trong Excel

Tương tự nlỗi bí quyết hàm COLOR bên trên, để tính tổng thể liệu các ô theo màu tương ứng, chúng ta sử dụng hàm sau:

=SumCellsByColor(range, color code)

*

Cách đếm cùng tính tổng những ô theo color chữ bởi hàm COLOR trong Excel

Cách đếm số ô theo color chữ bởi hàm COLOR trong Excel

Thay vì thực hiện màu ô nhằm đếm số ô khớp ứng, chúng ta còn có thể đếm số ô theo màu chữ bằng phương pháp dùng hàm:

=CountCellsByFontColor(range, color code)

*

Cách tính tổng các ô theo màu chữ bởi hàm COLOR vào Excel

Để tính tổng các ô phụ thuộc vào color chữ, chúng ta chỉ việc nhập công thức dễ dàng và đơn giản nlỗi sau:

=SumCellsByFontColor(range, color code)

*

Lưu ý: Khi sử dụng code VBA phía trên, trong trường phù hợp họ phải thêm những ô dữ liệu bắt đầu, họ sẽ nên tô màu sắc ô hoặc color chữ bằng tay. Kết quả số ô và tổng các ô đã tính sẽ không còn tự động cập nhật thêm hầu như ô tài liệu bắt đầu. Ttuyệt vào kia, các bạn đề nghị di nhỏ trỏ loài chuột vào một ô bất kì vào phạm vi, ấn F2 rồi Enter. Lúc đó Excel bắt đầu update tác dụng ở đầu cuối.

See more: Lớp Học Yoga Cho Trẻ Em Tphcm, : Top 5 Địa Chỉ Uy Tín Nhất Hiện Nay

Cách đếm và tính tổng số ô theo color bên trên cục bộ bảng tính

Nếu những bạn có nhu cầu đếm với tính tổng cộng ô theo một màu khăng khăng thì nên nhập code sau vào VBA:

Function WbkCountCellsByColor(cellRefmàu sắc As Range)Dim vWbkResDlặng wshCurrent As WorksheetApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualvWbkRes = 0For Each wshCurrent In WorksheetswshCurrent.ActivatevWbkRes = vWbkRes + CountCellsByColor(wshCurrent.UsedRange, cellRefColor)NextApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticWbkCountCellsByMàu sắc = vWbkResEnd FunctionFunction WbkSumCellsByColor(cellRefColor As Range)Dyên vWbkResDyên wshCurrent As WorksheetApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualvWbkRes = 0For Each wshCurrent In WorksheetswshCurrent.ActivatevWbkRes = vWbkRes + SumCellsByColor(wshCurrent.UsedRange, cellRefColor)NextApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticWbkSumCellsByMàu sắc = vWbkResEnd Function

Các chúng ta có thể thực hiện mã Macro phía bên trên thuộc. cách làm =WbkCountCellsColor() với =WbkSumCellsByColor(). Bằng giải pháp nhập cách làm vào một trong những ô trống bất cứ phía bên ngoài vùng chắt lọc, xác định vị trí ô cất màu sắc gạn lọc và nhập địa điểm ô vào ngoặc đơn (), các bạn sẽ cảm nhận công dụng tổng các ô thuộc color vào trang tính.

Tổng thích hợp những tính năng thiết lập cấu hình Màu sắc ô, màu chữ và lấy mã color bởi hàm COLOR vào Excel:

Công thức đếm số ô bởi màu sắc sắc:CountCellsBymàu sắc (range,color_code)
– đếm các ô có color nền được chỉ định và hướng dẫn.CountCellsByFontColor (range,color_code)– đếm các ô cùng với màu sắc chữ được chỉ định.Công thức tính tổng bởi color sắc:SumCellsBymàu sắc (range, color code)– tính tổng của các ô bao gồm cùng color nền.SumCellsByFontColor (range, color code)– tính tổng của những ô tất cả cùng màu sắc chữ.Công thức đem mã màu:GetCellFontColor(cell)– trả về mã màu sắc chữ của một ô xác định.GetCellColor(cell)– trả về mã màu nền của một ô khẳng định.

Lưu ý: Tất cả các cách làm chỉ hoạt động Lúc chúng ta thêm công dụng được có mang vào trang tính Excel.

*

Sau lúc kết thúc, kết quả được hiển thị nhỏng trong ảnh:

*

Hộp thoại trên cho thấy: Có 3 ô nền red color miêu tả 3 deals sẽ làm việc tâm lý quá hạn sử dụng Giao hàng, tổng số lượng sản phẩm bị hết hạn giao là 29, với mã của màu đỏ được dùng trong ô là 7578FF.

See more: Cuộc Kháng Chiến Chống Thực Dân Pháp Năm Bao Nhiêu, Hai Cuộc Kháng Pháp Của Dân Tộc Việt Nam

Tổng kết

Vậy là chúng ta sẽ học tập hoàn thành cách đếm và tính tổng những ô theo màu sắc bởi hàm COLOR vào Excel rồi. Bằng giải pháp áp dụng yếu tố Màu sắc, những chúng ta cũng có thể phân một số loại tài liệu ví dụ rộng, đồng thời tăng thêm sự tấp nập mang đến tệp tin Excel của bản thân mình. Nếu bạn có nhu cầu học thêm hầu hết kiến thức bổ ích tương tự về Excel cùng code VBA Excel, hãy tham khảo các nội dung bài viết bên trên blog daihoangde.vn cùng đăng kí các khóa đào tạo của daihoangde.vn nhé.