Excel: Если цвет шрифта красный, вернуть определенный текст или выполнить другие операции
Как можно вернуть определенный текст, если цвет шрифта в другой ячейке красный, как показано на скриншоте ниже? В этой статье я представлю несколько приемов для выполнения операций на основе текста с красным шрифтом в Excel.
Если цвет шрифта красный, вернуть определенный текст в другой ячейке
Чтобы вернуть определенный текст, если цвет шрифта красный в другой ячейке, сделайте следующее:
1. Нажмите клавиши Alt+ F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.
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. Затем закройте окно кода и введите эту формулу: =FontColorISRed(B2), а затем перетащите маркер заполнения вниз, чтобы получить остальные результаты, см. скриншот:
Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Если цвет шрифта красный, выделить ячейку
Если вы хотите выделить ячейки на основе красного шрифта, сделайте следующее:
1. Нажмите клавиши Alt+ F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.
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. Затем закройте окно кода, перейдите к Главная > Условное форматирование > Новое правило, см. скриншот:
4. В открывшемся диалоговом окне Новое правило форматирования выполните следующие действия:
- Нажмите Использовать формулу для определения ячеек для форматирования в списке Тип правила;
- Введите эту формулу =highlightredfont(B2) в поле Форматировать значения, где эта формула истинна;
- Затем нажмите кнопку Формат.
5. В диалоговом окне Формат ячеек на вкладке Заливка выберите цвет, которым вы хотите выделить ячейку, см. скриншот:
6. Затем нажмите OK > OK, чтобы закрыть диалоговые окна. Теперь ячейки с красным шрифтом сразу же выделяются, см. скриншот:
Если цвет шрифта красный, изменить цвет шрифта
Иногда вам может понадобиться изменить красный шрифт на другой цвет шрифта. Здесь я расскажу о двух методах достижения этого.
Если цвет шрифта красный, изменить цвет шрифта с помощью функции «Найти и заменить»
Чтобы изменить красный цвет шрифта на другой, функция «Найти и заменить» в Excel может помочь вам, выполните следующие шаги:
1. Выберите диапазон данных, в котором вы хотите изменить цвет шрифта, а затем нажмите клавиши Ctrl + H, чтобы открыть диалоговое окно «Найти и заменить». В открывшемся диалоге нажмите кнопку Дополнительно>>, см. скриншот:
2. В расширенном диалоговом окне выполните следующие действия:
- Оставьте поля Найти и Заменить пустыми;
- Справа от поля Найти выберите Формат > Выбрать формат из ячейки и щелкните по ячейке с красным шрифтом;
- Затем справа от поля Заменить выберите Формат > Формат, чтобы перейти к диалоговому окну Заменить формат.
3. В диалоговом окне Заменить формат на вкладке Шрифт выберите цвет, на который вы хотите изменить, из выпадающего списка Цвет, см. скриншоты:
4. Затем нажмите OK, чтобы закрыть диалоговое окно Заменить формат, и теперь нажмите кнопку Заменить все в диалоговом окне Найти и заменить. Все ячейки с красным шрифтом заменяются на указанный вами цвет шрифта, см. скриншот:
Если цвет шрифта красный, изменить цвет шрифта с помощью полезной функции
Если у вас есть Kutools для Excel, с его функцией Выбрать ячейки с форматом вы можете выбрать ячейки с красным шрифтом и быстро изменить цвет шрифта по вашему усмотрению.
После установки Kutools для Excel сделайте следующее:
1. Выберите диапазон данных, который вы хотите использовать, а затем нажмите Kutools > Выбрать > Выбрать ячейки с форматом, см. скриншот:
2. В диалоговом окне Выбрать ячейки с форматом нажмите кнопку Выбрать формат из ячейки. Затем выберите ячейку с красным шрифтом, все атрибуты этой ячейки отображаются в списке ниже. Если вы хотите выбрать все ячейки с точно таким же форматированием, как у базовой ячейки, отметьте все параметры атрибутов; если вы хотите выбрать только ячейки с красным шрифтом, снимите флажок со всех других атрибутов, кроме Цвет шрифта. См. скриншот:
3. Затем нажмите кнопку OK, а в следующем всплывающем окне нажмите Да, см. скриншот:
4. Все ячейки с красным шрифтом сразу же выделяются, и затем вы можете указать цвет шрифта, чтобы изменить красный шрифт по вашему усмотрению. См. скриншот:
Лучшие инструменты для повышения производительности Office
Kutools для Excel решает большинство ваших проблем и увеличивает вашу продуктивность на 80%
- Супер строка формул (легкое редактирование нескольких строк текста и формул); Режим чтения (удобное чтение и редактирование большого количества ячеек); Вставка в отфильтрованный диапазон...
- Объединение ячеек/строк/столбцов с сохранением данных; Разделение содержимого ячеек; Объединение дублирующихся строк с подсчетом суммы/среднего значения... Предотвращение дублирования ячеек; Сравнение диапазонов...
- Выбор дублирующихся или уникальных строк; Выбор пустых строк (все ячейки пустые); Супер поиск и нечеткий поиск во многих книгах; Случайный выбор...
- Точное копирование нескольких ячеек без изменения ссылок на формулы; Автоматическое создание ссылок на несколько листов; Вставка маркеров, флажков и многое другое...
- Избранные и быстрая вставка формул, диапазонов, диаграмм и изображений; Шифрование ячеек с паролем; Создание списка рассылки и отправка электронных писем...
- Извлечение текста, добавление текста, удаление по позиции, удаление пробелов; Создание и печать статистики страниц; Преобразование между содержимым ячеек и комментариями...
- Супер фильтр (сохранение и применение схем фильтрации к другим листам); Расширенная сортировка по месяцу/неделе/дню, частоте и другим параметрам; Специальный фильтр по жирному шрифту, курсиву...
- Объединение книг и листов; Объединение таблиц на основе ключевых столбцов; Разделение данных на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Группировка сводной таблицы по номеру недели, дню недели и другим параметрам... Отображение разблокированных, заблокированных ячеек разными цветами; Выделение ячеек, содержащих формулы/имена...
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов в новых вкладках одного окна, а не в новых окнах.
- Увеличивает вашу продуктивность на 50% и экономит сотни кликов мышью каждый день!
