Условное форматирование с использованием пользовательских функций

В следующем примере условное форматирование будет применено к ячейкам, содержащим формулы.

1. Создаем пользовательскую функцию.

В редакторе VBA создайте новый модуль и скопируйте в него функцию:

Function IsFormulaInCell (Cell) As Boolean
    IsFormulaInCell= Cell.HasFormula
End Function

Теперь функцию = IsFormulaInCell () можно использовать в ячейках листа.

2. Применяем условное форматирование к ячейкам.

Выделите диапазон ячеек, к которым будет применено условное форматирование.

В меню Формат выберите пункт Условное форматирование (Format, Conditional Formatting).

Выберите тип условия Формула. Значение формулы - =IsFormulaInCell (A1). Выберите формат для ячеек, в которые введены формулы.

Вместо А1 введите адрес верхней левой ячейки Вашего диапазона. Ссылки в условии относительные. То есть, если верхний левый угол - ячейка А1, а Вы в условии ввели =IsFormulaInCell (A2), условие наличия формулы будет проверяться на ячейку ниже.

 Аналогично можно использовать и другие функции в условиях форматирования.

Так формула =MIN (Ваш_диапазон_в_абсолютной_нотации) в условии позволит выделить форматом минимальное значение в диапазоне. Для этого примера важно вводить абсолютные ссылки (например, $A$1:$A$5) или имя диапазона.