Добрый день. Пытаюсь написать макрос, который будет искать только желтые ячейки и снимать заливку. В таблицу есть ячейки залитые другими цветами, нужно чтобы отлавливал только желтые. Из того, что написал сам, не работает.
Код
Sub отлов
With ThisWorkbook.ActiveSheet
For i = 5 To 30
ActiveSheet.Rows(i).Select
If ActiveCell.EntireRow.Interior.ColorIndex = Yellow Then ActiveCell.EntireRow.Interior.Pattern = xlNone
Next
End With
End Sub
строками не отловите цвет, нужно по ячейкам проверять. Прям полностью строку проверять нужно или определенный диапазон? заливка надеюсь вручную сделана? если УФ то по другому нужно делать.
Самый простой, но не самый быстрый способ (для всего диапазона активного листа с данными)
Код
Sub YelToNone()
Dim cl As Range
Application.ScreenUpdating = False
For Each cl In ActiveSheet.UsedRange.Cells
If cl.Interior.color = vbYellow Then cl.Interior.ColorIndex = xlNone
Next cl
Application.ScreenUpdating = True
End Sub
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄