Как раскрасить ячейки с формулами в Excel

[geliosvamp]

уже решил проблему

[Ксения306]

Добрый день. В таблице есть столбец "Состояние дела" значение ячеек повторяются (На рассмотрении, отказ, выплачено, ожидание документов, письмо страхователю) Помогите написать макрос, чтобы каждая повторяющая ячейка, была выделена своим цветом

[staniiislav]

Сообщение от Ксения306

Добрый день. В таблице есть столбец "Состояние дела" значение ячеек повторяются (На рассмотрении, отказ, выплачено, ожидание документов, письмо страхователю) Помогите написать макрос, чтобы каждая повторяющая ячейка, была выделена своим цветом

пользуйтесь условным форматированием

[SAS888]

Например, для столбца "A", можно так:

Option Compare Text
Sub Main()
    Dim i As Integer, x
    Application.FindFormat.Clear: Application.ReplaceFormat.Clear: Application.ScreenUpdating = False
    For Each x In Array("на рассмотрении", "отказ", "выплачено", "ожидание документов", "письмо страхователю")
        i = i + 1
        Application.ReplaceFormat.Interior.ColorIndex = Choose(i, 3, 4, 5, 6, 7)
        Application.[A:A].Replace x, x, , , , , , True
    Next
End Sub

Естественно, что цвет заливки для каждого элемента, определяемый в функции Choose можно задать по своему вкусу.