Excel: если Цвет шрифта выделен красным, вернуть определённый текст или выполнить другие действия
В реальной работе с Excel Цвет шрифта — особенно красные — Общие для обозначения предупреждений, исключений, ошибок проверки или заметок высокого приоритета. Хотя такие цвета легко применять вручную или с помощью Использовать условное форматирование, использовать формулы для обнаружения и реагирования на Цвет шрифта не так просто. Например, вы можете захотеть вернуть пользовательское сообщение, выделить связанную ячейку или изменить форматирование в зависимости от того, выделен ли текст в ячейке красным цветом — как показано ниже.
В этой статье представлены несколько практических решений для выполнения операций с текстом, выделенным красным шрифтом в Excel. Методы варьируются от обнаружения с помощью VBA и использования условного форматирования до встроенных инструментов, таких как «Найти и заменить». Мы также рассмотрим применимость каждого решения в различных сценариях и типичные ошибки, чтобы помочь вам выбрать оптимальный подход.

Если Цвет шрифта выделен красным, вернуть определённый текст в другой ячейке
Когда вам нужно вернуть определённый текст (например, «Fail» или «Pass») в другой ячейке в зависимости от того, выделен ли шрифт в ячейке со ссылкой красным цветом, стандартная формула не подойдёт — встроенные функции Excel не умеют проверять цвет шрифта. В этом случае поможет пользовательская функция на VBA, также известная как UDF (User-Defined Function). Такой подход идеален, если требуется динамически отображать актуальные результаты при любом изменении цвета шрифта. Обратите внимание: для корректной работы функции всем пользователям книги необходимо разрешить выполнение макросов.
1. Нажмите сочетание клавиш Alt + F11, чтобы открыть окно редактора Microsoft Visual Basic для приложений.
2. Затем выберите Вставка > Модуль. В открывшемся окне модуля скопируйте и вставьте следующий код VBA:
Код VBA: если Цвет шрифта выделен красным, вернуть определённый текст
Function FontColorisRed(Rng As Range)
'Updateby ExtendOffice
Application.Volatile
If Rng.Font.ColorIndex = 3 Then
FontColorisRed = "Fail"
Else
FontColorisRed = "Pass"
End If
End Function
3. Закройте редактор VBA. Теперь введите следующую формулу на листе (например, в ячейку C2): =FontColorISRed(B2) и протяните маркер заполнения вниз, чтобы применить её к другим строкам. Как только вы это сделаете, результат немедленно покажет «Fail», если цвет шрифта в ячейке со ссылкой — красный.

Если формула не обновляется после изменения Цвета шрифта в ячейках со ссылками, нажмите F9или повторно введите формулу, чтобы обновить результат. Имейте в виду: как и во всех решениях на основе VBA, файл необходимо сохранить как книгу с поддержкой макросов ().xlsm), а для использования этой функции необходимо включить макросы.

Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Если Цвет шрифта выделен красным, выделить ячейку
Когда вы хотите выделить ячейки, в которых Цвет шрифта выделен красным, для улучшения визуального управления или последующих действий, можно использовать комбинацию функции VBA и Использовать условное форматирование Excel. Это решение эффективно, если вы хотите визуально подчеркнуть определённые ячейки и совместить это с существующими правилами форматирования. Обязательно правильно настройте параметры безопасности макросов, если планируете передавать файл другим пользователям, так как для этого метода требуются макросы.
1. Откройте редактор VBA, нажав Alt + F11.
2. Щёлкните Вставка > Модуль и вставьте следующий код VBA в окно модуля:
Код VBA: если Цвет шрифта выделен красным, выделить ячейку
Function HighlightRedFont(pRg As Range) As Boolean
'Updateby ExtendOffice
Dim xRg As Range
Dim xBol As Boolean
xBol = False
For Each xRg In pRg
If xRg.Font.Color = vbRed Then
xBol = True
End If
Next
HighlightRedFont = xBol
End Function
3. Закройте редактор VBA и вернитесь в Excel. Перейдите в раздел Главная > Использовать условное форматирование > Создать правило, как показано ниже:

4. В диалоговом окне Создание правила форматирования выполните следующие действия:
- В разделе Выберите тип правила выберите Использовать формулу для определения форматируемых ячеек.
- Введите эту формулу в поле формулы (например, для применения к ячейке B2):=highlightredfont(B2)
- Нажмите кнопку Формат, чтобы задать нужное выделение.

5. В диалоговом окне Установить формат ячейки перейдите на вкладку Заливка и выберите цвет выделения для ячеек. Нажмите ОК, чтобы подтвердить свой выбор:

6. Нажмите ОК дважды (по одному разу для каждого диалогового окна), чтобы применить правило. Теперь ячейки с красным шрифтом будут автоматически выделяться в соответствии с вашими настройками, как показано здесь:

Если условное форматирование не обновляется после изменения цвета шрифта, попробуйте отредактировать соответствующую ячейку или нажмите F9, чтобы обновить данные. Помните: этот метод работает только при наличии пользовательской функции VBA и включённых макросах.
Если Цвет шрифта выделен красным, изменить Цвет шрифта
Возможно, вам потребуется преобразовать весь текст с красным шрифтом в другой Цвет шрифта, чтобы унифицировать форматирование или более корректно пометить данные. В Excel существует несколько решений для этой задачи, включая встроенные средства Поиск и замена и сторонние надстройки, такие как Kutools для Excel. Каждый подход имеет свои преимущества и особенности, которые следует учитывать.
Если Цвет шрифта выделен красным, изменить Цвет шрифта с помощью функции Поиск и замена
Функция Поиск и замена Excel поддерживает поиск и замену по форматированию, позволяя выбрать все ячейки с определённым Цвет шрифта (например, красным) и эффективно заменить их на другой цвет. Этот метод подходит для быстрых операций в пределах листа или диапазона и не требует макросов или надстроек.
1. Выделите диапазон, в котором нужно изменить цвет шрифта, затем нажмите Ctrl + H, чтобы открыть диалоговое окно Поиск и замена. Нажмите Параметры >>, чтобы отобразить дополнительные настройки, как показано:

2. В расширенном диалоговом окне выполните следующие действия:
- Оставьте поля Найти и Заменить на пустыми, чтобы сосредоточиться только на форматировании.
- Рядом с полем Найти нажмите Формат > Выбрать формат от ячейки, затем щёлкните ячейку с красным шрифтом, которую нужно найти.
- Рядом с полем Заменить на нажмите Формат > Формат, чтобы открыть диалоговое окно Формат замены.


3. В диалоговом окне Формат замены на вкладке Шрифт выберите желаемый цвет замены из списка Цвет. Подтвердите настройки:

4. Нажмите OK, чтобы закрыть диалоговое окно Формат замены. Затем в диалоговом окне Поиск и замена нажмите Заменить все. Все ячейки с заданным красным шрифтом мгновенно изменятся на выбранный вами новый цвет шрифта:

Этот метод особенно полезен, когда требуется однократная массовая операция без включения макросов. Однако если в вашей книге регулярно изменяются Цвет шрифта в рамках рабочего процесса, рассмотрите возможность использования автоматизированного или выборочного решения.
Если Цвет шрифта красный, измените Цвет шрифта с помощью полезной функции
Если у вас установлено приложение Kutools для Excel, его функция Выбрать ячейки с похожим форматом позволяет быстро выделить все ячейки с точно таким же цветом шрифта (например, красным) и массово применить новый цвет шрифта. Этот метод гибче стандартного «Поиска и замены», так как вы можете ограничить выделение только цветом шрифта или при необходимости включать/исключать другие конкретные атрибуты. Kutools предлагает удобный интерфейс для подобных операций, что делает его идеальным решением для пользователей, часто работающих с богатым форматированием в крупных наборах данных.
После установки Kutools для Excelвыполните следующие действия:
1. Выделите диапазон для обработки, затем перейдите к пункту Kutools > Выделить > Выбрать ячейки с похожим форматом, как показано ниже:

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

3. Нажмите OK. Во всплывающем окне нажмите Да, чтобы продолжить:

4. Теперь все ячейки с красным цветом шрифта выделены одновременно. С таким выделением вы можете вручную изменить их цвет шрифта с помощью раскрывающегося списка Excel «Цвет шрифта» — когда это необходимо.

Такой подход особенно эффективен для больших Диапазон или ситуаций, требующих выборочной корректировки форматирования исключительно по цвету. При использовании этой функции внимательно проверяйте, чтобы были выбраны только нужные атрибуты форматирования — в противном случае можно пропустить ячейки, визуально похожие, но имеющие незначительные различия в форматировании.
Совет: Kutools также предлагает функции пакетной обработки и отмены действий, которые помогут избежать ошибок и быстро вернуть изменения в случае ошибки при выделении или форматировании.
Если результаты не соответствуют ожиданиям или нужные ячейки не выделяются, дважды проверьте, что в диалоговом окне отмечены только правильные атрибуты форматирования (например, Цвет шрифта). Также убедитесь, что Вы работаете в пределах целевого Диапазон данных.
Помимо вышеуказанных методов, в Excel существуют и другие способы обработки данных на основе Цвет шрифта:
- Код пакетной обработки на VBA: Если вы часто работаете с большими наборами данных, пользовательский сценарий VBA может автоматически перебирать все ячейки и выполнять заданные действия при обнаружении красного шрифта. Это гибкое решение для массового форматирования, пометки или регистрации нужных ячеек — но оно требует базовых знаний программирования на VBA.
- Ручной просмотр в сочетании с сортировкой: воспользуйтесь сортировкой Excel по цвету ячейки или цвету шрифта (доступно в Excel 2007 и новее), чтобы собрать все данные с красным шрифтом в одном месте — это упростит их просмотр и редактирование. Этот метод идеально подходит для разовых задач или когда использование макросов и надстроек запрещено.
Независимо от выбранного подхода всегда заранее сохраняйте свою работу и, по возможности, тестируйте методы на копии данных — особенно при использовании пакетных операций или макросов. Стандартные действия по устранению неполадок включают нажатие клавиши F9 для обновления вычислений и проверку настроек макросов в Центре управления безопасностью Excel, если решения на основе VBA работают не так, как ожидалось.
В заключение, операции в Excel, основанные на Цвет шрифта, требуют больше, чем стандартные формулы. Выбор подходящего инструмента — VBA, встроенные средства Excel или надстройки, такие как Kutools, — зависит от частоты и сложности Ваших задач. Какой бы метод Вы ни выбрали, всегда проверяйте цветовые коды, параметры выделения форматирования и настройки безопасности макросов для обеспечения эффективных и точных результатов.
Лучшие инструменты для повышения продуктивности в офисе
Kutools для Excel решает большинство ваших задач и повышает продуктивность на 80 %
- Супер строка формул (удобное редактирование многострочного текста и формул); Режим чтения (удобный просмотр и редактирование большого количества ячеек); Вставка в диапазон фильтрации…
- Объединение ячеек, строк или столбцов с сохранением данных; разделение содержимого ячеек;Объединение дублирующихся строк с суммированием или усреднением… предотвращение дублирования записей в ячейках;Сравнение диапазонов…
- Выбор дубликатов или уникальных строк; выбор пустых строк (все ячейки пустые); улучшенный и нечёткий поиск по множеству книг; случайный выбор…
- Точная копия нескольких ячеек без изменения ссылок в формулах; автоматическое создание ссылок на несколько листов; вставка маркеров, флажков и многое другое…
- Избранные и быстрая вставка формул, диапазонов, диаграмм и изображений; Защита ячеек паролем; Создание списка рассылкии отправка электронных писем…
- Извлечение текста, добавление текста, удаление символов в определённой позиции, удаление пробелов; создание и печать статистики по странице данных; преобразование между содержимым ячеек и примечаниями…
- Суперфильтр (сохранение и применение схем фильтрации к другим листам); расширенная сортировка по месяцам, неделям, дням, частоте и другим параметрам; специальный фильтр по полужирному, курсиву…
- Объединение книг и листов; объединение таблиц на основе ключевого столбца; разделение данных на несколько листов; пакетное преобразование XLS, XLSX и PDF…
- Сводная таблица: группировка по номеру недели, дню недели и многому другому… Показ разблокированных и заблокированных ячеек разными цветами; Выделение ячеек, содержащих формулы или имена…

- Включите вкладки для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — это удобнее, чем использовать отдельные окна.
- Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!
