Nhờ bạn nào rành excel giúp hàm tính tổng màu cell này

[ngthanhhai2015]

Mình có 1 bảng tính 40 ô như bảng dưới,
Mỗi ô có 2 dòng ,có data và màu nền là xanh hoặc đỏ.
Ví dụ ô 1A gồm dòng 1 có data "a"(nền đỏ) và dòng 2 "b"(nền xanh)
câu hỏi là dùng hàm nào để ra 2 con số 10 (số ô xanh) và 7 (số ô đỏ),chỉ cần ra 2 con số tổng,không cần chi tiết ô nào

bạn nào biết chỉ với nhé
/file excel mình attach bên dưới hoặc link drive gg sau:

count cell color.xlsx

drive.google.com

 

[Ba Tê]

Bạn mới tham gia diễn đàn mà chỉ muốn gặp "cao thủ"
Nhờ cao thủ excel giúp hàm tính tổng màu cell này
Những người không phải cao thủ chắc khó tham gia.

 

[ngthanhhai2015]

bạn biết chỉ giúp mình với,ai giải dc vấn đề này mình coi là cao thủ hết^^
/mà đã sửa tít r nha,
cái này mình đang làm việc gặp issue nên hỏi chứ k phải đánh đố gì đâu,bạn nào biết chỉ giúp nhé

 

[Ba Tê]

bạn biết chỉ giúp mình với,ai giải dc vấn đề này mình coi là cao thủ hết^^
/mà đã sửa tít r nha,
cái này mình đang làm việc gặp issue nên hỏi chứ k phải đánh đố gì đâu,bạn nào biết chỉ giúp nhé

Tôi đã làm được mới dám tham gia topic này.
Vẫn còn một chuyện mà tôi chưa muốn gởi bài trả lời vì:
Viết code không thể viết tắt kiểu "dc, r, k..." làm sao code chạy?

 

[be_09]

Mình có 1 bảng tính 40 ô như bảng dưới,
Mỗi ô có 2 dòng ,có data và màu nền là xanh hoặc đỏ.
Ví dụ ô 1A gồm dòng 1 có data "a"(nền đỏ) và dòng 2 "b"(nền xanh)
câu hỏi là dùng hàm nào để ra 2 con số 10 (số ô xanh) và 7 (số ô đỏ),chỉ cần ra 2 con số tổng,không cần chi tiết ô nào

bạn nào biết chỉ với nhé
/file excel mình attach bên dưới hoặc link drive gg sau:

count cell color.xlsx

drive.google.com

Có tất cả là 80 Cell, sao bạn nêu là 40 Cell.
Nguyên tắc đếm Cell màu là đếm từng Cell riêng lẽ, bạn lại đếm Double là sao?

 

[leonguyenz]

bạn biết chỉ giúp mình với,ai giải dc vấn đề này mình coi là cao thủ hết^^
/mà đã sửa tít r nha,
cái này mình đang làm việc gặp issue nên hỏi chứ k phải đánh đố gì đâu,bạn nào biết chỉ giúp nhé

Tham khảo code sau:

Function GpeColor(Rng As Range, Cel As Range)
Dim iC As Integer, i As Long, j As Long
iC = Cel.Interior.ColorIndex
For i = 1 To Rng.Rows.Count Step 2
    For j = 1 To Rng.Columns.Count
        If Rng(i, j).Interior.ColorIndex = iC And _
            Rng(i + 1, j).Interior.ColorIndex = iC Then
            Tmp = Tmp + 1
        End If
    Next j
Next i
GpeColor = Tmp
End Function

Cú pháp: =GpeColor(vùng cần đếm, ô chứa màu cần đếm)

 

[SA_DQ]

Macro ở bài #06 chỉ xác định tổng của các ô tô màu 'bình thường' thôi

Nếu tô bỡi CF thì chưa đặng!