Đếm Các Ô Cùng Màu Trong Excel

Cách đếm với tính tổng các ô màu bởi hàm màu sắc trong Excel

Chúng ta hãy đi vào một ví dụ ví dụ về hàm màu sắc trong Excel nhằm xác định quá trình cần làm. Dưới đấy là trang tính thể thực trạng thái giao hàng của một công ty vận tải, trong những số đó "Đang ship hàng trong X ngày" được tô màu vàng, "Giao sản phẩm thành công" được tô màu sắc xanh, "Quá hạn giao hàng" được tô màu đỏ. Hãy thuộc xem cách áp dụng hàm color trong Excel để đếm và tính tổng các ô theo màu tương xứng nhé.

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

Function GetCellColor(xlRange As Range)Dim indRow, indColumn As LongDim 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 lớn xlRange.Rows.CountFor indColumn = 1 to xlRange.Columns.CountarResults(indRow, indColumn) = xlRange(indRow, indColumn).Interior.ColorNextNextGetCellColor = arResultsElseGetCellColor = xlRange.Interior.ColorEnd IfEnd FunctionFunction GetCellFontColor(xlRange As Range)Dim indRow, indColumn As LongDim arResults()Application.VolatileIf xlRange Is Nothing ThenSet xlRange = Application.ThisCellEnd IfIf xlRange.Count > 1 ThenReDim arResults(1 lớn xlRange.Rows.Count, 1 khổng lồ xlRange.Columns.Count)For indRow = 1 khổng lồ xlRange.Rows.CountFor indColumn = 1 khổng lồ xlRange.Columns.CountarResults(indRow, indColumn) = xlRange(indRow, indColumn).Font.ColorNextNextGetCellFontColor = arResultsElseGetCellFontColor = xlRange.Font.ColorEnd IfEnd FunctionFunction CountCellsByColor(rData As Range, cellRefColor As Range) As LongDim indRefColor As LongDim cellCurrent As RangeDim cntRes As LongApplication.VolatilecntRes = 0indRefColor = cellRefColor.Cells(1, 1).Interior.ColorFor Each cellCurrent In rDataIf indRefColor = cellCurrent.Interior.Color ThencntRes = cntRes + 1End IfNext cellCurrentCountCellsByColor = cntResEnd FunctionFunction SumCellsByColor(rData As Range, cellRefColor As Range)Dim indRefColor As LongDim cellCurrent As RangeDim sumResApplication.VolatilesumRes = 0indRefColor = cellRefColor.Cells(1, 1).Interior.ColorFor Each cellCurrent In rDataIf indRefColor = cellCurrent.Interior.Color ThensumRes = WorksheetFunction.Sum(cellCurrent, sumRes)End IfNext cellCurrentSumCellsByColor = sumResEnd FunctionFunction CountCellsByFontColor(rData As Range, cellRefColor As Range) As LongDim indRefColor As LongDim cellCurrent As RangeDim cntRes As LongApplication.VolatilecntRes = 0indRefColor = cellRefColor.Cells(1, 1).Font.ColorFor Each cellCurrent In rDataIf indRefColor = cellCurrent.Font.Color ThencntRes = cntRes + 1End IfNext cellCurrentCountCellsByFontColor = cntResEnd FunctionFunction SumCellsByFontColor(rData As Range, cellRefColor As Range)Dim indRefColor As LongDim cellCurrent As RangeDim sumResApplication.VolatilesumRes = 0indRefColor = cellRefColor.Cells(1, 1).Font.ColorFor Each cellCurrent In rDataIf indRefColor = cellCurrent.Font.Color ThensumRes = WorksheetFunction.Sum(cellCurrent, sumRes)End IfNext cellCurrentSumCellsByFontColor = 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ọ đã xử lí xong phần code VBA.

Lưu ý: Khi sử dụng code VBA phía trên, vào trường hợp bọn họ cần thêm những ô tài liệu mới, chúng ta sẽ buộc phải tô màu sắc ô hoặc màu chữ thủ công. Hiệu quả số ô cùng tổng các ô sẽ tính sẽ không auto cập nhật thêm gần như ô dữ liệu mới. Gắng vào đó, chúng ta cần di bé trỏ chuột vào một trong những ô bất kể trong phạm vi, ấn F2 rồi Enter. Dịp đó Excel mới update kết quả sau cùng.

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

Nếu các bạn có nhu cầu đếm cùng tính tổng cộng ô theo một màu duy nhất định thì hãy nhập code sau vào VBA:

Function WbkCountCellsByColor(cellRefColor As Range)Dim vWbkResDim wshCurrent As WorksheetApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualvWbkRes = 0For Each wshCurrent In WorksheetswshCurrent.ActivatevWbkRes = vWbkRes + CountCellsByColor(wshCurrent.UsedRange, cellRefColor)NextApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticWbkCountCellsByColor = vWbkResEnd FunctionFunction WbkSumCellsByColor(cellRefColor As Range)Dim vWbkResDim wshCurrent As WorksheetApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualvWbkRes = 0For Each wshCurrent In WorksheetswshCurrent.ActivatevWbkRes = vWbkRes + SumCellsByColor(wshCurrent.UsedRange, cellRefColor)NextApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticWbkSumCellsByColor = vWbkResEnd Function

Các bạn cũng có thể sử dụng mã Macro phía bên trên cùng. Phương pháp =WbkCountCellsColor() và =WbkSumCellsByColor(). Bằng phương pháp nhập công thức vào một ô trống bất kì bên phía ngoài vùng lựa chọn, xác định vị trí ô chứa màu chọn lựa và nhập địa điểm ô vào ngoặc đối kháng (), các các bạn sẽ nhận được hiệu quả tổng các ô cùng màu vào trang tính.

Tổng hợp những chức năng tùy chỉnh thiết lập màu nhan sắc ô, color chữ với lấy mã màu bằng hàm màu sắc trong Excel:

Sau khi hoàn thành, công dụng được hiển thị như trong ảnh:

Hộp thoại trên đến thấy: bao gồm 3 ô nền red color thể hiện tại 3 đơn hàng đang làm việc trạng thái quá hạn sử dụng giao hàng, tổng số lượng hàng bị hết thời gian sử dụng giao là 29, với mã của màu đỏ được cần sử dụng trong ô là 7578FF.

Tổng kết

Vậy là họ đã học xong xuôi cách đếm với tính tổng các ô theo màu bằng hàm màu sắc trong Excel rồi. Bằng phương pháp sử dụng yếu đuối tố màu sắc, các bạn cũng có thể phân loại dữ liệu cụ thể hơn, bên cạnh đó tăng sự sinh động cho file Excel của mình. Nếu bạn muốn học thêm những kỹ năng hữu ích tương tự về Excel cùng code VBA Excel, hãy xem thêm các bài viết trên blog bephongngoaidon.com cùng đăng kí những khóa học tập của bephongngoaidon.com nhé.

Chúc các bạn áp dụng thiệt thành công kiến thức và kỹ năng trong bài xích viết!

Tham khảo thêm phía dẫn những công rứa trong Excel:

Hướng dẫn cách dùng hàm index trong Excel cụ thể nhất

Hướng dẫn cách copy chỉ phần lớn giá trị hiển thị sau thời điểm lọc trong Excel

Hướng dẫn cách sắp xếp ngày trong Excel

Hướng dẫn cách dùng hàm VLOOKUP qua những ví dụ từ bỏ cơ bản đến nâng cao

Hướng dẫn cách thực hiện hàm IF với khá nhiều điều kiện: AND, OR, hàm IF lồng nhau với hơn thế