Макрос для изменения цвета заливки

[rootking]

Доброго времени суток. Помогите, пожалуйста, решить проблему. Есть огромные файл Excel и в нём некоторые ячейки имеют цвет заливки, мне нужно изменить этот цвет на другой. Связи цвета и значения ячейки нет. В общем надо что то типо Желтый изменить на красный. Очень нужно, кому не сложно не откажите в помощи.

[IgorGO]

Ctrl+H, параметры, выбераем искомый формат, выбираем желаемый формат, жмем "заменить все".
всё. извините, что без макроса

[xamillion]

Sub Замена_цвета()
Application.FindFormat.Interior.Col orIndex = 6
Application.ReplaceFormat.Interior. ColorIndex = 3
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

А мне как раз по значению надо подсвечивать ячейки... например, желтым больше 1000, красным больше 5000... И чтобы быстро очистить заливку возможно было... Можно такое сделать?

[SAS888]

Код от xamillion приемлем тогда, когда известно какой именно цвет заливки нужно поменять. Если я правильно понял автора вопроса:

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

то замена желтого на красный - это просто для примера.
В предлагаемом варианте (см. вложение), кликнув правой кнопкой на ячейке, имеющей заливку, которую требуется заменить, в контекстном меню нужно выбрать "Изменить заливку", и на запрос - ввести код новой заливки. В результате на рабочем листе будет заменена заливка во всех ячейках с исходной заливкой. Если нужно "обесцветить" ячейки с выбранной заливкой - введите 0. Если код цвета введен неверно, или такого кода не существует, то изменение заливки просто не произойдет.

По поводу

А мне как раз по значению надо подсвечивать ячейки... например, желтым больше 1000, красным больше 5000... И чтобы быстро очистить заливку возможно было... Можно такое сделать?

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

Sub Zalivka()
    Dim x As Range, y As Range, z As Range
    Application.ScreenUpdating = False: On Error Resume Next
    Set x = Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
    Set y = Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)
    Set z = Union(x, y)
    If x Is Nothing Then Set z = y
    If y Is Nothing Then Set z = x
    For Each Cell In z
        If Cell.Value >= 1000 Then Cell.Interior.ColorIndex = 6
        If Cell.Value >= 5000 Then Cell.Interior.ColorIndex = 3
    Next
    Set x = Nothing: Set y = Nothing: Set z = Nothing
End Sub

Sub Ochistka()
    Cells.Interior.ColorIndex = xlNone
End Sub

P.S. При небольших объемах данных на рабочем листе, более рационально использовать условное форматирование.

[xamillion]

Сообщение от SAS888

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

Оболдеть, мне нравится....

Сообщение от SAS888

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

Sub Zalivka()
.......
End Sub
P.S. При небольших объемах данных на рабочем листе, более рационально использовать условное форматирование.

Тоже прикольно, даже не думал, что так можно делать В Экселе...


Да, чудь было не забыл сказать спасибо - очень полезно...

[acxat]

Как в exele поставить автоматическую заливку цвета если в строке например от 70% до 100% то красный
заранее благодарен,

[EducatedFool]

Сообщение от acxat

Как в exele поставить автоматическую заливку цвета если в строке например от 70% до 100% то красный

http://www.planetaexcel.ru/tip.php?aid=121