Замена цвета фона в ячейках

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

Совершенно очевидно, что вы можете изменить цвет фона любых ячеек вручную, поэтому нет необходимости использовать эту опцию для внесения изменений. . Что вам нужно сделать, так это использовать простой инструмент, такой как инструмент «Найти и заменить», чтобы изменить цвет. Выполните следующие действия:

1. Нажмите Ctrl + H , чтобы открыть вкладку «Заменить» диалогового окна «Найти и заменить».
2. Разверните диалоговое окно, нажав кнопку «Параметры». (См. Рис. 1.)

Рис. 1. Вкладка «Заменить» диалогового окна «Найти и заменить».

3. Нажмите кнопку «Формат» справа от поля «Найти». Excel отображает диалоговое окно «Найти формат».
4. Убедитесь, что выбрана вкладка «Заливка». (См. Рис. 2.)

Рис. 2. Вкладка «Заливка» диалогового окна «Найти формат».

5. Используйте элементы управления в диалоговом окне, чтобы указать цвет фона, который вы хотите заменить.
6. Нажмите “ОК”.
7. Нажмите кнопку “Формат” справа от поля “Заменить на”. Excel отображает диалоговое окно «Замена формата».
8. Убедитесь, что выбрана вкладка «Заливка».
9. Используйте элементы управления в диалоговом окне, чтобы указать цвет фона, который вы использовали при изменении ячейки.
10. Нажмите “ОК”.
11. Нажмите “Заменить все”.

Если вам нужно сделать то же самое цвет меняется снова и снова (например, всегда меняется с красного на синий), тогда вам может быть интересно использовать макрос для внесения изменений. Следующий пример можно назначить сочетанию клавиш или добавить на панель быстрого доступа, чтобы вы могли быстро его использовать:

Sub ChangeColor () Dim rCell As Range If Selection.Cells.Count = 1 Then MsgBox «Выберите диапазон для обработки». Exit Sub End If для каждого rCell In Selection Если rCell.Interior.Color = RGB (255, 0, 0) Then ‘красный rCell.Interior.Color = RGB (0, 0, 255)’ blue End If Next rCellEnd Sub

Источник: frestage.ru