Hướng Dẫn Sử Dụng Hàm Màu Sắc Trong Excel Nhanh, Tự Động, Hướng Dẫn Sử Dụng Hàm Màu Sắc Trong Excel

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

Bước 1: Ấn tổng hợp phím Alt+F11 nhằm mở đồ họa Visual Basic Editor (VBE). Tiếp nối nhấn chuột bắt buộc ở 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 tại 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 khổng lồ xl
Range.Columns.Count)For ind
Row = 1 khổng lồ xl
Range.Rows.Count
For ind
Column = 1 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 lớn xl
Range.Rows.Count, 1 khổng lồ xl
Range.Columns.Count)For ind
Row = 1 khổng lồ xl
Range.Rows.Count
For ind
Column = 1 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 over 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 dưới tên“Excel Macro-Enabled Workbook (.xlsm)”. Như vậy, họ đã xử lí hoàn thành phần code VBA.

Bước 3: trở về trang tính tâm lý giao hàng, ta chế tạo ra một bảng tổng hợp hiệu quả đếm ô theo màu. Để tiến hành phân nhiều loại và đếm số ô tất cả màu tương ứng, ta cần sử dụng hàm màu sắc trong Excel theo công thức:

=Count
Cells
By
Color(range, color code)

Trong đó:

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

Lưu ý: bạn có thể sử dụng tham chiếu tuyệt vời để khóa phạm vi đếm.

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

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

Trong lấy ví dụ trên, mang sử bọn họ cần tính tổng số lượng hàng theo từng trạng thái 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 cùng tính tổng những ô theo color chữ bởi hàm màu sắc trong Excel

Thay vì áp dụng màu ô nhằm đếm số ô tương ứng, họ còn có thể đếm số ô theo màu chữ bằng phương pháp dùng hàm:

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

Để tính tổng những ô nhờ vào màu chữ, họ chỉ cần nhập công thức đơn giản và dễ dàng như sau:

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

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

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

Nếu các bạn muốn đếm cùng tính tổng thể ô theo một màu độc 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 bên trên cùng. Phương pháp =Wbk
Count
Cells
Color() và =Wbk
Sum
Cells
By
Color(). Bằng cách nhập công thức vào một trong những ô trống bất kì bên ngoài vùng lựa chọn, xác xác định trí ô chứa màu chọn lựa và nhập địa điểm ô vào ngoặc 1-1 (), các bạn sẽ nhận được công dụng tổng các ô thuộc màu vào trang tính.

Tổng hợp các chức năng cấu hình thiết lập 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ằng màu sắc:

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

Công thức rước mã màu:

Lưu ý: tất cả các phương pháp chỉ chuyển động khi các bạn thêm tác dụng được quan niệm vào trang tính Excel.

Cách đếm cùng tính tổng những ô màu định hình có đk bằng hàm color trong Excel

Để đếm với tính tổng các ô màu ở bất kì định dạng có đk nào, 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 & vb
Cr
Lf & “Sum= ” & sum
Res & vb
Cr
Lf và vb
Cr
Lf và _“Color=” & Left(“000000”, 6 – Len(Hex(ind
Ref
Color))) & _Hex(ind
Ref
Color) và vb
Cr
Lf, , “Count và Sum by Conditional Format color”End Sub
Chúng ta làm cho theo quá trình sau:

Bước 1: lựa chọn vùng tài liệu bằng số mong muốn thao tác.

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

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

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

Sau khi trả thành, kết quả được hiển thị như vào ảnh:

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

Tổng kết

Vậy là bọn họ đã học hoàn thành cách đếm với 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 bạn có thể phân nhiều loại dữ liệu rõ ràng hơn, đôi khi tăng sự nhộn nhịp cho file Excel của mình. Nếu bạn muốn học thêm những kiến thức hữu ích tương tự như về Excel và code VBA Excel, hãy tham khảo các nội dung bài viết trên blog emcanbaove.edu.vn với đăng kí các khóa học tập Excel của emcanbaove.edu.vn nhé.

Xem thêm: 【1️⃣】 5 Mẫu Báo Cáo Công Việc Tuần Excel 2023 Mới Nhất

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