[Check màu chứa trong sheet]

[ruahiphop]

Chào các bác
em có chút vấn đề xin nhờ các bạn giúp cho
em có một sheet cần được check màu (ví dụ nếu có màu vàng trong sheet thì arlet và đưa ra vị trí).

em định làm theo hướng
dùng Cells.select để lấy ra tất cả các cells rồi chạy vòng lặp cho nó quét
nếu tìm thấy ô màu nào thì get địa chỉ tại đó ra.

Nhưng em ko biết cách get từng cell đơn lẻ như thế nào các bác chỉ giúp với

Bác nào có cách giải quyết bài toán gọn hơn thì mách em với

Sub CheckColor()
Dim c As Range, Cnt As Integer
    Cnt = 0
    For Each c In Selection
        If c.Interior.ColorIndex > 0 Then
            Cnt = Cnt + 1
        End If
    Next c
    If Cnt > 0 Then
        MsgBox "There are " & Cnt & " cells have invalid color"
    End If
    Sheet1.Cells.Select
End Sub

Em muốn tổng quát cái này lên để check màu bằng cách
sheetname.cells.select
trước vòng for thì nó bị chạy vòng lặp vô hạn
bác nào giúp em tổng quát lên mà ko cần phải tự select bằng tay với
em cám ơn

 

[nghiaphuc]

(......)
bác nào giúp em tổng quát lên mà ko cần phải tự select bằng tay với
em cám ơn

Bạn thử thay chố For Each c In Selection thành For Each c In Sheets("SheetName").UsedRange xem sao.

 

[ChanhTQ@]

Bạn thử với cái ni xem mần răng:

Sub FindInteriorColorCells()
 Dim Rng As Range, Cls As Range
 Dim MyC As Long
 
 [iU1].Resize(60).Clear
 Set Rng = Cells.CurrentRegion
 For Each Cls In Rng
    MyC = Cls.Interior.ColorIndex
    If MyC > 0 Then
        With Cells(MyC, "iU")
            .Value = .Value + 1
        End With
    End If
 Next Cls
End Sub

 

[ruahiphop]

em làm được rồi cảm bác

em làm được rồi cảm ơn các bác