Hỏi cách đánh dấu các dòng có 1 ô bất kỳ được tô màu với VBA

[dunn1990]

Chào các bác. Tình hình là em có bài toán như sau:
Em có 1 file excel với bảng dữ liệu gồm n cột và m dòng. trong đó, mỗi dòng sẽ có 1 hoặc nhiều ô hoặc không có ô nào được higlight bằng cách tô màu. Các bác có thể giúp em hàm VBA để đánh dấu vào cột thứ (n+1) những dòng có ít nhất 1 ô được tô màu (màu sắc bất kỳ) được không ạ ? Em cảm ơn các bác nhiều ạ !

 

[bomberman211]

Chào các bác. Tình hình là em có bài toán như sau:
Em có 1 file excel với bảng dữ liệu gồm n cột và m dòng. trong đó, mỗi dòng sẽ có 1 hoặc nhiều ô hoặc không có ô nào được higlight bằng cách tô màu. Các bác có thể giúp em hàm VBA để đánh dấu vào cột thứ (n+1) những dòng có ít nhất 1 ô được tô màu (màu sắc bất kỳ) được không ạ ? Em cảm ơn các bác nhiều ạ !

Bạn chọn vùng cần đếm màu rồi chạy code bên dưới nhé

Sub Mau()
m = Selection.Row + Selection.Rows.count - 1
n = Selection.Column + Selection.Columns.count - 1
For r = Selection.Row To m
    c = Selection.Column
    dem = 0
    Do Until c > n Or dem > 0
        If Cells(r, c).Interior.Pattern <> xlNone Then dem = dem + 1
        c = c + 1
    Loop
    If dem > 0 Then Cells(r, n + 1) = "Co mau"
Next
End Sub