Заливка ячейки согласно содержимому

[spirit-ua]

Всем Привет!

Как залить ячейку если она имеет значение?

Если в ячейке А1 значение "GR" значит залить зеленым, если RD - красным...

Будет заливаться много ячеек и значения будут динамические, нужно взять выделеный диапазон, к приеру A1-D25, проверить каждую ячейку и залить согласно значению, помогите макросом

[Serge 007]

А условным форматированием, не?

[spirit-ua]

Сообщение от Serge 007

А условным форматированием, не?

я извиняюсь но не доконца знаю и понимаю что это такое...

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

[spirit-ua]

Нужен именно макрос

[DiemonStar]

http://www.excel-vba.ru/tag/uslovnoe-formatirovanie/

читайте

макросом: http://www.excelworld.ru/forum/2-2330-1

макросом с условным форматированием: http://excelvba.ru/code/RedNumbers

[SAS888]

Можно, например, так:

Sub ReColor()
    Dim i As Integer, s
    With Application
        .FindFormat.Clear: .ReplaceFormat.Clear: .ScreenUpdating = False
        For Each s In Array("GR", "RD")
            i = i + 1
            .ReplaceFormat.Interior.ColorIndex = Choose(i, 10, 3)
            [A1:D25].Replace s, s, xlWhole, , , , , True
        Next
    End With
End Sub