Tính Tổng Theo Màu Trong Excel ? Cách Tính Tổng Các Ô Cùng Màu Trong Excel 2021

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

Bước 1: Ấn tổng hợp phím Alt+F11 để mở hình ảnh Visual Basic Editor (VBE). Sau đó nhấn chuột buộc 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 bạn nhập dòng code sau vào bảng tính:

Function Get
Cell
Color(xl
Range As Range)Dim ind
Row, ind
Column As Long
Dim ar
Results() Application.Volatile If xl
Range Is Nothing Then
Set xl
Range = Application.This
Cell
End If If xl
Range.Count > 1 Then
Re
Dim ar
Results(1 to xl
Range.Rows.Count, 1 to xl
Range.Columns.Count)For ind
Row = 1 lớn xl
Range.Rows.Count
For ind
Column = 1 to lớn xl
Range.Columns.Countar
Results(ind
Row, ind
Column) = xl
Range(ind
Row, ind
Column).Interior.Color
Next
Next
Get
Cell
Color = ar
Results
Else
Get
Cell
Color = xl
Range.Interior.Color
End If
End Function Function Get
Cell
Font
Color(xl
Range As Range)Dim ind
Row, ind
Column As Long
Dim ar
Results() Application.Volatile If xl
Range Is Nothing Then
Set xl
Range = Application.This
Cell
End If If xl
Range.Count > 1 Then
Re
Dim ar
Results(1 to xl
Range.Rows.Count, 1 khổng lồ xl
Range.Columns.Count)For ind
Row = 1 to xl
Range.Rows.Count
For ind
Column = 1 to lớn xl
Range.Columns.Countar
Results(ind
Row, ind
Column) = xl
Range(ind
Row, ind
Column).Font.Color
Next
Next
Get
Cell
Font
Color = ar
Results
Else
Get
Cell
Font
Color = xl
Range.Font.Color
End If kết thúc Function Function Count
Cells
By
Color(r
Data As Range, cell
Ref
Color As Range) As Long
Dim ind
Ref
Color As Long
Dim cell
Current As Range
Dim cnt
Res As Long Application.Volatilecnt
Res = 0ind
Ref
Color = cell
Ref
Color.Cells(1, 1).Interior.Color
For Each cell
Current In r
Data
If ind
Ref
Color = cell
Current.Interior.Color Thencnt
Res = cnt
Res + 1End If
Next cell
Current Count
Cells
By
Color = cnt
Res
End Function Function Sum
Cells
By
Color(r
Data As Range, cell
Ref
Color As Range)Dim ind
Ref
Color As Long
Dim cell
Current As Range
Dim sum
Res Application.Volatilesum
Res = 0ind
Ref
Color = cell
Ref
Color.Cells(1, 1).Interior.Color
For Each cell
Current In r
Data
If ind
Ref
Color = cell
Current.Interior.Color Thensum
Res = Worksheet
Function.Sum(cell
Current, sum
Res)End If
Next cell
Current Sum
Cells
By
Color = sum
Res
End Function Function Count
Cells
By
Font
Color(r
Data As Range, cell
Ref
Color As Range) As Long
Dim ind
Ref
Color As Long
Dim cell
Current As Range
Dim cnt
Res As Long Application.Volatilecnt
Res = 0ind
Ref
Color = cell
Ref
Color.Cells(1, 1).Font.Color
For Each cell
Current In r
Data
If ind
Ref
Color = cell
Current.Font.Color Thencnt
Res = cnt
Res + 1End If
Next cell
Current Count
Cells
By
Font
Color = cnt
Res
End Function Function Sum
Cells
By
Font
Color(r
Data As Range, cell
Ref
Color As Range)Dim ind
Ref
Color As Long
Dim cell
Current As Range
Dim sum
Res Application.Volatilesum
Res = 0ind
Ref
Color = cell
Ref
Color.Cells(1, 1).Font.Color
For Each cell
Current In r
Data
If ind
Ref
Color = cell
Current.Font.Color Thensum
Res = Worksheet
Function.Sum(cell
Current, sum
Res)End If
Next cell
Current Sum
Cells
By
Font
Color = sum
Res
End Function
Lưu bảng tính vừa nhập code bên dưới tên“Excel Macro-Enabled Workbook (.xlsm)”. Như vậy, họ đã xử lí kết thúc phần code VBA.

Bước 3: quay trở về trang tính tinh thần giao hàng, ta tạo một bảng tổng hợp công dụng đếm ô theo màu. Để triển khai phân nhiều loại và đếm số ô tất cả màu tương ứng, ta dùng hàm color trong Excel theo công thức:

=Count
Cells
By
Color(range, màu sắc code)

Trong đó:

Như vậy, ta sẽ nhập vào ô B15 công thức: =Count
Cells
By
Color($E$2:$E$12,A15)

Lưu ý: bạn cũng có thể sử dụng tham chiếu hoàn hảo nhất để khóa phạm vi đếm.

Tương trường đoản cú như công thức hàm color phía trên, nhằm tính tổng số liệu những ô theo màu sắc tương ứng, bọn họ dùng hàm sau:

=Sum
Cells
By
Color(range, màu sắc code)

Trong ví dụ trên, mang sử họ cần tính tổng con số hàng theo từng tâm trạng giao hàng. Ta điền vào ô B15 công thức: =Sum
Cells
By
Color($C$2:$C$12,A15)

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

Thay vì thực hiện màu ô để đếm số ô tương ứng, họ còn rất có thể đếm số ô theo color chữ bằng cách dùng hàm:

=Count
Cells
By
Font
Color(range, màu sắc code)

Để tính tổng các ô phụ thuộc màu chữ, chúng ta chỉ cần nhập công thức dễ dàng và đơn giản như sau:

=Sum
Cells
By
Font
Color(range, color code)

Lưu ý: Khi áp dụng code VBA phía trên, vào trường hợp bọn họ cần thêm các ô dữ liệu mới, bọn họ sẽ yêu cầu tô color ô hoặc màu sắc chữ thủ công. Kết quả số ô và tổng những ô đang tính vẫn không tự động cập nhật thêm rất nhiều ô dữ liệu mới. Ráng vào đó, các bạn cần di con trỏ chuột vào một trong những ô bất kì trong phạm vi, ấn F2 rồi Enter. Thời điểm đó Excel mới update kết quả sau cùng.

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

Nếu các bạn có nhu cầu đếm với tính toàn bô ô theo một màu tốt nhất định thì nên nhập code sau vào VBA:

Function Wbk
Count
Cells
By
Color(cell
Ref
Color As Range)Dim v
Wbk
Res
Dim wsh
Current As Worksheet Application.Screen
Updating = False
Application.Calculation = xl
Calculation
Manual v
Wbk
Res = 0For Each wsh
Current In Worksheetswsh
Current.Activatev
Wbk
Res = v
Wbk
Res + Count
Cells
By
Color(wsh
Current.Used
Range, cell
Ref
Color)Next
Application.Screen
Updating = True
Application.Calculation = xl
Calculation
Automatic Wbk
Count
Cells
By
Color = v
Wbk
Res
End Function Function Wbk
Sum
Cells
By
Color(cell
Ref
Color As Range)Dim v
Wbk
Res
Dim wsh
Current As Worksheet Application.Screen
Updating = False
Application.Calculation = xl
Calculation
Manual v
Wbk
Res = 0For Each wsh
Current In Worksheetswsh
Current.Activatev
Wbk
Res = v
Wbk
Res + Sum
Cells
By
Color(wsh
Current.Used
Range, cell
Ref
Color)Next
Application.Screen
Updating = True
Application.Calculation = xl
Calculation
Automatic Wbk
Sum
Cells
By
Color = v
Wbk
Res
End Function
Các bạn cũng có thể sử dụng mã Macro phía trên cùng. Cách làm =Wbk
Count
Cells
Color() và =Wbk
Sum
Cells
By
Color(). Bằng phương pháp nhập công thức vào trong 1 ô trống bất kì bên phía ngoài vùng lựa chọn, xác xác định trí ô chứa màu chắt lọc và nhập địa chỉ ô vào ngoặc đối chọi (), các các bạn sẽ nhận được công dụng tổng những ô thuộc màu trong trang tính.

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

Công thức đếm số ô bởi màu sắc:

Công thức tính tổng bằng màu sắc:

Công thức lấy mã màu:

Lưu ý: tất cả các công thức chỉ vận động khi các bạn thêm tính năng được quan niệm vào trang tính Excel.

Cách đếm và tính tổng những ô màu định dạng có điều kiện bằng hàm màu sắc trong Excel

Để đếm cùng tính tổng các ô màu sắc ở bất kể định dạng có đk nào, bọn họ cần nhập code VBA bên dưới đây:

Sub Sum
Count
By
Conditional
Format()Dim ind
Ref
Color As Long
Dim cell
Current As Range
Dim cnt
Res As Long
Dim sum
Res
Dim cnt
Cells As Long
Dim ind
Cur
Cell As Long cnt
Res = 0sum
Res = 0 cnt
Cells = Selection.Count
Largeind
Ref
Color = Active
Cell.Display
Format.Interior.Color For ind
Cur
Cell = 1 lớn (cnt
Cells – 1)If ind
Ref
Color = Selection(ind
Cur
Cell).Display
Format.Interior.Color Thencnt
Res = cnt
Res + 1sum
Res = Worksheet
Function.Sum(Selection(ind
Cur
Cell), sum
Res)End If
Next
Msg
Box “Count=” và cnt
Res và vb
Cr
Lf & “Sum= ” & sum
Res & vb
Cr
Lf và vb
Cr
Lf và _“Color=” và Left(“000000”, 6 – Len(Hex(ind
Ref
Color))) và _Hex(ind
Ref
Color) và vb
Cr
Lf, , “Count & Sum by Conditional Format color”End Sub
Chúng ta có tác dụng theo quá trình sau:

Bước 1: chọn vùng dữ liệu bằng số hy vọng thao tác.

Bước 2: nhận giữ phím Ctrl, chọn 1 ô có màu muốn thao tác trong vùng dữ liệu, thả phím Ctrl.

Bước 3: Nhấn tổng hợp Alt+F8 nhằm mở list Macros.

Bước 4: chọn Sum
Count
By
Conditional
Format cùng nhấn Run.

Sau khi trả thành, hiệu quả được hiển thị như trong ảnh:

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

Tổng kết

Vậy là họ đã học hoàn thành cách đếm và tính tổng các ô theo màu bởi hàm màu sắc trong Excel rồi. Bằng cách sử dụng yếu ớt tố màu sắc, các chúng ta có thể phân loại dữ liệu ví dụ hơn, bên cạnh đó tăng sự tấp nập 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 với code VBA Excel, hãy đọc các bài viết trên blog cya.edu.vn với đăng kí các khóa học tập Excel của cya.edu.vn nhé.

Xem thêm: Bản đồ du lịch bình thuận ❤️_❤️ khổ lớn phóng to năm 2023, bản đồ du lịch thành phố phan thiết từ a

Tất cả khóa học Excel trên cya.edu.vn đều phải có chương trình được tạo bởi chuyên viên tin học tập văn phòng có nhiều năm kinh nghiệm đào tạo cho nhân viên các tập đoàn lớn. Bạn sẽ học cùng công tác như cya.edu.vn đã cung ứng cho những doanh nghiệp như Samsung, TH True Milk, ly Cốc, Vietinbank, VP Bank,... Trong quá trình học, giảng viên cũng luôn hỗ trợ sát sao, câu trả lời mọi thắc mắc của chúng ta trong vòng. Hãy đặt thắc mắc dưới clip bài giảng nếu bạn có vụ việc chưa phát âm nhé.