Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос меняющий один цвет в другой, Макрос раскрашивающий строку уже с цветом в другой цвет
 
#1
19.03.2019 09:47:12
Друзья, нужен макрос который берет файл раскрашенный одними цветами и заменяет эти цвета на другие. То есть допустим находит строки голубого цвета и меняет на розовый. Огромная программа под конкретный документ мне не нужна, просто покажите  как это сделать на примере двух цветов. Все дело в том что мне присылают штатное расписание и у них своё обозначение, а у нас своё. То есть допустим замороженные ставки у них обозначаются красным, а у нас зелёным. И каждый раз перекрашивать долго, поэтому нужен макрос автоматически заменяющий эти цвета. На форуме такой темы не нашла, только раскрашивающий строки по условию, если есть скиньте пожалуйста.
 
 
 
#2
19.03.2019 10:12:47
В общем случае как-то так
Код
Sub ReplaceColor()
Dim cl As Range
For Each cl In ActiveSheet.UsedRange.Cells
    With cl.Interior
        'меняем заливку ячеек с желтого на красный цвет
        If .ColorIndex = 6 Then .ColorIndex = 3
    End With
Next
End Sub
Изменено: Sanja - 19.03.2019 10:19:04
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
19.03.2019 10:57:37
Спасибо Саня  
 
 
 
#4
19.03.2019 11:03:03
Можно "оптом", т. е. не перебирая ячейки, а используя Application.ReplaceFormat.
Например, заменить желтую заливку ячеек на красную можно так:
Код
Sub qq()
    Application.FindFormat.Interior.ColorIndex = 6
    Application.ReplaceFormat.Interior.ColorIndex = 3
    ActiveSheet.UsedRange.Replace "", "", SearchFormat:=True, ReplaceFormat:=True
End Sub
Изменено: SAS888 - 19.03.2019 11:17:25
Чем шире угол зрения, тем он тупее.
 
 
 
#5
19.03.2019 11:53:53
Благодарю!
 
 
 
#6
19.03.2019 17:27:59
SAS888, почему-то ваш вариант не работает, выдаёт ошибку
 
 
 
#7
20.03.2019 04:52:37
Если поиск и замена по формату уже были задействованы, то, возможно, что требуется предварительная очистка параметров.
Код
Sub qq()
    With Application
        .FindFormat.Clear
        .ReplaceFormat.Clear
        .FindFormat.Interior.ColorIndex = 6
        .ReplaceFormat.Interior.ColorIndex = 3
    End With
    ActiveSheet.UsedRange.Replace "", "", SearchFormat:=True, ReplaceFormat:=True
End Sub
Посмотрите пример во вложении. Откройте файл и нажмите кнопку "Выполнить".
Если это не решит проблему, прикрепите Ваш файл, в котором возникает ошибка.
Изменено: SAS888 - 20.03.2019 05:56:28
Чем шире угол зрения, тем он тупее.
 
 
 
Страницы: 1
Наверх