• TRANG CHỦ
  • THỦ THUẬT
    • Thủ thuật máy tính
    • Thủ thuật văn phòng
    • Thủ thuật Internet
    • Thủ thuật điện thoại
  • CHIA SẺ PHẦN MỀM
  • DIỆT VIRUS
  • CÔNG NGHỆ SỐ
  • THỦ THUẬT OFFICE
  • HỖ TRỢ
  • DỊCH VỤ
    • Sửa máy tính tại nhà

Blog thủ thuật máy tính - Thủ thuật windows

Blog chia sẻ thủ thuật máy tính và thủ thuật windows, lưu lại những kiến thức trong quá trình mình làm việc

You are here: Home / Thủ thuật Office / Xây dựng hàm làm việc với màu trong Excel

Xây dựng hàm làm việc với màu trong Excel

March 22, 2016 By Chu Quang

(Hàm làm việc với màu trong Excel) Làm việc với Excel thì chúng ta đã quá quen thuộc với các hàm tính toán, thống kê theo giá trị số, ký tự, ngày tháng, … như SUMIF, AVERAGEIF, COUTIF. Chúng ta cũng hay gặp trường hợp thực tế làm việc phải tính toán, thống kê theo giá trị màu chữ hay màu nền ô. Tuy nhiên Excel chưa có sẵn hàm để thực hiện công việc này.

Xay dung ham lam viec voi mau trong excel

Blog thủ thuật tin học xin hướng dẫn các bạn viết hàm tính tổng, trung bình và đếm số lượng theo màu chữ và màu nền ô. Bạn hãy thực hiện lần lượt các bước sau:

Nội dung

  1. 1. Khởi động Microsoft Excel
  2. 2. Nhấn ALT + F11 để bắt đầu Visual Basic Editor
  3. 3. Nhập toàn bộ đoạn mã sau
  4. 4. Quay lại màn hình Excel
    1. a. Thao tác với màu chữ
    2. b. Thao tác với màu nền
    3. Bài viết liên quan:

1. Khởi động Microsoft Excel

2. Nhấn ALT + F11 để bắt đầu Visual Basic Editor

Trong menu Insert chọn Module
Xay dung ham lam viec voi mau trong excel

3. Nhập toàn bộ đoạn mã sau

‘Ham dem so luong theo mau nen chu
Function CountCellsByBackColor(rData As Range, cellRefColor As Range) As Long
Dim indRefColor As Long
Dim cellCurrent As Range
Dim cntRes As Long
cntRes = 0
indRefColor = cellRefColor.CellS(1, 1).Interior.ColorIndex
For Each cellCurrent In rData
If indRefColor = cellCurrent.Interior.ColorIndex Then
cntRes = cntRes + 1
End If
Next cellCurrent
CountCellsByBackColor = cntRes
End Function’Ham tinh tong gia tri theo mau nen chu
Function SumCellsByBackColor(rData As Range, cellRefColor As Range)
Dim indRefColor As Long
Dim cellCurrent As Range
Dim sumRes
sumRes = 0
indRefColor = cellRefColor.CellS(1, 1).Interior.ColorIndex
For Each cellCurrent In rData
If indRefColor = cellCurrent.Interior.ColorIndex Then
sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
End If
Next cellCurrent
SumCellsByBackColor = sumRes
End Function

‘Ham tinh trung binh gia tri theo mau nen chu
Function AverageCellsByBackColor(rData As Range, cellRefColor As Range)
Dim indRefColor As Long
Dim cellCurrent As Range
Dim sumRes
Dim i As Long
sumRes = 0
indRefColor = cellRefColor.CellS(1, 1).Interior.ColorIndex
For Each cellCurrent In rData
If indRefColor = cellCurrent.Interior.ColorIndex Then
sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
i = i + 1
End If
Next cellCurrent
AverageCellsByBackColor = sumRes / i
End Function

‘Ham dem so luong theo mau  chu
Function CountCellsByFontColor(rData As Range, cellRefColor As Range) As Long
Dim indRefColor As Long
Dim cellCurrent As Range
Dim cntRes As Long
cntRes = 0
indRefColor = cellRefColor.CellS(1, 1).Font.ColorIndex
For Each cellCurrent In rData
If indRefColor = cellCurrent.Font.ColorIndex Then
cntRes = cntRes + 1
End If
Next cellCurrent
CountCellsByFontColor = cntRes
End Function

‘Ham tinh tong gia tri theo mau chu
Function SumCellsByFontColor(rData As Range, cellRefColor As Range)
Dim indRefColor As Long
Dim cellCurrent As Range
Dim sumRes
sumRes = 0
indRefColor = cellRefColor.CellS(1, 1).Font.ColorIndex
For Each cellCurrent In rData
If indRefColor = cellCurrent.Font.ColorIndex Then
sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
End If
Next cellCurrent
SumCellsByFontColor = sumRes
End Function

‘Ham tinh trung binh gia tri theo mau chu
Function AverageCellsByFontColor(rData As Range, cellRefColor As Range)
Dim indRefColor As Long
Dim cellCurrent As Range
Dim sumRes
Dim i As Long
sumRes = 0
indRefColor = cellRefColor.CellS(1, 1).Font.ColorIndex
For Each cellCurrent In rData
If indRefColor = cellCurrent.Font.ColorIndex Then
sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
i = i + 1
End If
Next cellCurrent
AverageCellsByFontColor = sumRes / i
End Function

4. Quay lại màn hình Excel

a. Thao tác với màu chữ

Để đếm số lượng, bạn dùng hàm: = CountCellsByFontColor (Vùng cần đếm, Vùng điều kiện cần đếm).
Ví dụ: =CountCellsByFontColor($B$2:B$10,A15) với $B$2:B$10 là vùng dữ liệu cần đếm và A15 là vùng điều kiện màu chữ.

Để tính tổng, bạn dùng hàm: = SumCellsByFontColor(Vùng cần tính tổng, Vùng điều kiện cần tính tổng).

Để tính trung bình, bạn dùng hàm: = AverageCellsByFontColor (Vùng cần tính TB, Vùng điều kiện cần tính TB).

b. Thao tác với màu nền

Để đếm số lượng, bạn dùng hàm: = CountCellsByBackColor (Vùng cần đếm, Vùng điều kiện cần đếm).
Ví dụ: =CountCellsByBackColor($D$2:DC$10,C17) với $D$2:DC$10 là vùng dữ liệu cần đếm và C17 là vùng điều kiện màu chữ.

Để tính tổng, bạn dùng hàm: = SumCellsByBackColor(Vùng cần tính tổng, Vùng điều kiện cần tính tổng).

Để tính tổng, bạn dùng hàm: = AverageCellsByBackColor (Vùng cần tính TB, Vùng điều kiện cần tính TB).

Trên đây là thủ thuật tin học khá đơn giản nhưng sẽ giúp ích cho các bạn trong thao tác và làm việc với Excel.

5/5 - (2 votes)

Bài viết liên quan:

  • Chatbots trong ngành công nghiệp trò chơi
  • Chi tiết cách in ấn tài liệu trong word 2003, 2010, 2013,…
  • TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game
  • Cách sửa laptop bị lỗi màn hình xanh
  • Asus phát triển tài năng esports địa phương với Học viện ROG…

Filed Under: Thủ thuật Office Tagged With: Office, Thủ thuật Excel, Thủ thuật Office

Tìm kiếm

Newbie nên đọc

  • Dạy photoshop cơ bản
  • Thủ thuật Office
  • Tạo website đơn giản

Bài viết nổi bật

  • TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game

    TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game

  • Cách giúp máy tính không bị lag khi chơi game online

    Cách giúp máy tính không bị lag khi chơi game online

  • Cách sửa laptop bị lỗi màn hình xanh

    Cách sửa laptop bị lỗi màn hình xanh

  • Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

    Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

  • Những thủ thuật máy tính đơn giản và hữu ích

    Những thủ thuật máy tính đơn giản và hữu ích

  • Hướng dẫn cách tạo USB cài đặt Windows 10

    Hướng dẫn cách tạo USB cài đặt Windows 10

  • Tạo USB cài đặt Win 10 bằng Media Creation Tool

    Tạo USB cài đặt Win 10 bằng Media Creation Tool

Theo dõi mạng xã hội

Liên hệ với tôi

Nếu các bạn gặp khó khăn gì trong quá trình làm việc hãy liên hệ với tôi theo email:

tranthanhchinh.hd@gmail.com

Những gì tôi biết tôi sẽ hướng dẫn tận tình. Cảm ơn các bạn đã ủng hộ

Blog bạn bè

Blog công nghệ
Tin học AZ
Mẹo vặt đời sống

Đôi lời về tác giả

Blog chia sẻ thủ thuật máy tính - Thủ thuật windows

Mình tên là Thanh Chính đây là nơi mình viết lại những kinh nghiệm làm việc, những thủ thuật máy tính khi máy tính phát sinh một sự cố, cũng như là một nơi lưu trữ lại các kiến thức làm việc của mình để khi cần có thể lấy ra và áp dụng được luôn, Mong các bạn có thể đóng góp thêm cho blog của mình.

Copyright © 2023 · Going Green Pro Theme on Genesis Framework · WordPress · Log in